src/vfs/extfs/helpers/rpms+.in

   1 #! @PERL@
   2 #
   3 # Written by Balazs Nagy (julian7@kva.hu) 1998
   4 # locale bugfix by Michal Svec (rebel@penguin.cz) 2000
   5 # (C) 1998 The Free Software Foundation.
   6 #
   7 #
   8
   9 # override any locale for dates
  10 delete $ENV{"LC_ALL"};
  11 $ENV{"LC_TIME"}="C";
  12
  13 #print $ENV{"LC_ALL"};
  14 #exit 0;
  15
  16 sub gd
  17 {
  18     my ($dt) = @_;
  19     $dt =~ tr/ //s;
  20     $dt =~ s/^\w+ (\w+) (\d+) (\d+:\d+):\d+ .+\n?$/$1 $2 $3/;
  21     return $dt;
  22 }
  23
  24 $DATE=gd(`date`);
  25
  26 sub list
  27 {
  28     my (@rpms, %files, $i, $fn, $dn, $sz, $bt);
  29 #    @rpms = `rpm -qa --qf "\%{NAME}-\%{VERSION}-\%{RELEASE}:\%{GROUP}:\%{SIZE}:\%{BUILDTIME:date}\n"`;
  30     @rpms = `rpm -qa --qf "\%{NAME}-\%{VERSION}:\%{GROUP}:\%{SIZE}:\%{BUILDTIME:date}\n"`;
  31     print @trpms;
  32     %files = ();
  33     %sizes = ();
  34     %dates = ();
  35     for $i (@rpms) {
  36         if ($i =~ /^([^:]+):([^:]+):([^:]+):(.+)$/) {
  37             ($fn, $dn, $sz, $bt) = ($1, $2, $3, $4);
  38             $dn =~ s/ /_/g;
  39             if (defined $files{$dn}) {
  40                 push(@{$files{$dn}}, $fn);
  41             } else {
  42                 @{$files{$dn}} = ($fn);
  43             }
  44             $sizes{$fn} = $sz;
  45             $dates{$fn} = gd($bt);
  46         }
  47     }
  48     for $i (sort keys %files) {
  49         print "dr-xr-xr-x 1 0    0    0 $DATE $i/\n";
  50         for $fn (sort @{$files{$i}}) {
  51             print "-r--r--r-- 1 0    0    $sizes{$fn} $dates{$fn} $i/$fn.trpm\n";
  52         }
  53     }
  54 }
  55
  56 #open O, ">>/tmp/tt";
  57 #print O "RPMS: ";
  58 #for $i (@ARGV) {
  59 #    print O "$i ";
  60 #}
  61 #print O "\n";
  62 #close O;
  63
  64 if ($ARGV[0] eq "list") { list(); exit(0); }
  65 elsif ($ARGV[0] eq "copyout") { open O, ">$ARGV[3]"; print O $ARGV[2], "\n"; close O; exit(0); }
  66 exit(1);