- keep track of spec file in file-fetcher

Changed files:
    file-fetcher.pl -> 1.49
    request-handler.pl -> 1.26

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 6f3c8b8131ccf1656673917b2b6b17fd04ada163..6f2713d336dec0a19bf0a4278bbf923057eeb3b7 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -21,6 +21,7 @@ $file = "";
 $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 @@ sub read_spool_file()
   $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 @@ sub send_email()
 "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$' . "

diff --git a/request-handler.pl b/request-handler.pl
index 4c58bb10335f7342363f85a1e7d6e372dc47cd63..ccda8946b4c2db0f7e0f19ffacfb5f55c84dcb7f 100644 (file)
--- a/request-handler.pl
+++ b/request-handler.pl
@@ -81,6 +81,7 @@ chdir($oldcwd);
 
 open(S, "> tmp/$id/to-spool");
 print S "$from\@pld-linux.org\n";
+print S "$spec\n";
 print S "$flags\n";
 close(S);