]> git.pld-linux.org Git - projects/distfiles.git/blame - request-handler.pl
- :retab with :set et
[projects/distfiles.git] / request-handler.pl
CommitLineData
a04817ac 1#!/usr/bin/perl -w
b396edfa 2# $Id$
052c958f
MM
3# read email with request from stdin and process it
4
5$spool_dir = "./spool";
7a0595ea 6$commits_list = "pld-cvs-commit\@lists.pld-linux.org";
052c958f
MM
7
8$spec = undef;
9$branch = "";
10$from = undef;
47f8fda7 11$flags = "";
052c958f 12
a04817ac 13# ---------------------------------------------------------------
91ff13d3 14use File::Basename;
95106fc3 15use File::Copy;
9654851f 16use Cwd;
91ff13d3 17
a04817ac
MM
18sub cleanup()
19{
20 system("rm -rf tmp/$id");
21}
22
23sub report_fatal($)
24{
25 my $msg = shift;
26 cleanup();
2fcadf85 27 open(M, "| /usr/sbin/sendmail -t") or die("/usr/sbin/sendmail not found");
a04817ac
MM
28 #open(M, "| cat") or die;
29 my $version = '$Id$';
30 print M <<EOF
31From: $from <$from\@pld-linux.org>
32To: $commits_list
33Cc: $from\@pld-linux.org
34Message-ID: <$id\@distfiles.pld-linux.org>
35Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
36X-distfiles-program: request-handler.pl
37X-distfiles-version: $version
38
39$msg
40
41--
42Virtually Yours: distfiles.
43EOF
44;
b5160615 45 close(M) or die("problem while sending email");
a04817ac
MM
46 exit 0;
47}
48# ---------------------------------------------------------------
49
052c958f
MM
50$id = `uuidgen`;
51chomp $id;
52$id = rand if (!defined $id or $id eq "");
53
54while (<STDIN>) {
47f8fda7 55 chomp;
576dff03
ER
56 /^X-Spec: ([a-z0-9_.+-]+\.spec)/i and $spec = $1;
57 /^X-Branch: ([a-z0-9_-]+)/i and $branch = $1;
58 /^X-Login: ([a-z0-9_.]+)/i and $from = $1;
59 /^X-Flags: ([a-z0-9_ -]+)/i and $flags = $1;
052c958f
MM
60}
61
62die "ill-formed request" if (!defined $from);
63
64report_fatal("bad spec name") if (!defined $spec);
65
d22382ac 66$oldcwd = Cwd::getcwd();
9654851f 67
b5160615 68mkdir("tmp/$id") or die("cannot create: tmp/$id");
052c958f
MM
69chdir("tmp/$id");
70
71$branch = "" if ($branch eq "HEAD");
72$branch = "-r \"$branch\"" if ($branch ne "");
73
91ff13d3 74$specdir = File::Basename::basename($spec,('.spec'));
d9fd3020 75if (system("cvs -d :pserver:cvs\@cvs.pld-linux.org:/cvsroot get $branch \"packages/$specdir/$spec\" >/dev/null 2>&1") != 0) {
d22382ac 76 chdir($oldcwd);
052c958f
MM
77 report_fatal("cannot cvs get $spec at $branch")
78}
79
d22382ac 80chdir($oldcwd);
052c958f
MM
81
82open(S, "> tmp/$id/to-spool");
83print S "$from\@pld-linux.org\n";
cba859d3 84print S "$spec\n";
47f8fda7 85print S "$flags\n";
052c958f
MM
86close(S);
87
91ff13d3 88if (system("perl ./specparser.pl \"tmp/$id/packages/$specdir/$spec\" >> tmp/$id/to-spool") != 0) {
052c958f
MM
89 report_fatal("cannot parse $spec ($branch)")
90}
91
95106fc3 92File::Copy::move("tmp/$id/to-spool", "$spool_dir/$id") or die("move failed: $!");
052c958f
MM
93
94cleanup();
95
96exit(0);
97
This page took 0.128367 seconds and 4 git commands to generate.