Changeset 204 for trunk/dasscm/dasscm_chkconf

Timestamp:

Dec 5, 2005, 11:52:38 AM (19 years ago)

Author:

joergs

Message:

removed question for copying files to repository, don't stop on deleted files

File:

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

trunk/dasscm/dasscm_chkconf

@@ -53 +53 @@
     print "$key\n";
   }
-  if (I_am_interactive()) {
-    print "Die Dateien nach $cvsworkdir kopieren? (j/n)";
-    my $line = <STDIN>;
-    chomp($line);
-    if ($line eq "j") {
-      print "kopiere...\n";
-      foreach my $key (keys %changedfiles) {
-        print "$key --> $changedfiles{$key} ";
-        copy($key, $changedfiles{$key}) || print "(fehlgeschlagen)";
-        print "\n";
-      }
-      print "bitte noch manuell einen commit ... ausführen.\n";
-      # CVS Environment prüfen
-      #print "Hinweis: CVSROOT nicht gesetzt\n" unless defined $ENV{'CVSROOT'};
-    }
-  }
+#   if (I_am_interactive()) {
+#     print "Die Dateien nach $cvsworkdir kopieren? (j/n)";
+#     my $line = <STDIN>;
+#     chomp($line);
+#     if ($line eq "j") {
+#       print "kopiere...\n";
+#       foreach my $key (keys %changedfiles) {
+#         print "$key --> $changedfiles{$key} ";
+#         copy($key, $changedfiles{$key}) || print "(fehlgeschlagen)";
+#         print "\n";
+#       }
+#       print "bitte noch manuell einen commit ... ausführen.\n";
+#       # CVS Environment prüfen
+#       #print "Hinweis: CVSROOT nicht gesetzt\n" unless defined $ENV{'CVSROOT'};
+#     }
+#  }
 }
 else {
@@ -86 +86 @@
   # relativer Pfad zur CVS-Arbeitsdatei
   my $relcvsworkfile = $1;
-  (-r $realfile) || die("Fehler: $realfile existiert nicht oder ist nicht lesbar");
-  (-r "$cvsworkfile") || die("Fehler: $cvsworkfile ist nicht lesbar");
-  if (compare($cvsworkfile,$realfile) != 0) {
-    # Dateien unterscheiden sich
-    (-w $cvsworkfile) || die("Fehler: kein Schreibrecht auf $cvsworkfile");
-    # Arbeitskopie durch Kopie ersetzen
-    #copy($realfile,$cvsworkfile) || die("Fehler beim kopieren $realfile --> $cvsworkfile");
-    $changedfiles{"$realfile"} = $cvsworkfile;
+#  (-r $realfile) || die("Fehler: $realfile existiert nicht oder ist nicht lesbar");
+  if( ! -r $realfile ) {
+        print "d     $realfile\n";
+  } else {
+        (-r "$cvsworkfile") || die("Fehler: $cvsworkfile ist nicht lesbar");
+        if (compare($cvsworkfile,$realfile) != 0) {
+                # Dateien unterscheiden sich
+                (-w $cvsworkfile) || die("Fehler: kein Schreibrecht auf $cvsworkfile");
+                # Arbeitskopie durch Kopie ersetzen
+                #copy($realfile,$cvsworkfile) || die("Fehler beim kopieren $realfile --> $cvsworkfile");
+                $changedfiles{"$realfile"} = $cvsworkfile;
+        }
   }
 }