This is an automated email from the git hooks/post-receive script. x2go pushed a change to branch master in repository buildscripts. from a0a9527 bin/createsusetagsrepo: add some more (but unrelated) content. new 0269515 perl/modules/: add RPMQ.pm perl module from SuSE inst-source-utils, needed for another script. new f2fd6db bin/createsusetagsrepo: add actual initial metadata creation. new 4110038 bin/: copy create_package_descr perl script from SuSE inst-source-utils package. The 3 revisions listed above as "new" are entirely new to this repository and will be described in separate emails. The revisions listed as "adds" were already present in the repository and have only been added to this reference. Summary of changes: bin/create_package_descr | 709 ++++++++++++++++++++++++++++++++++++++++++++++ bin/createsusetagsrepo | 44 ++- perl/modules/RPMQ.pm | 485 +++++++++++++++++++++++++++++++ 3 files changed, 1237 insertions(+), 1 deletion(-) create mode 100755 bin/create_package_descr create mode 100644 perl/modules/RPMQ.pm -- Alioth's /srv/git/code.x2go.org/buildscripts.git//..//_hooks_/post-receive-email on /srv/git/code.x2go.org/buildscripts.git
This is an automated email from the git hooks/post-receive script. x2go pushed a commit to branch master in repository buildscripts. commit 0269515e624393d8d87bce55dc8249fea7dbdb6c Author: Mihai Moldovan <ionic@ionic.de> Date: Sat Oct 29 05:09:21 2016 +0200 perl/modules/: add RPMQ.pm perl module from SuSE inst-source-utils, needed for another script. --- perl/modules/RPMQ.pm | 485 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 485 insertions(+) diff --git a/perl/modules/RPMQ.pm b/perl/modules/RPMQ.pm new file mode 100644 index 0000000..c34b47f --- /dev/null +++ b/perl/modules/RPMQ.pm @@ -0,0 +1,485 @@ +# +# RPMQ.pm -- a simple query API for RPM-files. +# +# Copyright (C) 2006 Novell Inc. +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the +# Free Software Foundation, Inc., +# 51 Franklin Street, +# Fifth Floor, +# Boston, MA 02110-1301, +# USA. +# +# Revision: $Revision$ +# +# ........... mls all basic query functions, +# 2004-11-24, jw renamed from RPM.pm to RPMQ.pm to avoid name-clash with cpan modules. +# added %STAG, the following methods now accept numeric AND symbolic tags: +# %ref = RPMQ::rpmq_many($file, @tags); +# @val = RPMQ::rpmq($filename, $tag); +# 2004-11-25, mls add support for signature header queries + +require Data::Dumper; +package RPMQ; + +my %STAG = ( + "HEADERIMAGE" => 61, + "HEADERSIGNATURES" => 62, + "HEADERIMMUTABLE" => 63, + "HEADERREGIONS" => 64, + "HEADERI18NTABLE" => 100, + "SIGSIZE" => 256+1, + "SIGLEMD5_1" => 256+2, # /*!< internal - obsolete */ + "SIGPGP" => 256+3, + "SIGLEMD5_2" => 256+4, # /*!< internal - obsolete */ + "SIGMD5" => 256+5, + "SIGGPG" => 256+6, + "SIGPGP5" => 256+7, # /*!< internal - obsolete */ + "BADSHA1_1" => 256+8, + "BADSHA1_2" => 256+9, + "PUBKEYS" => 256+10, + "DSAHEADER" => 256+11, + "RSAHEADER" => 256+12, + "SHA1HEADER" => 256+13, + + "SIGTAG_SIZE" => 1000, # /*!< internal Header+Payload size in bytes. */ + "SIGTAG_LEMD5_1" => 1001, # /*!< internal Broken MD5, take 1 @deprecated legacy. */ + "SIGTAG_PGP" => 1002, # /*!< internal PGP 2.6.3 signature. */ + "SIGTAG_LEMD5_2" => 1003, # /*!< internal Broken MD5, take 2 @deprecated legacy. */ + "SIGTAG_MD5" => 1004, # /*!< internal MD5 signature. */ + "SIGTAG_GPG" => 1005, # /*!< internal GnuPG signature. */ + "SIGTAG_PGP5" => 1006, # /*!< internal PGP5 signature @deprecated legacy. */ + "SIGTAG_PAYLOADSIZE" => 1007, # /*!< internal uncompressed payload size in bytes. */ + "SIGTAG_BADSHA1_1" => 256+8, # /*!< internal Broken SHA1, take 1. */ + "SIGTAG_BADSHA1_2" => 256+9, # /*!< internal Broken SHA1, take 2. */ + "SIGTAG_SHA1" => 256+13, # /*!< internal sha1 header digest. */ + "SIGTAG_DSA" => 256+11, # /*!< internal DSA header signature. */ + "SIGTAG_RSA" => 256+12, # /*!< internal RSA header signature. */ + + + "NAME" => 1000, + "VERSION" => 1001, + "RELEASE" => 1002, + "EPOCH" => 1003, + "SERIAL" => 1003, + "SUMMARY" => 1004, + "DESCRIPTION" => 1005, + "BUILDTIME" => 1006, + "BUILDHOST" => 1007, + "INSTALLTIME" => 1008, + "SIZE" => 1009, + "DISTRIBUTION" => 1010, + "VENDOR" => 1011, + "GIF" => 1012, + "XPM" => 1013, + "LICENSE" => 1014, + "COPYRIGHT" => 1014, + "PACKAGER" => 1015, + "GROUP" => 1016, + "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, + "FILERDEVS" => 1033, + "FILEMTIMES" => 1034, + "FILEMD5S" => 1035, + "FILELINKTOS" => 1036, + "FILEFLAGS" => 1037, + "FILEUSERNAME" => 1039, + "FILEGROUPNAME" => 1040, + "ICON" => 1043, + "SOURCERPM" => 1044, + "FILEVERIFYFLAGS" => 1045, + "ARCHIVESIZE" => 1046, + "PROVIDENAME" => 1047, + "PROVIDES" => 1047, + "REQUIREFLAGS" => 1048, + "REQUIRENAME" => 1049, + "REQUIREVERSION" => 1050, + "NOSOURCE" => 1051, + "NOPATCH" => 1052, + "CONFLICTFLAGS" => 1053, + "CONFLICTNAME" => 1054, + "CONFLICTVERSION" => 1055, + "EXCLUDEARCH" => 1059, + "EXCLUDEOS" => 1060, + "EXCLUSIVEARCH" => 1061, + "EXCLUSIVEOS" => 1062, + "RPMVERSION" => 1064, + "TRIGGERSCRIPTS" => 1065, + "TRIGGERNAME" => 1066, + "TRIGGERVERSION" => 1067, + "TRIGGERFLAGS" => 1068, + "TRIGGERINDEX" => 1069, + "VERIFYSCRIPT" => 1079, + "CHANGELOGTIME" => 1080, + "CHANGELOGNAME" => 1081, + "CHANGELOGTEXT" => 1082, + "PREINPROG" => 1085, + "POSTINPROG" => 1086, + "PREUNPROG" => 1087, + "POSTUNPROG" => 1088, + "BUILDARCHS" => 1089, + "OBSOLETENAME" => 1090, + "OBSOLETES" => 1090, + "VERIFYSCRIPTPROG" => 1091, + "TRIGGERSCRIPTPROG" => 1092, + "COOKIE" => 1094, + "FILEDEVICES" => 1095, + "FILEINODES" => 1096, + "FILELANGS" => 1097, + "PREFIXES" => 1098, + "INSTPREFIXES" => 1099, + "SOURCEPACKAGE" => 1106, + "PROVIDEFLAGS" => 1112, + "PROVIDEVERSION" => 1113, + "OBSOLETEFLAGS" => 1114, + "OBSOLETEVERSION" => 1115, + "DIRINDEXES" => 1116, + "BASENAMES" => 1117, + "DIRNAMES" => 1118, + "OPTFLAGS" => 1122, + "DISTURL" => 1123, + "PAYLOADFORMAT" => 1124, + "PAYLOADCOMPRESSOR" => 1125, + "PAYLOADFLAGS" => 1126, + "INSTALLCOLOR" => 1127, + "INSTALLTID" => 1128, + "REMOVETID" => 1129, + "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, + "PRETRANS" => 1151, + "POSTTRANS" => 1152, + "PRETRANSPROG" => 1153, + "POSTTRANSPROG" => 1154, + "DISTTAG" => 1155, + "SUGGESTSNAME" => 1156, + "SUGGESTSVERSION" => 1157, + "SUGGESTSFLAGS" => 1158, + "ENHANCESNAME" => 1159, + "ENHANCESVERSION" => 1160, + "ENHANCESFLAGS" => 1161, + "FILEDIGESTALGOS" => 1177, + "FILEDIGESTALGO" => 5011, +); + +sub RPMSENSE_MISSINGOK () { 0x80000 } +sub RPMSENSE_STRONG () { 0x8000000 } + +sub rpmpq { + my $rpm = shift; + local *RPM; + + return undef unless open(RPM, "< $rpm"); + my $head; + if (sysread(RPM, $head, 75) < 11) { + close RPM; + return undef; + } + close RPM; + my $name = unpack('@10Z65', $head); + return $name if length($name) < 65; + my %q = rpmq_many($rpm, 'NAME', 'VERSION', 'RELEASE'); + return "$q{'NAME'}->[0]-$q{'VERSION'}->[0]-$q{'RELEASE'}->[0]"; +} + +sub rpmq { + my $rpm = shift; + my $stag = shift; + + my %ret = rpmq_many($rpm, $stag); + return @{$ret{$stag} || [undef]}; +} + +# do not mix numeric tags with symbolic tags. +# special symbolic tag 'FILENAME' exists. +sub rpmq_many { + my $rpm = shift; + my @stags = @_; + + my @sigtags = grep {/^SIGTAG_/} @stags; + @stags = grep {!/^SIGTAG_/} @stags; + my $dosigs = @sigtags && !@stags; + @stags = @sigtags if $dosigs; + + my %vtags = map {$_ => 1} @stags; + my $need_filenames = $vtags{'FILENAMES'}; + push @stags, 'BASENAMES', 'DIRNAMES', 'DIRINDEXES', 'OLDFILENAMES' if $need_filenames; + @stags = grep { $_ ne 'FILENAMES' } @stags if $need_filenames; + my %stags = map {0+($STAG{$_} or $_) => $_} @stags; + + my ($magic, $sigtype, $headmagic, $cnt, $cntdata, $lead, $head, $index, $data, $tag, $type, $offset, $count); + + local *RPM; + if (ref($rpm) eq 'ARRAY') { + ($headmagic, $cnt, $cntdata) = unpack('N@8NN', $rpm->[0]); + if ($headmagic != 0x8eade801) { + warn("Bad rpm\n"); + return (); + } + if (length($rpm->[0]) < 16 + $cnt * 16 + $cntdata) { + warn("Bad rpm\n"); + return (); + } + $index = substr($rpm->[0], 16, $cnt * 16); + $data = substr($rpm->[0], 16 + $cnt * 16, $cntdata); + } else { + if (ref($rpm) eq 'GLOB') { + *RPM = $rpm; + } elsif (!open(RPM, "<$rpm")) { + warn("$rpm: $!\n"); + return (); + } + if (read(RPM, $lead, 96) != 96) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + ($magic, $sigtype) = unpack('N@78n', $lead); + if ($magic != 0xedabeedb || $sigtype != 5) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + if (read(RPM, $head, 16) != 16) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + ($headmagic, $cnt, $cntdata) = unpack('N@8NN', $head); + if ($headmagic != 0x8eade801) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + if (read(RPM, $index, $cnt * 16) != $cnt * 16) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + $cntdata = ($cntdata + 7) & ~7; + if (read(RPM, $data, $cntdata) != $cntdata) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + } + + my %res = (); + + if (@sigtags && !$dosigs) { + %res = &rpmq_many(["$head$index$data"], @sigtags); + } + if (ref($rpm) eq 'ARRAY' && !$dosigs && @stags && @$rpm > 1) { + my %res2 = &rpmq_many([ $rpm->[1] ], @stags); + %res = (%res, %res2); + return %res; + } + + if ($vtags{'HEADERSTART'}) { + $res{'HEADERSTART'} = [ 96 + 16 + 16 * $cnt + $cntdata ]; + } + + if (ref($rpm) ne 'ARRAY' && !$dosigs && @stags) { + if (read(RPM, $head, 16) != 16) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + ($headmagic, $cnt, $cntdata) = unpack('N@8NN', $head); + if ($headmagic != 0x8eade801) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + if (read(RPM, $index, $cnt * 16) != $cnt * 16) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + if (read(RPM, $data, $cntdata) != $cntdata) { + warn("Bad rpm $rpm\n"); + close RPM; + return (); + } + } + if ($vtags{'HEADEREND'}) { + $res{'HEADEREND'} = ($res{'HEADERSTART'} || 0) + 16 + 16 * $cnt + $cntdata; + @stags = grep {$_ ne 'HEADERSTART' && $_ ne 'HEADEREND'} @stags; + } + if ($vtags{'EXTRA'}) { + my $offset = 96 + 16 + 16 * $cnt + $cntdata; + my $extradata; + read(RPM, $extradata, 1024, $offset); + chomp($extradata); + my %extras = map{split /\:/, $_}(split / /, $extradata); + $res{'EXTRA'} = [\%extras]; + close RPM; + } + close RPM if ref($rpm) ne 'ARRAY'; + + return %res unless @stags; # nothing to do + + while($cnt-- > 0) { + ($tag, $type, $offset, $count, $index) = unpack('N4a*', $index); + $tag = 0+$tag; + if ($stags{$tag}) { + eval { + my $otag = $stags{$tag}; + if ($type == 0) { + $res{$otag} = [ '' ]; + } elsif ($type == 1) { + $res{$otag} = [ unpack("\@${offset}c$count", $data) ]; + } elsif ($type == 2) { + $res{$otag} = [ unpack("\@${offset}c$count", $data) ]; + } elsif ($type == 3) { + $res{$otag} = [ unpack("\@${offset}n$count", $data) ]; + } elsif ($type == 4) { + $res{$otag} = [ unpack("\@${offset}N$count", $data) ]; + } elsif ($type == 5) { + $res{$otag} = [ undef ]; + } elsif ($type == 6) { + $res{$otag} = [ unpack("\@${offset}Z*", $data) ]; + } elsif ($type == 7) { + $res{$otag} = [ unpack("\@${offset}a$count", $data) ]; + } elsif ($type == 8 || $type == 9) { + my $d = unpack("\@${offset}a*", $data); + my @res = split("\0", $d, $count + 1); + $res{$otag} = [ splice @res, 0, $count ]; + } else { + $res{$otag} = [ undef ]; + } + }; + if ($@) { + warn("Bad rpm $rpm: $@\n"); + return (); + } + } + } + + if ($need_filenames) { + if ($res{'OLDFILENAMES'}) { + $res{'FILENAMES'} = [ @{$res{'OLDFILENAMES'}} ]; + } else { + my $i = 0; + $res{'FILENAMES'} = [ map {"$res{'DIRNAMES'}->[$res{'DIRINDEXES'}->[$i++]]$_"} @{$res{'BASENAMES'}} ]; + } + } + return %res; +} + +sub rpmq_add_flagsvers { + my $res = shift; + my $name = shift; + my $flags = shift; + my $vers = shift; + my $addx = shift; + + return unless $res; + my @flags = @{$res->{$flags} || []}; + my @vers = @{$res->{$vers} || []}; + for (@{$res->{$name}}) { + $_ = "?$_" if $addx && $flags[0] & 0x80000; + $_ = "#$_" if $addx && $flags[0] & 0x8000000; + if (@flags && ($flags[0] & 0xe) && @vers) { + $_ .= ' '; + $_ .= '<' if $flags[0] & 2; + $_ .= '>' if $flags[0] & 4; + $_ .= '=' if $flags[0] & 8; + $_ .= " $vers[0]"; + } + shift @flags; + shift @vers; + } +} + +sub rpmq_provreq { + my $rpm = shift; + + my @prov = (); + my @req = (); + my $r; + my %res = rpmq_many($rpm, 1047, 1049, 1048, 1050, 1112, 1113); + rpmq_add_flagsvers(\%res, 1047, 1112, 1113); + rpmq_add_flagsvers(\%res, 1049, 1048, 1050); + return $res{1047}, $res{1049}; +} + +1; + +__END__ + +=head1 NAME + +RPMQ - a simple query-API for RPM-files + +=head1 SYNOPSIS + + use RPMQ; + + $rpmname = RPMQ::rpmpq($rpmfile); # returns "name-version-rel" + %r = RPMQ::rpmq_many($rpmfile, @tags); # returns hash of array-refs + @v = RPMQ::rpmq($rpmfile, $tag); # returns array-ref + + ($prov, $req) = RPMQ::rpmq_provreq($rpmfile); # returns 2 array-refs + + %r = RPMQ::rpmq_many($rpmfile, qw{REQUIRENAME REQUIREFLAGS REQUIREVERSION}); + RPMQ::rpmq_add_flagsvers(\%r, qw{REQUIRENAME REQUIREFLAGS REQUIREVERSION}); + print join "\n", @{$r{REQUIRENAME}}, ""; + + +=head1 DESCRIPTION + +Common tag names are: + "NAME" => 1000, + "VERSION" => 1001, + "RELEASE" => 1002, + "SUMMARY" => 1004, + "DESCRIPTION" => 1005, + "BUILDTIME" => 1006, + "BUILDHOST" => 1007, + "SIZE" => 1009, + "COPYRIGHT" => 1014, + "ARCH" => 1022, + "SOURCERPM" => 1044, + "DISTURL" => 1123, + +The additional tag 'FILENAMES' is also understood by rpmq_many() and +rpmq(). It returns a list of full filenames (like OLDFILENAMES did in +rpm3) constructed from DIRNAMES, DIRINDEXES and BASENAMES. + +=cut -- Alioth's /srv/git/code.x2go.org/buildscripts.git//..//_hooks_/post-receive-email on /srv/git/code.x2go.org/buildscripts.git
This is an automated email from the git hooks/post-receive script. x2go pushed a commit to branch master in repository buildscripts. commit f2fd6db0f69e0dd6daad81033b4622b1409a45ef Author: Mihai Moldovan <ionic@ionic.de> Date: Sat Oct 29 05:10:46 2016 +0200 bin/createsusetagsrepo: add actual initial metadata creation. --- bin/createsusetagsrepo | 44 +++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 43 insertions(+), 1 deletion(-) diff --git a/bin/createsusetagsrepo b/bin/createsusetagsrepo index 1afab3a..27b12df 100755 --- a/bin/createsusetagsrepo +++ b/bin/createsusetagsrepo @@ -21,7 +21,7 @@ export PATH="${HOME}/bin:${PATH}" unset CDPATH usage () { - echo "Usage: $(basename "${0}") <top-directory-of-repository>" >&2 + echo "Usage: $(basename "${0}") <top-directory-of-repository> <distro> <component>" >&2 exit "1" } @@ -30,12 +30,54 @@ error () { exit "1" } +create_metadata () { + mkdir "media.1" "descr" + + printf 'X2Go\n%(%Y%m%d%H%M%S)T\n1\n' '-1' > "media.1/media" + printf 'media\n' > "media.1/directory.yast" + + typeset tmp_str="" + read -r -d '' tmp_str << EOF +PRODUCT X2Go ${distro} ${component} +VERSION 1.0-0 +LABEL X2Go ${component} Repository for ${distro} +VENDOR X2Go +ARCH.x86_64 x86_64 i686 i586 i486 i386 noarch +ARCH.k1om k1om noarch +ARCH.ppc64p7 ppc64p7 noarch +ARCH.ppc64 ppc64 ppc noarch +ARCH.ppc64le ppc64le noarch +ARCH.ppc ppc noarch +ARCH.sh4 sh4 noarch +ARCH.m68k m68k noarch +ARCH.aarch64 aarch64 aarch64_ilp32 noarch +ARCH.aarch64_ilp32 aarch64_ilp32 noarch +ARCH.armv4l arm armv4l noarch +ARCH.armv5l arm armel armv4l armv5l armv5tel noarch +ARCH.armv6l arm armel armv4l armv5l armv5tel armv6l armv6vl armv6hl noarch +ARCH.armv7l arm armel armv4l armv5l armv5tel armv6l armv6vl armv7l armv7hl noarch +ARCH.i686 i686 i586 i486 i386 noarch +ARCH.i586 i586 i486 i386 noarch +DEFAULTBASE i586 +DESCRDIR descr +DATADIR . +EOF + + printf '%s\n' "${tmp_str}" > "content" +} + set -e repo_top_dir="${1}" +distro="${2:?"No distribution string provided."}" +component="${2:?"No component string provided."}" + test -n "${repo_top_dir}" || usage cd "${repo_top_dir}" || error "Unable to switch to provided repository top directory." +create_metadata + + exit "0" -- Alioth's /srv/git/code.x2go.org/buildscripts.git//..//_hooks_/post-receive-email on /srv/git/code.x2go.org/buildscripts.git
This is an automated email from the git hooks/post-receive script. x2go pushed a commit to branch master in repository buildscripts. commit 41100385bec612eaae927c5768e3c1b7e7fe3592 Author: Mihai Moldovan <ionic@ionic.de> Date: Sat Oct 29 05:12:12 2016 +0200 bin/: copy create_package_descr perl script from SuSE inst-source-utils package. --- bin/create_package_descr | 709 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 709 insertions(+) diff --git a/bin/create_package_descr b/bin/create_package_descr new file mode 100755 index 0000000..ada467d --- /dev/null +++ b/bin/create_package_descr @@ -0,0 +1,709 @@ +#!/usr/bin/perl +# +# Copyright (C) 2006 Novell Inc. +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the +# Free Software Foundation, Inc., +# 51 Franklin Street, +# Fifth Floor, +# Boston, MA 02110-1301, +# USA. +# +# $Id: create_package_descr,v 1.29 2008/06/24 18:42:26 lrupp Exp lrupp $ +# + +BEGIN { + $abuild_base_dir = "/usr/share/inst-source-utils"; + unshift @INC, "$abuild_base_dir/modules"; +} + +$| = 1; + +use File::stat; +use FileHandle; +use strict; +use RPMQ; +use Digest::MD5 (); +use Encode; + +my (@DATADIRS,@IGNOREDIRS,@LANGUAGES,%SEEN_PACKAGE,%IGNORE_PACKAGE,@SHA_CACHEDIR); +my %lang_alias = ( "czech"=>"cs", + "english"=>"en", + "french"=>"fr", + "german"=>"de", + "italian"=>"it", + "russian" => "ru", + "spanish"=>"es", + "hungarian"=>"hu" ); +my %tag_short = ("description"=>"Des","notice"=>"Ins","delnotice"=>"Del"); +my $ignored_packages = ""; +my $ignore_sources = "0"; +my $ignore_symlinks = "0"; +my $prefer_yastdescr = "0"; +my $add_licenses = "0"; +my $do_checksums = "0"; +my $do_sha256 = "0"; +my $do_keywords = "0"; +my $have_sha_cache = 0; +my $do_file_list = 0; +my $maxdepth = 255; +my $src_requires = 0; +my $default_lang="english"; +my $add_vendor = 0; +my $allow_shr = 1; +my %used_fallbacks; +my $checksum_binary = "sha1sum"; +my $unused_data_dir = ""; +my $eula_data_dir = ""; +my $ignore_file = ""; +my $ignore_dir = ""; +my $output_dir = ""; +my $extra_requires = ""; +my $extra_provides = ""; +my $extra_tags = ""; +my $with_links = ""; +my $use_headers = "0"; + +my %xprovlist; +my %xreqlist; +my %xtaglist; +my %pkg_lang; + +sub usage { + my $exit_code=shift || 1; + print "Usage: create_package_descr [OPTIONS]\n"; + print " [-d DATADIR1 [-d DATADIR2 [... ] ] ] (default cwd)\n"; + print " [-e EULA_DIR ]\n"; + print " [-x EXTRA_PROV_FILE ]\n"; + print " [-r EXTRA_REQUIRES_FILE]\n"; + print " [-i IGNORE_DIR [ -i IGNORE_DIR [... ] ] ]\n"; + print " [-I IGNORE_FILE ]\n"; + print " [-l LANG1 [-l LANG2 [... ] ] (default $default_lang)\n"; + print " [-o OUTPUT_DIR ] (default `cwd`/setup/descr)\n"; + print " [-c CACHE_DIR ] (default none)\n"; + print " [-M MAXDEPTH ] (default $maxdepth, depth for du-file)\n"; + print " [-T XTAGS_FILE ] (extra tags for the packages file)\n"; + print " [-Z ] (add_licenses)\n"; + print " [-V ] (add_vendor for each rpm)\n"; + print " [-S ] (ignore_sources)\n"; + print " [-P ] (prefer_yastdescr)\n"; + print " [-L ] (ignore_symlinks)\n"; + print " [-C ] (do_checksums)\n"; + print " [-D ] (do_sha256_checksums)\n"; + print " [-K ] (do_keywords)\n"; + print " [-F ] (do_file_list)\n"; + print " [-B ] (add requires for src packages)\n\n"; + print " [-Q ] (never use Shr tags)\n"; + print " [-H ] (Use headers)\n\n"; + print " Note: the -T option allows to add additional tags to the\n"; + print " resulting packages file.\n"; + print " The file should contain the package name, a colon and\n"; + print " a whitespace. Afterwards, additional tags in one line\n"; + print " (newlines can be produced via \\n).\n"; + print " Example: 3ddiag: +Kwd:\\nsupport_l3\\n-Kwd:\n"; + exit $exit_code; +} + +sub filter_weak { + my ($r, $tn, $tf) = @_; + my @tf = @{$r->{$tf} || []}; + my @res; + for (@{$r->{$tn}}) { + push @res, $_ unless (shift @tf) & 0x8000000; + } + return @res; +} + +sub filter_strong { + my ($r, $tn, $tf) = @_; + my @tf = @{$r->{$tf} || []}; + my @res; + for (@{$r->{$tn}}) { + push @res, $_ if (shift @tf) & 0x8000000; + } + return @res; +} + +my @SAVEARGS; + +for (@ARGV) { + push @SAVEARGS, $_; +} + +while ( my $arg = shift ( @ARGV ) ) { + if ( $arg eq "-d" ) { push @DATADIRS , shift @ARGV ; } + elsif ( $arg eq "-B" ) { $src_requires = 1; } + elsif ( $arg eq "-V" ) { $add_vendor = 1; } + elsif ( $arg eq "-C" ) { $do_checksums = "1"; } + elsif ( $arg eq "-D" ) { $do_checksums = "1"; $do_sha256 = "1"; $checksum_binary = "sha256sum"; } + elsif ( $arg eq "-F" ) { $do_file_list = 1; } + elsif ( $arg eq "-H" ) { $use_headers = 1; } + elsif ( $arg eq "-I" ) { $ignore_file = shift @ARGV ; } + elsif ( $arg eq "-K" ) { $do_keywords = "1"; } + elsif ( $arg eq "-L" ) { $ignore_symlinks = "1"; } + elsif ( $arg eq "-M" ) { $maxdepth = shift @ARGV ; } + elsif ( $arg eq "-P" ) { $prefer_yastdescr = "1"; } + elsif ( $arg eq "-S" ) { $ignore_sources = "1"; } + elsif ( $arg eq "-Z" ) { $add_licenses = "1" ; } + elsif ( $arg eq "-Q" ) { $allow_shr = 0; } + elsif ( $arg eq "-c" ) { push @SHA_CACHEDIR , shift @ARGV ; } + elsif ( $arg eq "-i" ) { push @IGNOREDIRS, shift @ARGV ; } + elsif ( $arg eq "-l" ) { push @LANGUAGES , shift @ARGV ; } + elsif (( $arg eq "-h" ) || ( $arg eq "--help" )) { shift @ARGV ; usage(0); } + elsif ( $arg eq "-o" ) { $output_dir = shift @ARGV ; } + elsif ( $arg eq "-p" ) { $unused_data_dir = shift @ARGV ; } + elsif ( $arg eq "-e" ) { $eula_data_dir = shift @ARGV ; } + elsif ( $arg eq "-r" ) { $extra_requires = shift @ARGV ; } + elsif ( $arg eq "-x" ) { $extra_provides = shift @ARGV ; } + elsif ( $arg eq "-T" ) { $extra_tags = shift @ARGV ; } + else { + print STDERR "\nunknown parameter $arg\n\n"; + usage(1); + } +} + +if ( $ignore_symlinks eq "1" ) { + $with_links = "-type f"; +} else { + $with_links = ""; +} + +for (@SHA_CACHEDIR) { + $have_sha_cache++ if ( -d $_ ); +} + +push @DATADIRS , "." unless ( @DATADIRS ); +push @LANGUAGES , "$default_lang" unless ( @LANGUAGES ); +$output_dir = "./setup/descr/" unless ( $output_dir ); + +print "INFO: datadirs : ".join(",",@DATADIRS)."\n"; +print "INFO: languages : ".join(",",@LANGUAGES)."\n"; +print "INFO: output dir : $output_dir\n"; + +if ( $extra_provides ) { + if ( -f $extra_provides ) { + print "INFO: extra_provides : $extra_provides\n"; + %xprovlist = %{ReadFileToHash( $extra_provides )}; + } else { + print "WARNING: extra_provides : file $extra_provides not found!\n"; + } +} else { + print "WARNING: -x not specified\n"; + print "WARNING: this means all provides like /bin/sh will be missing\n"; +} + +if ( $extra_requires ) { + if ( -f $extra_requires ) { + print "INFO: extra_requires : $extra_requires\n"; + %xreqlist = %{ReadFileToHash( $extra_requires )}; + } else { + print "WARNING: extra_requires : file $extra_requires not found!\n"; + } +} +if ( $extra_tags ) { + if ( -f $extra_tags ) { + print "INFO: extra_tags : $extra_tags\n"; + %xtaglist = %{ReadFileToHash( $extra_tags )}; + } else { + print "WARNING: extra_tags : file $extra_tags not found!\n"; + } +} + +unless ( -d "$output_dir" ) { + print "INFO: creating output directory $output_dir\n"; + mkdir_p("$output_dir"); +} + +if ( @IGNOREDIRS ) { + foreach $ignore_dir (@IGNOREDIRS) { + if ( -d "$ignore_dir" && opendir ( IGNDIR, "$ignore_dir") ) { + while ( my $ign = readdir( IGNDIR ) ) { + next if ( $ign =~ /^\./ ); + $IGNORE_PACKAGE{$ign} = "yes"; + } + closedir ( IGNDIR ); + print "INFO: ignoring packages listed in directory $ignore_dir\n"; + } + } +} + +if ( "$ignore_file" ) { + if ( -f "$ignore_file" && open ( IGNFILE, "$ignore_file" ) ) { + while ( my $ign = <IGNFILE> ) { + chomp ( $ign ); + $IGNORE_PACKAGE{$ign} = "yes"; + } + close ( IGNFILE ); + print "INFO: ignoring packages listed in file $ignore_file\n"; + } +} + +if ( $ignore_sources eq "1" ) { + print "WARNING: ignoring all source packages\n"; +} + +my $pkg_main = OpenFileWrite ( "$output_dir/packages" ); +WriteSEntry( $pkg_main, "Ver", "2.0" ); +foreach my $lang (@LANGUAGES) { + $pkg_lang{$lang} = OpenFileWrite ( "$output_dir/packages.$lang_alias{$lang}" ); + WriteSEntry( $pkg_lang{$lang}, "Ver", "2.0" ); +} +my $pkg_du = OpenFileWrite ( "$output_dir/packages.DU" ); +my $pkg_fl = OpenFileWrite ( "$output_dir/packages.FL" ) if $do_file_list; + +WriteSEntry( $pkg_du, "Ver", "2.0" ); +WriteSEntry( $pkg_fl, "Ver", "2.0" ) if $do_file_list; + +my $media_number = 0; +my $allcounter = 0; +my $wrote_comment = 0; + +foreach my $datapath (@DATADIRS) { + $media_number++; + open ( FIND, "find '$datapath' -maxdepth 2 $with_links -name \"*.[rs]pm\" -print | sort |" ); + my @pkg_arr = (); + my @src_arr = (); + while ( <FIND> ) { + chomp ( $_ ); + next if (/\.delta\.rpm$/); + if ( /\.spm$/ || /src\.rpm$/ ) { + push @src_arr, $_; + } else { + push @pkg_arr, $_; + } + } + close ( FIND ); + foreach my $package (@pkg_arr,@src_arr) { + $allcounter++; + print "INFO: CD$media_number - Pkg: $allcounter\r" if ( -t STDOUT ); + my $filespec = "$package"; + chomp ( $filespec ); + $filespec =~ /\/([^\/]*)$/; + my $filename = $1; + my $filesize; + # name, version, release, arch, obsolete, requires, provides, + # conflicts, copyright, group, buildtime, size, sourcerpm + my %res = RPMQ::rpmq_many("$package", 1000, 1001, 1002, 1022, + 1090, 1114, 1115, + 1047, 1112, 1113, + 1049, 1048, 1050, + 1054, 1053, 1055, + 1156, 1157, 1158, + 1159, 1160, 1161, + 1027, 1116, 1117, 1118, 1030, 1028, 1095, 1096, + 1014, 1016, 1006, 1009, 1044, 1004, 1005, 1011, 1124, + 5046, 5047, 5048, 5049, 5050, 5051, + 5052, 5053, 5054, 5055, 5056, 5057, "HEADERSTART", "SIGTAG_SIZE", "EXTRA" + ); + + # skip delta rpms (if PAYLOADFORMAT eq drpm) + next if ($res{1124}[0] && $res{1124}[0] eq "drpm"); + # + my $data = $res{"SIGTAG_SIZE"}[0]; + my $header = $res{"HEADERSTART"}[0]; + + my @depexcl = $res{1054}; + my @prereq = rpmq_add_req_flagsvers(\%res, 1049, 1048, 1050); # requires + RPMQ::rpmq_add_flagsvers(\%res, 1047, 1112, 1113); # provides + RPMQ::rpmq_add_flagsvers(\%res, 1090, 1114, 1115); # obsoletes + RPMQ::rpmq_add_flagsvers(\%res, 1054, 1053, 1055); # conflicts + + RPMQ::rpmq_add_flagsvers(\%res, 1156, 1158, 1157) if $res{1156}; # oldsuggests + RPMQ::rpmq_add_flagsvers(\%res, 1159, 1161, 1160) if $res{1159}; # oldenhances + + RPMQ::rpmq_add_flagsvers(\%res, 5046, 5048, 5047) if $res{5046}; # recommends + RPMQ::rpmq_add_flagsvers(\%res, 5049, 5051, 5050) if $res{5049}; # suggests + RPMQ::rpmq_add_flagsvers(\%res, 5052, 5054, 5053) if $res{5052}; # supplements + RPMQ::rpmq_add_flagsvers(\%res, 5055, 5057, 5056) if $res{5055}; # enhances + + my $rpm_name = $res{1000}[0]; + if ( $IGNORE_PACKAGE{$rpm_name} && $IGNORE_PACKAGE{$rpm_name} eq "yes" ) { + $ignored_packages .= " $rpm_name"; + next; + } + my @pack_path = split('/',"$package"); + pop @pack_path; # filename + pop @pack_path; # dirname / rpm-arch + my $pack_basedir = join('/',@pack_path); + + my $checksum = ""; + my $dummy = ""; + my $hash = ""; + my $DULIST; + my $FLIST; + my $file_arch; + my %pacdata; + + if ( $use_headers eq "1" ){ + $filesize = $res{'EXTRA'}[0]{size}; + } else { + $filesize = $data + $header; + } + my $srcrpm = $res{1044}[0]; + $srcrpm =~ s/^(.*)-([^-]*)-([^-]*)\.([^\.]*)\.rpm$/$1 $2 $3 $4/; + if ($do_checksums eq "1" && $use_headers ne "1") { + if ( $have_sha_cache ne "0" ) { + my %qq = RPMQ::rpmq_many("$package", qw{SIGTAG_GPG SIGTAG_PGP SIGTAG_SHA1}); + if ( %qq ) { + for (qw{SIGTAG_GPG SIGTAG_PGP SIGTAG_SHA1}) { + $hash .= join('', @{$qq{$_} || []}); + } + $hash = Digest::MD5::md5_hex($hash); + } + for (@SHA_CACHEDIR) { + if ( -f "$_/$rpm_name-$hash" ) { + open ( CSC, "< $_/$rpm_name-$hash" ); + $checksum = <CSC>; + chomp ($checksum); + close ( CSC ); + #print "INFO: re_using checksum for $package ($checksum)\n"; + } + } + if ($do_sha256 eq "1") { + $checksum = "" unless length($checksum) == 64; + } else { + $checksum = "" unless length($checksum) == 40; + } + } + if ( ! $checksum ) { + if ( $res{1044}[0] || $ignore_sources eq "0") { + ($checksum,$dummy) = split('\s+',`$checksum_binary '$package'`); + if ( $have_sha_cache eq "1" ) { + open ( CSC, "> $SHA_CACHEDIR[0]/$rpm_name-$hash" ); + print CSC $checksum; + close ( CSC ); + #print "INFO: wrote checksum for $package ($checksum)\n"; + } + } + } + } + if ($use_headers eq "1") { + if ($checksum_binary == "sha1sum") { + $checksum = $res{'EXTRA'}[0]{sha1}; + }elsif ($checksum_binary == "sha256sum"){ + $checksum = $res{'EXTRA'}[0]{sha256}; + } + } + if ( $res{1044}[0] ) { + ($DULIST,$FLIST) = RpmToDulist($maxdepth, \%res, ''); + $file_arch = $res{1022}[0]; + } else { + next if ( $ignore_sources eq "1" ); + # has no source, so it is a source + if ( $filename =~ /\.spm$/ ) { + $file_arch = "src"; + } else { + $file_arch = "$filename"; + $file_arch =~ s/^.*\.([^\.]*)\.rpm$/$1/; + } + ($DULIST,$FLIST) = RpmToDulist($maxdepth, \%res, 'usr/src/packages/'); + } + my %x_prov = (); + if ( $xprovlist{"$rpm_name.$file_arch"} ) { + foreach my $xprov (split('\s', $xprovlist{"$rpm_name.$file_arch"} )) { + $x_prov{$xprov} = 1; + } + } + # should be else if, but merging both is needed right now + if ( $xprovlist{$rpm_name} ) { + foreach my $xprov (split('\s', $xprovlist{$rpm_name} )) { + $x_prov{$xprov} = 1; + } + } + # add createrepo-style file provides (/etc/*,*bin/*,/usr/lib/sendmail) + foreach $filename (@{$res{1027}}) { + $x_prov{$filename} = 1 if ( $filename =~ /^\/etc\// || $filename =~ /bin\// || $filename eq "/usr/lib/sendmail" ); + } + push @{$res{1047}}, sort keys %x_prov; + # adding additional requires for a package (but not for src packages) + if ($xreqlist{$rpm_name} && $res{1044}[0]) { + foreach my $xreq (split('\s', $xreqlist{$rpm_name} )) { + push (@{$res{1049}},$xreq); + } + } + + WriteSeparator( $pkg_main ); + WriteComment( $pkg_main, @SAVEARGS ) unless $wrote_comment; + WriteSeparator( $pkg_main ) unless $wrote_comment; + $wrote_comment = 1; + WriteSEntry( $pkg_main, "Pkg", "$res{1000}[0] $res{1001}[0] $res{1002}[0] $file_arch"); + if ($do_sha256 eq "1") { + WriteSEntry( $pkg_main, "Cks", "SHA256 $checksum") if ($checksum); + } else { + WriteSEntry( $pkg_main, "Cks", "SHA1 $checksum") if ($checksum); + } + if ( $res{1044}[0] ) { + # has src, so it's a binary package + WriteMEntry( $pkg_main, "Req", @{$res{1049}} ); + WriteMEntry( $pkg_main, "Prq", @prereq ); + WriteMEntry( $pkg_main, "Prv", @{$res{1047}} ); + WriteMEntry( $pkg_main, "Con", @{$res{1054}} ); + WriteMEntry( $pkg_main, "Obs", @{$res{1090}} ); + WriteMEntry( $pkg_main, "Rec", @{$res{5046}} ) if $res{5046}; + WriteMEntry( $pkg_main, "Rec", filter_strong(\%res, 1156, 1158)) if !$res{5046} && $res{1156}; + WriteMEntry( $pkg_main, "Sug", @{$res{5049}} ) if $res{5049}; + WriteMEntry( $pkg_main, "Sug", filter_weak(\%res, 1156, 1158)) if !$res{5049} && $res{1156}; + WriteMEntry( $pkg_main, "Sup", @{$res{5052}} ) if $res{5052}; + WriteMEntry( $pkg_main, "Sup", filter_strong(\%res, 1159, 1161)) if !$res{5052} && $res{1159}; + WriteMEntry( $pkg_main, "Enh", @{$res{5055}} ) if $res{5055}; + WriteMEntry( $pkg_main, "Enh", filter_weak(\%res, 1159, 1161)) if !$res{5055} && $res{1159}; + WriteSEntry( $pkg_main, "Grp", $res{1016}[0] ); + WriteSEntry( $pkg_main, "Lic", $res{1014}[0] ); + WriteSEntry( $pkg_main, "Vnd", $res{1011}[0] ) if $add_vendor; + WriteSEntry( $pkg_main, "Src", $srcrpm ); + WriteSEntry( $pkg_main, "Tim", $res{1006}[0] ); + WriteSEntry( $pkg_main, "Loc", "$media_number $filename"); + } else { + WriteMEntry( $pkg_main, "Req", @{$res{1049}} ) if $src_requires; + WriteSEntry( $pkg_main, "Loc", "$media_number $filename $file_arch"); + } + WriteSEntry( $pkg_main, "Siz", "$filesize $res{1009}[0]" ); + + WriteAnyEntry( $pkg_main, $xtaglist{$rpm_name} ) if ($xtaglist{$rpm_name} && $res{1044}[0]); + + if ($SEEN_PACKAGE{"$rpm_name $res{1001}[0] $res{1002}[0]"} && $allow_shr) { + my $found_in = $SEEN_PACKAGE{"$rpm_name $res{1001}[0] $res{1002}[0]"}; + WriteSEntry( $pkg_main, "Shr", "$res{1000}[0] $res{1001}[0] $res{1002}[0] $found_in"); + } else { + foreach my $lang (@LANGUAGES) { + WriteSeparator( $pkg_lang{$lang} ); + WriteSEntry( $pkg_lang{$lang}, "Pkg", "$res{1000}[0] $res{1001}[0] $res{1002}[0] $file_arch"); + WriteSEntry( $pkg_lang{$lang}, "Sum", "$res{1004}[0]" ); + WriteMEntry( $pkg_lang{$lang}, "Des", split('\n', $res{1005}[0] )); + if ( $add_licenses eq "1" && -f "$eula_data_dir/$rpm_name.en") { + open (LIC,"$eula_data_dir/$rpm_name.en"); + my @license = <LIC>; + close (LIC); + WriteMEntry( $pkg_lang{$lang}, "Eul", @license); + } + + } + } + WriteSeparator( $pkg_du ); + WriteSEntry( $pkg_du, "Pkg", "$res{1000}[0] $res{1001}[0] $res{1002}[0] $file_arch"); + WriteMEntry( $pkg_du, "Dir", @{$DULIST} ); + if ($do_file_list) { + WriteSeparator( $pkg_fl ); + WriteSEntry( $pkg_fl, "Pkg", "$res{1000}[0] $res{1001}[0] $res{1002}[0] $file_arch"); + WriteMEntry( $pkg_fl, "Fls", @{$FLIST} ); + } + $SEEN_PACKAGE{"$rpm_name $res{1001}[0] $res{1002}[0]"} = $file_arch unless $SEEN_PACKAGE{"$rpm_name $res{1001}[0] $res{1002}[0]"}; + } +} +print "INFO: processed $allcounter packages in $media_number volumes\n"; +if ( $ignored_packages ) { + print "INFO: following packages were ignored: $ignored_packages\n"; +} + +close ( $pkg_main ); +foreach my $lang (@LANGUAGES) { + close ( "$pkg_lang{$lang}" ); +} +close ( $pkg_du ); +close ( $pkg_fl ) if $do_file_list; + +##################################################################### +##################################################################### + +sub mkdir_p { + my $dir = shift; + + return 1 if -d "$dir"; + if ($dir =~ /^(.*)\//) { + mkdir_p("$1") || return undef; + } + return undef if !mkdir("$dir", 0777); + return 1; +} + +sub OpenFileWrite { + my $filename = shift; + my ($FH) = new FileHandle; + open ($FH, ">$filename") || die "ERROR: can't write output file $filename"; + return $FH; +} + +sub OpenFileRead { + my $filename = shift; + my ($FH) = new FileHandle; + open ($FH, "<$filename") || die "ERROR: can't read input file $filename"; + return $FH; +} + +sub ReadFileToHash { + my ($filename) = @_; + my (%temp); + my $FH = OpenFileRead( "$filename" ); + while (<$FH>) { + chomp ($_); + last if ( $_ =~ /^:END/ ); + next if ( $_ =~ /^\#/ ); + next if ( $_ =~ /^\s$/ ); + my ($le,$ri) = split (/:/, $_, 2 ); + $le =~ s/^\s*(.*)\s*$/$1/; + $ri =~ s/^\s*(.*)\s*$/$1/; + $ri =~ s/\\n/\n/g; + $temp{$le}=$ri; + } + close ($FH); + \%temp; +} + +sub WriteSeparator { + my ($FH) = shift; + print $FH "##----------------------------------------\n"; +} + +sub WriteComment { + my ($FH,@XX) = @_; + print $FH "## ".join(" ",@XX)."\n"; +} + +sub utf8ify { + my ($value) = @_; + eval { + Encode::_utf8_on($value); + $value = encode('UTF-8', $value, Encode::FB_CROAK); + }; + if ($@) { + Encode::_utf8_off($value); + $value = encode('UTF-8', $value, Encode::FB_DEFAULT); + } + Encode::_utf8_off($value); + return $value; +} + +sub WriteAnyEntry { + my ($FH,$value) = @_; + $value = utf8ify($value) if $value =~ /[\200-\377]/s; + print $FH "$value\n"; +} + +sub WriteSEntry { + my ($FH,$tag,$value) = @_; + if ( $value ) { + $value = utf8ify($value) if $value =~ /[\200-\377]/s; + print $FH "=$tag: $value\n"; + } +} + +sub WriteMEntry { + my ($FH,$tag,@value) = @_; + if ( @value && $value[0] ) { + my $value = join("\n", @value); + $value = utf8ify($value) if $value =~ /[\200-\377]/s; + print $FH "+$tag:\n$value\n-$tag:\n"; + } +} + +sub RpmToDulist { + my $maxdepth = shift; + my $res = shift; + my $prefix = shift; + + if (!$res->{1027}) { + my @newfl = (); + my @di = @{$res->{1116} || []}; + for (@{$res->{1117} || []}) { + my $di = shift @di; + push @newfl, $res->{1118}->[$di] . $_; + } + $res->{1027} = [ @newfl ]; + } + my @modes = @{$res->{1030} || []}; + my @devs = @{$res->{1095} || []}; + my @inos = @{$res->{1096} || []}; + my @names = @{$res->{1027} || []}; + my @sizes = @{$res->{1028} || []}; + my %seen = (); + my %dirnum = (); + my %subdirnum = (); + my %dirsize = (); + my %subdirsize = (); + my ($name, $first); + my @flist = (); + for $name (@names) { + my $mode = shift @modes; + my $dev = shift @devs; + my $ino = shift @inos; + my $size = shift @sizes; + # strip leading slash + # prefix is either empty or ends in / + $name =~ s/^\///; + $name = "$prefix$name"; + push @flist, "/$name"; + + # check if regular file + next if ($mode & 0170000) != 0100000; + # don't count hardlinks twice + next if $seen{"$dev $ino"}; + $seen{"$dev $ino"} = 1; + + # rounded size in kbytes + $size = int ($size / 1024) + 1; + + $name = '' unless $name =~ s/\/[^\/]*$//; + if ( ($name =~ tr/\///) < $maxdepth ) { + $dirsize{"$name/"} += $size; + $dirnum{"$name/"} += 1; + $subdirsize{"$name/"} ||= 0; # so we get all keys + } + # traverse though path stripping components from the back + $name =~ s/\/[^\/]*$// while ( ($name =~ tr/\///) > $maxdepth ); + + while ($name ne '') { + $name = '' unless $name =~ s/\/[^\/]*$//; + $subdirsize{"$name/"} += $size; + $subdirnum{"$name/"} += 1; + } + } + my @dulist = (); + for $name (sort keys %subdirsize) { + next unless $dirsize{$name} || $subdirsize{$name}; + $dirsize{$name} ||= 0; + $subdirsize{$name} ||= 0; + $dirnum{$name} ||= 0; + $subdirnum{$name} ||= 0; + push @dulist, "$name $dirsize{$name} $subdirsize{$name} $dirnum{$name} $subdirnum{$name}"; + } + return \@dulist,\@flist; +} + +sub rpmq_add_req_flagsvers { + my $res = shift; + my $name = shift; + my $flags = shift; + my $vers = shift; + my @prereq = (); + return unless $res; + my @flags = @{$res->{$flags} || []}; + my @vers = @{$res->{$vers} || []}; + for (@{$res->{$name}}) { + if (@flags && ($flags[0] & 0xe) && @vers) { + $_ .= ' '; + $_ .= '<' if $flags[0] & 2; + $_ .= '>' if $flags[0] & 4; + $_ .= '=' if $flags[0] & 8; + $_ .= " $vers[0]"; + } + # set on RPMSENSE_PREREQ, RPMSENSE_SCRIPT_PRE and RPMSENSE_SCRIPT_POST + if ( $flags[0] & (64+512+1024) ) { + push ( @prereq, $_ ); + } + shift @flags; + shift @vers; + } + return @prereq; +} + -- Alioth's /srv/git/code.x2go.org/buildscripts.git//..//_hooks_/post-receive-email on /srv/git/code.x2go.org/buildscripts.git
-
git-admin＠x2go.org