aboutsummaryrefslogtreecommitdiffstats
path: root/URPM/Query.pm
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2004-04-21 09:25:54 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2004-04-21 09:25:54 +0000
commita1aa75d585d82aa9823a81408e4dc79f470d7069 (patch)
treeb49df8d0b3e70ce4e55512523441b402ac4213ed /URPM/Query.pm
parenta285a909e44e449692b7390ef3449b04281ff812 (diff)
downloadperl-URPM-a1aa75d585d82aa9823a81408e4dc79f470d7069.tar
perl-URPM-a1aa75d585d82aa9823a81408e4dc79f470d7069.tar.gz
perl-URPM-a1aa75d585d82aa9823a81408e4dc79f470d7069.tar.bz2
perl-URPM-a1aa75d585d82aa9823a81408e4dc79f470d7069.tar.xz
perl-URPM-a1aa75d585d82aa9823a81408e4dc79f470d7069.zip
- add list_rpm_tag function
Diffstat (limited to 'URPM/Query.pm')
-rw-r--r--URPM/Query.pm164
1 files changed, 4 insertions, 160 deletions
diff --git a/URPM/Query.pm b/URPM/Query.pm
index 7929ce6..01548e8 100644
--- a/URPM/Query.pm
+++ b/URPM/Query.pm
@@ -7,171 +7,13 @@ use strict;
# URPM low level query on rpm header
# $Id$
-# RPMTAG_ list from rpmlib.h
-
-my %taglist = (
- NAME => 1000,
- VERSION => 1001,
- RELEASE => 1002,
- EPOCH => 1003,
- SUMMARY => 1004,
- DESCRIPTION => 1005,
- BUILDTIME => 1006,
- BUILDHOST => 1007,
- INSTALLTIME => 1008,
- SIZE => 1009,
- DISTRIBUTION => 1010,
- VENDOR => 1011,
- GIF => 1012,
- XPM => 1013,
- LICENSE => 1014,
- PACKAGER => 1015,
- GROUP => 1016,
-
- CHANGELOG => 1017,
-
- SOURCE => 1018,
- PATCH => 1019,
- URL => 1020,
- OS => 1021,
- ARCH => 1022,
- PREIN => 1023,
- POSTIN => 1024,
- PREUN => 1025,
- POSTUN => 1026,
- OLDFILENAMES => 1027,
- FILESIZES => 1028,
- FILESTATES => 1029,
- FILEMODES => 1030,
- FILEUIDS => 1031,
- FILEGIDS => 1032,
- FILERDEVS => 1033,
- FILEMTIMES => 1034,
- FILEMD5S => 1035,
- FILELINKTOS => 1036,
- FILEFLAGS => 1037,
-
- ROOT => 1038,
-
- FILEUSERNAME => 1039,
- FILEGROUPNAME => 1040,
-
- EXCLUDE => 1041,
- EXCLUSIVE => 1042,
-
- ICON => 1043,
- SOURCERPM => 1044,
- FILEVERIFYFLAGS => 1045,
- ARCHIVESIZE => 1046,
- PROVIDENAME => 1047,
- REQUIREFLAGS => 1048,
- REQUIRENAME => 1049,
- REQUIREVERSION => 1050,
- NOSOURCE => 1051,
- NOPATCH => 1052,
- CONFLICTFLAGS => 1053,
- CONFLICTNAME => 1054,
- CONFLICTVERSION => 1055,
- DEFAULTPREFIX => 1056,
- BUILDROOT => 1057,
- INSTALLPREFIX => 1058,
- EXCLUDEARCH => 1059,
- EXCLUDEOS => 1060,
- EXCLUSIVEARCH => 1061,
- EXCLUSIVEOS => 1062,
- AUTOREQPROV => 1063,
- RPMVERSION => 1064,
- TRIGGERSCRIPTS => 1065,
- TRIGGERNAME => 1066,
- TRIGGERVERSION => 1067,
- TRIGGERFLAGS => 1068,
- TRIGGERINDEX => 1069,
- VERIFYSCRIPT => 1079,
- CHANGELOGTIME => 1080,
- CHANGELOGNAME => 1081,
- CHANGELOGTEXT => 1082,
-
- BROKENMD5 => 1083,
-
- PREREQ => 1084,
- PREINPROG => 1085,
- POSTINPROG => 1086,
- PREUNPROG => 1087,
- POSTUNPROG => 1088,
- BUILDARCHS => 1089,
- OBSOLETENAME => 1090,
- VERIFYSCRIPTPROG => 1091,
- TRIGGERSCRIPTPROG => 1092,
- DOCDIR => 1093,
- COOKIE => 1094,
- FILEDEVICES => 1095,
- FILEINODES => 1096,
- FILELANGS => 1097,
- PREFIXES => 1098,
- INSTPREFIXES => 1099,
- TRIGGERIN => 1100,
- TRIGGERUN => 1101,
- TRIGGERPOSTUN => 1102,
- AUTOREQ => 1103,
- AUTOPROV => 1104,
-
- CAPABILITY => 1105,
-
- SOURCEPACKAGE => 1106,
-
- OLDORIGFILENAMES => 1107,
-
- BUILDPREREQ => 1108,
- BUILDREQUIRES => 1109,
- BUILDCONFLICTS => 1110,
-
- BUILDMACROS => 1111,
-
- PROVIDEFLAGS => 1112,
- PROVIDEVERSION => 1113,
- OBSOLETEFLAGS => 1114,
- OBSOLETEVERSION => 1115,
- DIRINDEXES => 1116,
- BASENAMES => 1117,
- DIRNAMES => 1118,
- ORIGDIRINDEXES => 1119,
- ORIGBASENAMES => 1120,
- ORIGDIRNAMES => 1121,
- OPTFLAGS => 1122,
- DISTURL => 1123,
- PAYLOADFORMAT => 1124,
- PAYLOADCOMPRESSOR => 1125,
- PAYLOADFLAGS => 1126,
- INSTALLCOLOR => 1127,
- INSTALLTID => 1128,
- REMOVETID => 1129,
-
- SHA1RHN => 1130,
-
- RHNPLATFORM => 1131,
- PLATFORM => 1132,
- PATCHESNAME => 1133,
- PATCHESFLAGS => 1134,
- PATCHESVERSION => 1135,
- CACHECTIME => 1136,
- CACHEPKGPATH => 1137,
- CACHEPKGSIZE => 1138,
- CACHEPKGMTIME => 1139,
- FILECOLORS => 1140,
- FILECLASS => 1141,
- CLASSDICT => 1142,
- FILEDEPENDSX => 1143,
- FILEDEPENDSN => 1144,
- DEPENDSDICT => 1145,
- SOURCEPKGID => 1146,
-);
-
# tag2id
# INPUT array of rpm tag name
# Return an array of ID tag
sub tag2id {
- map { $taglist{uc($_)} || undef } @_;
+ my %taglist = URPM::list_rpm_tag;
+ map { $taglist{uc("RPMTAG_$_")} || undef } @_;
}
# id2tag
@@ -180,9 +22,11 @@ sub tag2id {
sub id2tag {
my @id = @_;
+ my %taglist = URPM::list_rpm_tag;
my @ret;
foreach my $thisid (@id) {
my $res = grep { $taglist{$_} == $thisid } keys (%taglist);
+ $res =~ s/^RPMTAG_//;
push (@ret, $res ? $res : undef);
}
@ret