Changeset 204 for trunk/dasscm


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm_chkconf

    r199 r204  
    5353    print "$key\n";
    5454  }
    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   }
     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#  }
    7171}
    7272else {
     
    8686  # relativer Pfad zur CVS-Arbeitsdatei
    8787  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        }
    96100  }
    97101}
Note: See TracChangeset for help on using the changeset viewer.