src/vfs/extfs/helpers/ulib.in

   1 #! @PERL@ -w
   2 #
   3 # VFS to manage the gputils archives.
   4 # Written by Molnár Károly (proton7@freemail.hu) 2012
   5 #
   6
   7 my %month = ('jan' => '01', 'feb' => '02', 'mar' => '03',
   8              'apr' => '04', 'may' => '05', 'jun' => '06',
   9              'jul' => '07', 'aug' => '08', 'sep' => '09',
  10              'oct' => '10', 'nov' => '11', 'dec' => '12');
  11
  12 my @PATHS = ('/usr/bin/gplib', '/usr/local/bin/gplib');
  13
  14 my $gplib = '';
  15
  16 foreach my $i (@PATHS)
  17 {
  18     if (-x $i)
  19     {
  20         $gplib = $i;
  21         last;
  22     }
  23 }
  24
  25 if ($gplib eq '')
  26 {
  27     print STDERR "\a\t$0 : Gplib not found!\n";
  28     exit(1);
  29 }
  30
  31 my $cmd = shift;
  32 my $archive = shift;
  33
  34 #-------------------------------------------------------------------------------
  35
  36 sub mc_ulib_fs_list
  37 {
  38     open(PIPE, "$gplib -tq $archive |") || die("Error in $gplib -tq");
  39
  40     my($dev, $inode, $mode, $nlink, $uid, $gid) = stat($archive);
  41
  42     while (<PIPE>)
  43     {
  44         chomp;
  45         my @w = split(/\s+/o);
  46         my $fname = $w[0];
  47
  48         $fname =~ s|\\|/|g;
  49
  50         printf("-rw-r--r-- 1 %s %s %d %s-%02u-%s %s %s\n",
  51            $uid, $gid, int($w[1]), $month{lc($w[4])}, $w[5], $w[7], substr($w[6], 0, 5), $fname);
  52     }
  53     close (PIPE);
  54 }
  55
  56 #-------------------------------------------------------------------------------
  57
  58 sub mc_ulib_fs_copyin
  59 {
  60     system("$gplib -r $archive $_[0]");
  61     my $ret = $?;
  62
  63     if ($ret)
  64     {
  65         die("Error in: $gplib -r");
  66     }
  67 }
  68
  69 #-------------------------------------------------------------------------------
  70
  71 sub mc_ulib_fs_copyout
  72 {
  73     my($module, $fname) = @_;
  74     my $tmpdir = $ENV{'TMPDIR'};
  75
  76     $tmpdir = '/tmp' if ($tmpdir eq '');
  77
  78     open(PIPE, "$gplib -tq $archive |") || die("Error in: $gplib -tq");
  79
  80     while (<PIPE>)
  81     {
  82         chomp;
  83         my @w = split(/\s+/o);
  84         my $module_orig = $w[0];
  85         my $count = () = ($module_orig =~ /(\\)/g);
  86         my $md = $module_orig;
  87
  88         $md =~ s|\\|/|g;
  89
  90         if ($module eq $md)
  91         {
  92             return if ($count);
  93         }
  94     }
  95
  96     close (PIPE);
  97
  98     chdir($tmpdir);
  99     system("$gplib -x $archive $module");
 100     my $ret = $?;
 101
 102     if ($ret)
 103     {
 104         die("Error in: $gplib -x");
 105     }
 106
 107     rename($module, $fname) || die("Error in: rename($module, $fname)");
 108 }
 109
 110 #-------------------------------------------------------------------------------
 111
 112 sub mc_ulib_fs_rm
 113 {
 114     system("$gplib -d $archive $_[0]");
 115     my $ret = $?;
 116
 117     if ($ret)
 118     {
 119         die("Error in: $gplib -d");
 120     }
 121 }
 122
 123 ################################################################################
 124
 125 if ($cmd eq 'list')
 126 {
 127     mc_ulib_fs_list(@ARGV);
 128 }
 129 elsif ($cmd eq 'copyin')
 130 {
 131     mc_ulib_fs_copyin(@ARGV);
 132 }
 133 elsif ($cmd eq 'copyout')
 134 {
 135     mc_ulib_fs_copyout(@ARGV);
 136 }
 137 elsif ($cmd eq 'rm')
 138 {
 139     mc_ulib_fs_rm(@ARGV);
 140 }
 141 else
 142 {
 143     exit(1);
 144 }