version 1.2, 2007/04/05 00:50:32
|
version 1.3, 2007/04/05 16:18:22
|
Line 90 foreach my $stu (@stuchecked) {
|
Line 90 foreach my $stu (@stuchecked) {
|
print $fh $file_content; |
print $fh $file_content; |
close $fh; |
close $fh; |
} else { |
} else { |
print "problem creating file <br />"; |
print("problem creating file <br />"); |
} |
} |
} |
} |
} |
} |
} |
} |
print '<a href="../zipout/output.zip">Click to download</a>'; |
mkdir($doc_root."/zipout",0777); |
|
my $statement = "zip -r $doc_root/zipout/output.zip $doc_root/zipdir/* > /dev/null"; |
|
system($statement); |
|
$statement = "rm -rf $doc_root/zipdir"; |
|
system($statement); |
|
print('<a href="../zipout/output.zip">Click to download</a>'); |
return 1; |
return 1; |