qdetach.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# detach.cgi
# View one attachment from a message

require './sendmail-lib.pl';
require './boxes-lib.pl';

&ReadParse();
$access{'mailq'} || &error($text{'mailq_ecannot'});
$in{'file'} =~ /\.\./ && &error($text{'mailq_ecannot'});
$qfile = $in{'file'};
($dfile = $qfile) =~ s/^qf/df/;
$mqueue = &mailq_dir(&get_sendmailcf());
$mail = &mail_from_queue("$mqueue/$qfile", "$mqueue/$dfile");
&parse_mail($mail);
$attach = $mail->{'attach'}->[$in{'attach'}];

print "Content-type: $attach->{'type'}\n\n";
print $attach->{'data'};