Changeset 204
- Timestamp:
- Dec 5, 2005, 11:52:38 AM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dasscm/dasscm_chkconf
r199 r204 53 53 print "$key\n"; 54 54 } 55 if (I_am_interactive()) {56 print "Die Dateien nach $cvsworkdir kopieren? (j/n)";57 my $line = <STDIN>;58 chomp($line);59 if ($line eq "j") {60 print "kopiere...\n";61 foreach my $key (keys %changedfiles) {62 print "$key --> $changedfiles{$key} ";63 copy($key, $changedfiles{$key}) || print "(fehlgeschlagen)";64 print "\n";65 }66 print "bitte noch manuell einen commit ... ausführen.\n";67 # CVS Environment prüfen68 #print "Hinweis: CVSROOT nicht gesetzt\n" unless defined $ENV{'CVSROOT'};69 }70 }55 # if (I_am_interactive()) { 56 # print "Die Dateien nach $cvsworkdir kopieren? (j/n)"; 57 # my $line = <STDIN>; 58 # chomp($line); 59 # if ($line eq "j") { 60 # print "kopiere...\n"; 61 # foreach my $key (keys %changedfiles) { 62 # print "$key --> $changedfiles{$key} "; 63 # copy($key, $changedfiles{$key}) || print "(fehlgeschlagen)"; 64 # print "\n"; 65 # } 66 # print "bitte noch manuell einen commit ... ausführen.\n"; 67 # # CVS Environment prüfen 68 # #print "Hinweis: CVSROOT nicht gesetzt\n" unless defined $ENV{'CVSROOT'}; 69 # } 70 # } 71 71 } 72 72 else { … … 86 86 # relativer Pfad zur CVS-Arbeitsdatei 87 87 my $relcvsworkfile = $1; 88 (-r $realfile) || die("Fehler: $realfile existiert nicht oder ist nicht lesbar"); 89 (-r "$cvsworkfile") || die("Fehler: $cvsworkfile ist nicht lesbar"); 90 if (compare($cvsworkfile,$realfile) != 0) { 91 # Dateien unterscheiden sich 92 (-w $cvsworkfile) || die("Fehler: kein Schreibrecht auf $cvsworkfile"); 93 # Arbeitskopie durch Kopie ersetzen 94 #copy($realfile,$cvsworkfile) || die("Fehler beim kopieren $realfile --> $cvsworkfile"); 95 $changedfiles{"$realfile"} = $cvsworkfile; 88 # (-r $realfile) || die("Fehler: $realfile existiert nicht oder ist nicht lesbar"); 89 if( ! -r $realfile ) { 90 print "d $realfile\n"; 91 } else { 92 (-r "$cvsworkfile") || die("Fehler: $cvsworkfile ist nicht lesbar"); 93 if (compare($cvsworkfile,$realfile) != 0) { 94 # Dateien unterscheiden sich 95 (-w $cvsworkfile) || die("Fehler: kein Schreibrecht auf $cvsworkfile"); 96 # Arbeitskopie durch Kopie ersetzen 97 #copy($realfile,$cvsworkfile) || die("Fehler beim kopieren $realfile --> $cvsworkfile"); 98 $changedfiles{"$realfile"} = $cvsworkfile; 99 } 96 100 } 97 101 }
Note:
See TracChangeset
for help on using the changeset viewer.