admin: distfiles/request-handler.pl - update for new layout

[arekm]

Author: arekm                        Date: Tue Apr 28 16:16:50 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
- update for new layout

---- Files affected:
admin/distfiles:
   request-handler.pl (1.16 -> 1.17) 

---- Diffs:

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.16 admin/distfiles/request-handler.pl:1.17
--- admin/distfiles/request-handler.pl:1.16	Mon Mar  9 12:07:31 2009
+++ admin/distfiles/request-handler.pl	Tue Apr 28 18:16:45 2009
@@ -11,6 +11,8 @@
 $flags = "";
 
 # ---------------------------------------------------------------
+use File::Basename;
+
 sub cleanup()
 {
   system("rm -rf tmp/$id");
@@ -65,7 +67,8 @@
 $branch = "" if ($branch eq "HEAD");
 $branch = "-r \"$branch\"" if ($branch ne "");
 
-if (system("cvs -d :pserver:builder\@cvs.pld-linux.org:/cvsroot get $branch \"SPECS/$spec\" >/dev/null 2>&1") != 0) {
+$specdir = File::Basename::basename($spec,('.spec'));
+if (system("cvs -d :pserver:builder\@cvs.pld-linux.org:/cvsroot get $branch \"packages/$specdir/$spec\" >/dev/null 2>&1") != 0) {
   chdir("../..");
   report_fatal("cannot cvs get $spec at $branch")
 }
@@ -77,7 +80,7 @@
 print S "$flags\n";
 close(S);
 
-if (system("perl ./specparser.pl \"tmp/$id/SPECS/$spec\" >> tmp/$id/to-spool") != 0) {
+if (system("perl ./specparser.pl \"tmp/$id/packages/$specdir/$spec\" >> tmp/$id/to-spool") != 0) {
   report_fatal("cannot parse $spec ($branch)")
 }
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/request-handler.pl?r1=1.16&r2=1.17&f=u