2 # read email with request from stdin and process it
6 openlog("distfiles-rh", "pid", "user");
8 $spool_dir = "./spool";
9 $commits_list = "pld-cvs-commit\@lists.pld-linux.org";
16 # ---------------------------------------------------------------
23 system("rm -rf tmp/$id");
30 syslog("err","FATAL: $msg");
32 open(M, "| /usr/sbin/sendmail -t") or die("/usr/sbin/sendmail not found");
33 #open(M, "| cat") or die;
36 From: $from <$from\@pld-linux.org>
38 Cc: $from\@pld-linux.org
39 Message-ID: <$id\@distfiles.pld-linux.org>
40 Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
41 X-distfiles-program: request-handler.pl
42 X-distfiles-version: $version
47 Virtually Yours: distfiles.
50 close(M) or die("problem while sending email");
53 # ---------------------------------------------------------------
57 $id = rand if (!defined $id or $id eq "");
59 my $ref_pattern='[0-9a-zA-Z][0-9#a-zA-Z._\@/+ :,-]*';
62 /^X-Package: ([a-z0-9_.+-]+)/i and $spec = $1;
63 /^X-Branch: ($ref_pattern)/i and $branch = $1;
64 /^X-Login: ([a-z0-9_.]+)/i and $from = $1;
65 /^X-Flags: ([a-z0-9_ -]+)/i and $flags = $1;
69 syslog("err","FATAL: ill-formed request");
70 die "ill-formed request";
73 syslog("info","got request from $from for $spec at $branch ($flags)");
75 report_fatal("bad spec name") if (!defined $spec);
77 $oldcwd = Cwd::getcwd();
79 mkdir("tmp/$id") or die("cannot create: tmp/$id");
82 my $cvs_get = `~/distfiles/show_spec.sh $spec $branch 2>&1`;
86 $at_branch = " from branch $branch" if $branch;
88 report_fatal("cannot git fetch $spec$at_branch;\n$cvs_get\nexited with code $code");
93 syslog("info","spooling to tmp/$id/to-spool");
94 open(S, "> tmp/$id/to-spool");
95 print S "$from\@pld-linux.org\n";
100 if (system("perl ./specparser.pl \"tmp/$id/$spec\" tmp/$id/sources >> tmp/$id/to-spool") != 0) {
101 report_fatal("cannot parse $spec ($branch)")
104 if (!File::Copy::move("tmp/$id/to-spool", "$spool_dir/$id")) {
105 syslog("err","FATAL: move failed: $!");
106 die("move failed: $!");