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: ${mark...@{files} +Subject: DISTFILES: ${spec} ${mark...@{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 "$fr...@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 _______________________________________________ pld-cvs-commit mailing list pld-cvs-commit@lists.pld-linux.org http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit