modules/extfs/rpms

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