blob: 03b1c337dddaae9f3e397b304d69483ed758f23e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
# Bryan Bishop 2008-10-14
use MIME::Base64;
#use Compress::Zlib::Perl;
# $ARGV[0]
$file = $ARGV[0];
open(HANDLER,"<$file");
@lines = <HANDLER>;
close(HANDLER);
if($#lines > 1) { print "Hrm, the array is greater than one. What's going on here? It's .. ", $#lines; }
# PREVIOUSLY:
$output = decode_base64($lines[0]);
# *but* we've already ran this now .. so now we're just going to decompress each of the files.
#($i, $status) = inflateInit(-WindowBits => -MAX_WBITS);
#($out, $status) = $i->inflate($lines[0]);
# print $output;
open(HANDLER,">$file");
print HANDLER $output;
close(HANDLER);
|
