From ffccd5b2b05243e7976db80f90f453dccfae9886 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 22:22:03 +0200
Subject: Adding upstream version 3:4.8.30.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 src/vfs/extfs/helpers/rpms+.in | 66 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 src/vfs/extfs/helpers/rpms+.in

(limited to 'src/vfs/extfs/helpers/rpms+.in')

diff --git a/src/vfs/extfs/helpers/rpms+.in b/src/vfs/extfs/helpers/rpms+.in
new file mode 100644
index 0000000..9a8e7de
--- /dev/null
+++ b/src/vfs/extfs/helpers/rpms+.in
@@ -0,0 +1,66 @@
+#! @PERL@
+#
+# Written by Balazs Nagy (julian7@kva.hu) 1998
+# locale bugfix by Michal Svec (rebel@penguin.cz) 2000
+# (C) 1998 The Free Software Foundation.
+#
+#
+
+# override any locale for dates
+delete $ENV{"LC_ALL"};
+$ENV{"LC_TIME"}="C";
+
+#print $ENV{"LC_ALL"};
+#exit 0;
+
+sub gd
+{
+    my ($dt) = @_;
+    $dt =~ tr/ //s;
+    $dt =~ s/^\w+ (\w+) (\d+) (\d+:\d+):\d+ .+\n?$/$1 $2 $3/;
+    return $dt;
+}
+
+$DATE=gd(`date`);
+
+sub list
+{
+    my (@rpms, %files, $i, $fn, $dn, $sz, $bt);
+#    @rpms = `rpm -qa --qf "\%{NAME}-\%{VERSION}-\%{RELEASE}:\%{GROUP}:\%{SIZE}:\%{BUILDTIME:date}\n"`;
+    @rpms = `rpm -qa --qf "\%{NAME}-\%{VERSION}:\%{GROUP}:\%{SIZE}:\%{BUILDTIME:date}\n"`;
+    print @trpms;
+    %files = ();
+    %sizes = ();
+    %dates = ();
+    for $i (@rpms) {
+	if ($i =~ /^([^:]+):([^:]+):([^:]+):(.+)$/) {
+	    ($fn, $dn, $sz, $bt) = ($1, $2, $3, $4);
+	    $dn =~ s/ /_/g;
+	    if (defined $files{$dn}) {
+		push(@{$files{$dn}}, $fn);
+	    } else {
+		@{$files{$dn}} = ($fn);
+	    }
+	    $sizes{$fn} = $sz;
+	    $dates{$fn} = gd($bt);
+	}
+    }
+    for $i (sort keys %files) {
+	print "dr-xr-xr-x 1 root root 0 $DATE $i/\n";
+	for $fn (sort @{$files{$i}}) {
+	    print "-r--r--r-- 1 root root $sizes{$fn} $dates{$fn} $i/$fn.trpm\n";
+	}
+    }
+}
+
+#open O, ">>/tmp/tt";
+#print O "RPMS: ";
+#for $i (@ARGV) {
+#    print O "$i ";
+#}
+#print O "\n";
+#close O;
+
+if ($ARGV[0] eq "list") { list(); exit(0); }
+elsif ($ARGV[0] eq "copyout") { open O, ">$ARGV[3]"; print O $ARGV[2], "\n"; close O; exit(0); }
+exit(1);
-- 
cgit v1.2.3