summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-10 12:56:58 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-10 12:56:58 +0000
commit5e3f79e9a036b95eb9508746a5e47acda54586b0 (patch)
treefd6e9f7c056a6c2db37ef781643ebe3e7171456c /perl-install/c/stuff.pm
parentfc5950e2eb1f9c0b7a1553f5717940d880e4853c (diff)
downloaddrakx-5e3f79e9a036b95eb9508746a5e47acda54586b0.tar
drakx-5e3f79e9a036b95eb9508746a5e47acda54586b0.tar.gz
drakx-5e3f79e9a036b95eb9508746a5e47acda54586b0.tar.bz2
drakx-5e3f79e9a036b95eb9508746a5e47acda54586b0.tar.xz
drakx-5e3f79e9a036b95eb9508746a5e47acda54586b0.zip
no_comment
Diffstat (limited to 'perl-install/c/stuff.pm')
-rw-r--r--perl-install/c/stuff.pm29
1 files changed, 29 insertions, 0 deletions
diff --git a/perl-install/c/stuff.pm b/perl-install/c/stuff.pm
new file mode 100644
index 000000000..ad5cf316d
--- /dev/null
+++ b/perl-install/c/stuff.pm
@@ -0,0 +1,29 @@
+package c::stuff;
+
+use strict;
+use vars qw($VERSION @ISA);
+
+require DynaLoader;
+
+@ISA = qw(DynaLoader);
+$VERSION = '0.01';
+
+bootstrap c::stuff $VERSION;
+
+1;
+
+sub headerGetEntry {
+ my ($h, $q) = @_;
+
+ $q eq 'name' and return headerGetEntry_string($h, RPMTAG_NAME());
+ $q eq 'group' and return headerGetEntry_string($h, RPMTAG_GROUP());
+ $q eq 'version' and return headerGetEntry_string($h, RPMTAG_VERSION());
+ $q eq 'release' and return headerGetEntry_string($h, RPMTAG_RELEASE());
+ $q eq 'summary' and return headerGetEntry_string($h, RPMTAG_SUMMARY());
+ $q eq 'description' and return headerGetEntry_string($h, RPMTAG_DESCRIPTION());
+ $q eq 'arch' and return headerGetEntry_string($h, RPMTAG_ARCH());
+ $q eq 'size' and return headerGetEntry_int($h, RPMTAG_SIZE());
+ $q eq 'filenames' and return headerGetEntry_string_list($h, RPMTAG_FILENAMES());
+ $q eq 'obsoletes' and return headerGetEntry_string_list($h, RPMTAG_OBSOLETES());
+}
+