scripts/receive.in

   1 #!/usr/bin/perl -w
   2 # $Id: receive.in,v 1.11 2001/08/18 01:32:28 doogie Exp $
   3 # usage: mail is piped directly into program
   4
   5 #set umask in order to have group-writable incoming/*
   6 #umask 002;
   7
   8 #load configuration file
   9 $config_path = '/org/bugs.debian.org/etc';
  10 #$lib_path = '/org/bugs.debian.org/scripts';
  11
  12 require "$config_path/config";
  13 $ENV{'PATH'} = '/org/bugs.debian.org/scripts:'.$ENV{'PATH'};
  14
  15 #set source of mail delivery
  16 #sets any prefix needed to get mailer to add it to error mail
  17 if ( $gMailer eq 'exim' )
  18 {       $gBadEmailPrefix = '';
  19         $_ = $ENV{'LOCAL_PART'};
  20 } elsif ( $gMailer eq 'qmail' )
  21 {       $gBadEmailPrefix = '//';
  22         $_ = $ENV{'DEFAULT'};
  23 #       $_ = $ENV{'RECIPIENT'};
  24 #       s/^\w+-bugs--?//;
  25 } else
  26 {       $gBadEmailPrefix = '';
  27         $_ = $ARGV[0];
  28         s/\>//;
  29         s/\<//;
  30 }
  31 require("/etc/debbugs/text");
  32
  33 #remove everything from @ to end of line
  34 s/\@.*$//;
  35
  36 #convert remaining upper case to lower case
  37 y/A-Z/a-z/;
  38
  39 #set up to determine command
  40 %withbugaddressmap= ('-submit',     'B',
  41                    '',            'B',
  42                    '-maintonly',  'M',
  43                    '-quiet',      'Q',
  44                    '-forwarded',  'F',
  45                    '-fixed',      'X',
  46                    '-done',       'D',
  47                    '-close',      'D',
  48                    '-request',    'R',
  49                    '-submitter',  'U');
  50
  51 %withpkgaddressmap= ('-request',     'R');
  52
  53 %withoutaddressmap= ('submit',     'B',
  54                       'bugs',       'B',
  55                       'maintonly',  'M',
  56                       'quiet',      'Q',
  57                       'forwarded',  'F',
  58                       'done',       'D',
  59                       'close',      'D',
  60                       'request',    'R',
  61                       'submitter',  'U',
  62                       'control',    'C');
  63
  64 #determine command
  65 if (s/^(\d{1,9})\b//) {
  66     $bugnumber= $1;
  67     $map= $withbugaddressmap{$_};
  68     $addrrec= "$bugnumber$_";
  69 } elsif (s/^(\w+)-//) {
  70     $bugnumber= $1;
  71     $map= $withpkgaddressmap{"-$_"};
  72     $addrrec= "$bugnumber-$_";
  73 } else {
  74     $bugnumber= '';
  75     $map= $withoutaddressmap{$_};
  76     $addrrec= "$_";
  77 }
  78
  79 #print no command received
  80 if (!defined($map)) {
  81     print STDERR <<ENDTEXT;
  82 $gBadEmailPrefix
  83 $gBadEmailPrefix Unknown $gBug service address $_\@$gEmailDomain.
  84 $gBadEmailPrefix Recognised addresses are:
  85 $gBadEmailPrefix
  86 $gBadEmailPrefix     General:       Read $gBug# in Subject:    $gBug# is NNNN:
  87 $gBadEmailPrefix
  88 $gBadEmailPrefix      request        submit  $gBug             NNNN  NNNN-submit
  89 $gBadEmailPrefix      control        maintonly                NNNN-maintonly
  90 $gBadEmailPrefix      owner          quiet                    NNNN-quiet
  91 $gBadEmailPrefix      postmaster     forwarded                NNNN-forwarded
  92 $gBadEmailPrefix                     done  close              NNNN-done  NNNN-close
  93 $gBadEmailPrefix                     submitter                NNNN-submitter
  94 $gBadEmailPrefix
  95 $gBadEmailPrefix (all \@$gEmailDomain.)
  96 $gBadEmailPrefix
  97 $gBadEmailPrefix For instructions via the WWW see:
  98 $gBadEmailPrefix   http://$gWebDomain/
  99 $gBadEmailPrefix   http://$gWebDomain/Reporting.html
 100 $gBadEmailPrefix   http://$gWebDomain/Developer.html
 101 $gBadEmailPrefix   http://$gWebDomain/Access.html
 102 $gTextInstructions
 103 $gBadEmailPrefix For details of how to access $gBug report logs by email:
 104 $gBadEmailPrefix   send \`request\@$gEmailDomain' the word \`help'
 105 $gBadEmailPrefix
 106 ENDTEXT
 107     exit(100);
 108 }
 109
 110 @months=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 111 ($sec,$min,$hour,$mday,$mon,$year)= gmtime(time);
 112
 113 $queue= "$map$bugnumber";
 114
 115 chdir("$gSpoolDir/incoming") || &failure("chdir to spool: $!");
 116
 117 $id= time.$$;
 118 open(FILE,">T.$id") || &failure("open temporary file: $!");
 119 printf(FILE "Received: (at %s) by $gEmailDomain; %d %s %d %02d:%02d:%02d +0000\n",
 120        $addrrec, $mday,$months[$mon],$year+1900, $hour,$min,$sec) ||
 121     &failure("write header to temporary file: $!");
 122 while(<STDIN>) { print(FILE) || &failure("write temporary file: $!"); }
 123 close(FILE) || &failure("close temporary file: $!");
 124
 125 rename("T.$id","I$queue.$id") || &failure("rename spool message: $!");
 126
 127 exit(0);
 128
 129 sub failure {
 130     length($id) && unlink("T.$id");
 131     print STDERR "bugs receive failure: @_\n";
 132     exit(75); # EX_TEMPFAIL
 133 }