Changeset 24265 for lang/perl/misc/tgz2cgi/tgz2cgi.pl

Timestamp:

11/19/08 15:56:35 (5 years ago)

Author:

kazuho

Message:

use MIME::Base64 instead of uu(en|de)code, change gzcat to gunzip

Files:

• lang/perl/misc/tgz2cgi/tgz2cgi.pl (modified) (3 diffs)

lang/perl/misc/tgz2cgi/tgz2cgi.pl

@@ -4 +4 @@
 use warnings;
 use Getopt::Long;
+use MIME::Base64;
 
 my $title = 'CGI Self Extractor';
@@ -36 +37 @@
 #! /usr/bin/perl
 
+use MIME::Base64;
+
 sub abort {
     print $_[0];
@@ -63 +66 @@
 EOT
 }
-open FH, '| uudecode -o /dev/stdout | gzcat | tar xvf -'
+open FH, '| gunzip | tar xvf -'
     or abort("failed to start extraction:$!");
-print FH << '__end_of_archive__';
+print FH decode_base64(<< '__end_of_archive__');
 __EOT__
 ;
 
-open my $fh, '-|', 'uuencode - < /dev/stdin'
-    or die "failed to call uuencode:$!";
-while (my $l = <$fh>) {
-    print $l;
+binmode STDIN;
+my $tgz = '';
+while (read(STDIN, my $buf, 1048576) > 0) {
+    $tgz .= $buf;
 }
+print encode_base64($tgz);
+
 print << '__EOT__';
 __end_of_archive__