Changeset 227

Timestamp:

Nov 27, 2007, 3:12:12 PM (17 years ago)

Author:

joergs

Message:

prevent aborting if a file exists in the repository but not on the system

File:

• trunk/dasscm/dasscm (modified) (2 diffs)

trunk/dasscm/dasscm

@@ -195 +195 @@
     my @permlist = ();
     foreach my $file (@files) {
-        my $info       = stat( "/" . $file ) || die "$file: stat error";
-        my $mode       = get_type( $info->mode ) & 07777;
-        my $modestring = sprintf( "%04o", $mode );
-        my $uid        = $info->uid;
-        my $uidname    = getpwuid($uid);
-        my $gid        = $info->gid;
-        my $gidname    = getgrgid($gid);
-        push(
-            @permlist,
-            sprintf( "%-55s %-17s %4d",
-                $file, "${uidname}:${gidname}", $modestring )
-        );
+        $file = "/" . $file;
+        if( -e $file ) {
+            my $info       = stat( $file ) || die "failed to stat $file: aborting";
+            my $mode       = get_type( $info->mode ) & 07777;
+            my $modestring = sprintf( "%04o", $mode );
+            my $uid        = $info->uid;
+            my $uidname    = getpwuid($uid);
+            my $gid        = $info->gid;
+            my $gidname    = getgrgid($gid);
+            push(
+                @permlist,
+                sprintf( "%-55s %-17s %4d",
+                    $file, "${uidname}:${gidname}", $modestring )
+            );
+        } else {
+            print "failed to get status of $file. It exists in the repository, but not on the system\n";
+        }
     }
     return @permlist;
@@ -746 +751 @@
     # revert
     # activate
-}
+    # rm
+}