qmailadmin/detach_queue.cgi

   1 #!/usr/local/bin/perl
   2 # detach_queue.cgi
   3 # View one attachment from a queued message
   4
   5 require './qmail-lib.pl';
   6
   7 &ReadParse();
   8 $mail = &read_mail_file($in{'file'});
   9 &parse_mail($mail);
  10 $attach = $mail->{'attach'}->[$in{'attach'}];
  11
  12 print "X-no-links: 1\n";
  13 print "Content-type: $attach->{'type'}\n\n";
  14 if ($attach->{'type'} =~ /^text\/html/i) {
  15         print &filter_javascript($attach->{'data'});
  16         }
  17 else {
  18         print $attach->{'data'};
  19         }
  20