-#!/usr/bin/perl
+#!/usr/bin/perl -w
# read email with request from stdin and process it
$spool_dir = "./spool";
-$email_cc = "";
+$commits_list = "pld-cvs-commit\@pld-linux.org";
$spec = undef;
$branch = "";
$from = undef;
$flags = "";
+# ---------------------------------------------------------------
+sub cleanup()
+{
+ system("rm -rf tmp/$id");
+}
+
+sub report_fatal($)
+{
+ my $msg = shift;
+ cleanup();
+ open(M, "| /usr/sbin/sendmail -t") or die;
+ #open(M, "| cat") or die;
+ my $version = '$Id$';
+ print M <<EOF
+From: $from <$from\@pld-linux.org>
+To: $commits_list
+Cc: $from\@pld-linux.org
+Message-ID: <$id\@distfiles.pld-linux.org>
+Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
+X-distfiles-program: request-handler.pl
+X-distfiles-version: $version
+
+$msg
+
+--
+Virtually Yours: distfiles.
+EOF
+;
+ close(M) or die;
+ exit 0;
+}
+# ---------------------------------------------------------------
+
$id = `uuidgen`;
chomp $id;
$id = rand if (!defined $id or $id eq "");
while (<STDIN>) {
chomp;
- /^X-Spec: ([\+a-zA-Z0-9_\-]+\.spec)/i and $spec = $1;
+ /^X-Spec: ([\+a-zA-Z0-9_\-\.]+\.spec)/i and $spec = $1;
/^X-Branch: ([a-zA-Z0-9_\-]+)/i and $branch = $1;
/^X-Login: ([a-zA-Z0-9_]+)/i and $from = $1;
/^X-Flags: ([a-zA-Z0-9\-_ ]+)/i and $flags = $1;
exit(0);
-sub report_fatal($)
-{
- my $msg = shift;
- cleanup();
- open(M, "| /usr/sbin/sendmail -t") or die;
- #open(M, "| cat") or die;
- my $version = '$Id$';
- print M <<EOF
-From: distfiles <feedback\@pld-linux.org>
-To: $from\@pld-linux.org
-Cc: $email_cc
-Message-ID: <$id\@distfiles.pld-linux.org>
-Subject: [distfiles] ERROR fetching sources for $spec ($branch)
-X-distfiles-program: request-handler.pl
-X-distfiles-version: $version
-
-$msg
-
---
-Virtually Yours: distfiles.
-EOF
-;
- close(M) or die;
- exit 0;
-}
-
-sub cleanup()
-{
- system("rm -rf tmp/$id");
-}