Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22522

Modified Files:
      Tag: apt_sources
        SelfUpdate.pm 
Log Message:
rsync must include DISTRIBUTION and README files; change the VERSION when
rsyncing to reflect rsync


Index: SelfUpdate.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate.pm,v
retrieving revision 1.67.4.1
retrieving revision 1.67.4.2
diff -u -d -r1.67.4.1 -r1.67.4.2
--- SelfUpdate.pm       12 Jul 2004 15:07:05 -0000      1.67.4.1
+++ SelfUpdate.pm       13 Jul 2004 04:32:43 -0000      1.67.4.2
@@ -615,7 +615,7 @@
                        mkdir_p "$basepath/fink/$dist/$tree";
                }
        }
-       $cmd = "rsync -rtz --delete-after --delete $verbosity $nohfs $rinclist 
--include='VERSION' --exclude='**' '$rsynchost' '$basepath/fink/'";
+       $cmd = "rsync -rtz --delete-after --delete $verbosity $nohfs $rinclist 
--include='VERSION' --include='DISTRIBUTION' --include='README' --exclude='**' 
'$rsynchost' '$basepath/fink/'";
        if ($sb[4] != 0 and $> != $sb[4]) {
                ($username) = getpwuid($sb[4]);
                if ($username) {
@@ -643,6 +643,20 @@
        rm_rf "$basepath/fink/CVS";
        touch "$dist/stamp-rsync-live";
        rm_f "stamp-cvs-live", "$dist/stamp-cvs-live";
+# change the VERSION to reflect rsync
+if (-f "$basepath/fink/$dist/VERSION") {
+       open(IN,"$basepath/fink/$dist/VERSION") or die "can't open VERSION: $!";
+       open(OUT,">$basepath/fink/$dist/VERSION.tmp") or die "can't write VERSION.tmp: 
$!";
+       while (<IN>) {
+               chomp;
+               $_ =~ s/cvs/rsync/;
+               print OUT "$_\n";
+       }
+       close(IN);
+       unlink "$basepath/fink/$dist/VERSION";
+       rename "$basepath/fink/$dist/VERSION.tmp", "$basepath/fink/$dist/VERSION";
+}
+
        # cleanup after ourselves and continue with the update.
        unlink("$descdir/TIMESTAMP");
        rename("$descdir/TIMESTAMP.tmp", "$descdir/TIMESTAMP");



-------------------------------------------------------
This SF.Net email sponsored by Black Hat Briefings & Training.
Attend Black Hat Briefings & Training, Las Vegas July 24-29 - 
digital self defense, top technical experts, no vendor pitches, 
unmatched networking opportunities. Visit www.blackhat.com
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to