bootfdz

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     bootfdz
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     2009-06-25 05:12:10
   5 ###APPVER:      0.1
   6 ###APPDESC:     bootfdz
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  bootfdz
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_required($0,@ARGV));
  19 #exit 0 if(help_even_empty($0,@ARGV));
  20 #
  21 use File::Temp qw/tempfile/;
  22 use File::Spec;
  23
  24 my $fdz=shift;
  25 die("File not exist:$fdz\n") unless(-r $fdz);
  26
  27 my ($fh,$fd)=tempfile("fdz.XXXXXXXXX",DIR=>'/tmp');
  28 print STDERR "Decompressing $fdz to $fd...";
  29 open FI,"-|","bzcat",$fdz or die("$!\n");
  30 print $fh <FI>;
  31 close FI;
  32 close $fh;
  33 print STDERR "\n";
  34
  35 system("bootfd",$fd,@ARGV);
  36
  37
  38 print STDERR "Compressing $fd to $fdz...\n";
  39 open FI,"-|","bzip2","-vc",$fd or die("$!\n");
  40 open FO,">",$fdz or die("$!\n");
  41 print FO <FI>;
  42 close FI;
  43 close FO;
  44 print STDERR "\n";
  45 unlink $fd or die("$!\n");
  46