📄 qdetach.cgi
字号:
#!/usr/local/bin/perl# detach.cgi# View one attachment from a messagerequire './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'};
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -