似乎还能优化。。
1.upfile.cgi
找到
$bufferall .= $buffer;
改成
$bufferall .= $buffer if ($up_ext eq 'torrent') ; #fix again 20041029 By Easunlee
原因：这个 $bufferall 是留给BT文件作合法性鉴定的。。非BT文件不需要。。这样上传大文件的时候可以 节约 一半 的内存！
2。dopost.pl
找到
sub getusrdir #获取临时文件夹
{
my $tmpname = $inmembername;
改成
sub getusrdir #获取临时文件夹
{
# my $tmpname = $inmembername; #old
# modify 20041029 Easunlee
my $tmpname = $query->cookie("amembernamecookie"); # 无论如何，从cookie中获取名字，马甲就可以用了。By 路杨。
# end 20040910 easunlee
原因： 允许用MJ上传文件。。-_-bbb 本来不大算改的地方。。但是要求的人太多：）
css呢？
什么css？糊涂了
多附件的css与皮肤不兼容，我已经换成&output输出了~~带点颜色~~
我的根本和官方的skin一点相似的地方都没有。我这里不是用颜色来控制的。
按钮的css、file框的线条密度等等。。。。
单纯之CSS/HTML代码不在Perl程序研究范围（被扁死。）
你大概不想活了...
狠狠地打击
B4楼上的两个“不注意形象”的家伙：）
嘿嘿。谁让你们没有头像？
楼上的图象像婴儿~~~
嘿嘿。你的头像有我的网址。挖哈哈