qemu-ghost

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     qemu-ghost
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Thu Apr 17 03:54:33 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     qemu-ghost
   7 ###APPUSAGE:    (GhostImage) (DiskImages,...)
   8 ###APPEXAMPLE:  qemu-ghost win2k win2k.gho
   9 use strict;
  10
  11 #ENV variable MUST be defined somewhere,
  12 #FOR perl to search modules from,
  13 #OR nothing will work
  14 use lib $ENV{XR_PERL_MODULE_DIR};
  15 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  16 exit 0 if(help_even_empty($0,@ARGV));
  17
  18 my $ghostimg=shift;
  19
  20
  21 die("File not exists:$ghostimg\n") unless(-f $ghostimg);
  22 foreach my $diskimg (@ARGV) {
  23     die("File not exists:$diskimg\n") unless(-f $diskimg);
  24 }
  25
  26 my $ghostd="/tmp/qemu-ghost.xiaoranzzz";
  27 if(! -d $ghostd) {
  28     mkdir $ghostd or die("$!\n");
  29 }
  30
  31 if($ghostimg !~ /^\//) {
  32     $ghostimg =~ s/\.\///;
  33     $ghostimg = $ENV{PWD} . "/$ghostimg";
  34 }
  35 my $lname=$ghostd . "/ghost.gho";
  36
  37 print STDERR "Link \"$ghostimg\" to \"$lname\"\n";
  38 system("ln","-sf",$ghostimg,$lname);
  39
  40 my $hda="/myplace/emuos/ghostbox.raw";
  41 my $hdb="fat:$ghostd";
  42
  43 #print STDERR join(" ",("myqemu","-hda",$hda,"-hdb",$hdb,"-hdc",$diskimg)),"\n";
  44
  45 my @arg;
  46 push @arg,"-hdc",$ARGV[0] if($ARGV[0]);
  47 push @arg,"-hdd",$ARGV[1] if($ARGV[1]);
  48
  49 exec "qemudos","-hda",$hda,"-hdb",$hdb,@arg;
  50
  51
  52
  53
  54
  55
  56
  57
  58
  59
  60