admin: distfiles/file-fetcher.pl, distfiles/request-handler.pl - keep track...

[sparky]

Author: sparky                       Date: Sun Feb  7 14:00:10 2010 GMT
Module: admin                         Tag: HEAD
---- Log message:
- keep track of spec file in file-fetcher

---- Files affected:
admin/distfiles:
   file-fetcher.pl (1.48 -> 1.49) , request-handler.pl (1.25 -> 1.26) 

---- Diffs:

================================================================
Index: admin/distfiles/file-fetcher.pl
diff -u admin/distfiles/file-fetcher.pl:1.48 admin/distfiles/file-fetcher.pl:1.49
--- admin/distfiles/file-fetcher.pl:1.48	Mon Mar  9 12:07:31 2009
+++ admin/distfiles/file-fetcher.pl	Sun Feb  7 15:00:05 2010
@@ -21,6 +21,7 @@
 $fetched_count = 0;
 $force_reply = 0;
 $req_login = "nobody";
+$spec = "";
 @files = ();
 
 # try lookup some file in spool, exit if it cannot be done
@@ -52,6 +53,8 @@
   $req_login = "";
   $requester =~ /^([^@]+)\@/ and $req_login = $1;
   $req_login =~ /^[a-z0-9A-Z_.]+$/ or die "$file: evil requester $requester";
+  $spec = <F>;
+  $spec =~ s/\.spec$//;
   my $flags = <F>;
   $force_reply++ if ($flags =~ /force-reply/);
 
@@ -318,7 +321,7 @@
 "From: $req_login <$requester>
 To: $commits_list
 Cc: $requester
-Subject: DISTFILES: ${marker}@{files}
+Subject: DISTFILES: ${spec} ${marker}@{files}
 Message-ID: <$$." . time . "\@distfiles.pld-linux.org>
 X-distfiles-program: file-fetcher.pl
 X-distfiles-version: " . '$Id$' . "

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.25 admin/distfiles/request-handler.pl:1.26
--- admin/distfiles/request-handler.pl:1.25	Tue Dec 29 11:22:38 2009
+++ admin/distfiles/request-handler.pl	Sun Feb  7 15:00:05 2010
@@ -81,6 +81,7 @@
 
 open(S, "> tmp/$id/to-spool");
 print S "$from\@pld-linux.org\n";
+print S "$spec\n";
 print S "$flags\n";
 close(S);
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/file-fetcher.pl?r1=1.48&r2=1.49&f=u
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/request-handler.pl?r1=1.25&r2=1.26&f=u