[Unix Solaris11] RPM2PKG compilazione errori.

[Fraste_]

Salve a tutti,
Vi scrivo in quanto sto entrando nel mondo unix e sto provando un pò di unix differenti. Sono partito appunto con Solaris11 e ho avuto subito bisogno di installare delle cose che sono presenti invece in RedHat e tutte le distro che "discendono" da RedHat. Qui subentrano i file RPM, mentre su Solaris sono presenti i file .pkg. Quindi mi è sorta la domanda immediatamente e ho cercato di capire se potevo da un rpm arrivare ad avere un pkg. La domanda ha ricevuto risposta immediata (grazie Google!), ma con qualche programma.
Il codice però è per il vecchio pkg infatti presenta ancora pkgadd e altri simili. Il problema è stato di risoluzione veloce infatti basta aggiungere a questi comandi la dicitura /bin/.
Il codice trasformato è il seguente:

#!/usr/bin/perl
#
# rpm2pkg - creating Solaris pkg files from Linux rpm's
#
# 2008 - Mike Golvach - eggi@comcast.net
#
# Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License
#

$rpm=$ARGV[0];
$tmp_dir="dir.$$";
$orig_dir=`pwd`;

mkdir("$tmp_dir");
chdir("$tmp_dir");
system("rpm2cpio ../$rpm|cpio -dim");
$proto_list=`find . -print|/bin/pkgproto|grep -v prototype`;
open(TMP_FILE, ">>prototype");
print TMP_FILE "i pkg info\n";
print TMP_FILE $proto_list;
close(TMP_FILE);
@pkg_info=`strings ../$rpm`;
$count = 0;
foreach (@pkg_info)     {
        if ( $_ =~ /\# \@\(\#\)BegWS/ ) {
                push(@rpm_info, $_);
                $count++;
        }       elsif ( $_ =~ /\# \@\(\#\)EndWS/ )      {
                last;
        }       elsif ( $count > 0 )    {
                push(@rpm_info, $_);
        }
}
$uname_s = `uname -s`;
$uname_r = `uname -r`;
$uname_p = `uname -p`;
$pkg_name = $rpm;
$pkg_name =~ s/\.rpm//;
chomp $uname_s;
chomp $uname_r;
chomp $uname_p;
chomp $rpm_info[1];
chomp $rpm_info[2];
chomp $rpm_info[5];
chomp $rpm_info[12];
open(PKGINFO, ">>pkginfo");
print PKGINFO "SUNW_PRODNAME=\"$uname_s\"\n";
print PKGINFO "SUNW_PRODVERS=\"$uname_r\"\n";
print PKGINFO "SUNW_PKGTYPE=\"usr\"\n";
print PKGINFO "PKG=\"$pkg_name\"\n";
print PKGINFO "NAME=\"$rpm_info[2]\"\n";
print PKGINFO "VERSION=\"$rpm_info[5]\"\n";
print PKGINFO "VENDOR=\"$rpm_info[1]\"\n";
print PKGINFO "ARCH=\"$uname_p\"\n";
print PKGINFO "EMAIL=\"me@xyz.com\"\n";
print PKGINFO "CATEGORY=\"application\"\n";
print PKGINFO "BASEDIR=/\n";
print PKGINFO "DESC=\"$rpm_info[12]\"\n";
print PKGINFO "PSTAMP=\"Your Name Here\"\n";
print PKGINFO "CLASSES=\"none\"\n";
close(PKGINFO);
system("/bin/pkgmk -o -b `pwd` -d /tmp");
system("/bin/pkgtrans -o -s /tmp `pwd`/test01.pkg test01");
system("mv test01.pkg ../");
system("cd ../;pwd;rm -r $tmp_dir");

(ho modificato l'ultima parte dove scrivo test01 perchè ho provato di tutto)

Ora mi da due errori ma non sullo script in se ma durante la compilazione infatti mi restituisce:

## Building pkgmap from package prototype file.
ERROR in prototype:
    garbled entry
    - pathname: pkg
    - problem: extra tokens on input line
pkgmk: ERROR: unable to build pkgmap from prototype file
## Packaging was not successful.
pkgtrans: ERROR: unable to complete package transfer
    - no packages were selected from </tmp>
mv: cannot access test01.pkg
/root

Come posso risolvere?

Grazie a tutti,
Fraste_

[darkbasic]

OMG avevo letto RPGMK2K e mi era preso un coccolone, pensavo avessero rilasciato i sorgenti

[Fraste_]

Potresti rispondere al thread per favore? Ho seri problemi e mi serve assolutamente la possibilità di usare questo codice.

Ho fatto comunque delle prove fino a

close(PKGINFO);

E funziona perfettamente dopo iniziano i problemi...
Help!

[Fraste_]

UP!

[Gimli[2BV!2B]]

Lo script che stai utilizzando non è alla sua ultima versione (che comunque ha quasi quattro anni): Creating Solaris Pkg's From RPM's - Take Two.
Le differenze riguardano principalmente le stringhe utilizzate: l'autore scrive che gli strumenti Solaris sono un po' esigenti sul formato delle stringhe che definiscono gli attributi dei pacchetti.

Resta che l'autore mette le mani avanti affermando che lo script dovrebbe funzionare con pacchetti che la prima versione non digeriva (e viceversa), ma molti potrebbero comunque non andare.

Riporto lo script nel caso che la fonte non risultasse più disponibile (ho evidenziato un paio di valori personalizzabili):

#!/usr/bin/perl

#
# rpm2pkg - creating Solaris pkg files from Linux rpm's
#
# 2008 - Mike Golvach - eggi@comcast.net
#
# Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License
#

$rpm=$ARGV[0];
$tmp_dir="dir.$$";
$orig_dir=`pwd`;

mkdir("$tmp_dir");
chdir("$tmp_dir");
## FIX system("rpm2cpio ../$rpm|cpio -dim");
system("rpm2cpio ../$rpm >rpm.cpio.file");
system("cpio -d -i -m <rpm.cpio.file");
## ENDFIX
$proto_list=`find . -print|pkgproto|grep -v prototype`;
open(TMP_FILE, ">>prototype");
print TMP_FILE "i pkginfo\n";
print TMP_FILE $proto_list;
close(TMP_FILE);
# FIX @pkg_info=`strings ../$rpm`;
@pkg_info=`strings rpm.cpio.file`;
$count = 0;
foreach (@pkg_info)     {
        if ( $_ =~ /^Begin4/ ) {
                push(@rpm_info, $_);
                $count++;
        }       elsif ( $_ =~ /(^Copying-policy:|GPL$)/ )      {
                last;
        }       elsif ( $count > 0 )    {
                push(@rpm_info, $_);
        }
}
$uname_s = `uname -s`;
$uname_r = `uname -r`;
$uname_p = `uname -p`;
$rpm_version = $rpm;
$rpm_version =~ s/\.rpm//;
chomp $uname_s;
chomp $uname_r;
chomp $uname_p;
chomp $rpm_info[1];
chomp $rpm_info[2];
chomp $rpm_info[4];
$rpm_info[1] =~ s/ *    *//g;
$rpm_info[2] =~ s/ *    *//g;
$rpm_info[4] =~ s/ *    *//g;
$rpm_info[1] =~ s/Title://g;
$rpm_info[2] =~ s/Version://g;
open(PKGINFO, ">>pkginfo");
print PKGINFO "SUNW_PRODNAME=\"$uname_s\"\n";
print PKGINFO "SUNW_PRODVERS=\"$uname_r\"\n";
print PKGINFO "SUNW_PKGTYPE=\"usr\"\n";
print PKGINFO "PKG=\"$rpm_info[1]\"\n";
print PKGINFO "NAME=\"$rpm_info[1]\"\n";
print PKGINFO "VERSION=\"$rpm_info[2]\"\n";
print PKGINFO "VSTOCK=\"$rpm_version\"\n";
print PKGINFO "VENDOR=\"GENERIC\"\n";
print PKGINFO "ARCH=\"$uname_p\"\n";
print PKGINFO "EMAIL=\"me@xyz.com\"\n";
print PKGINFO "CATEGORY=\"application\"\n";
print PKGINFO "BASEDIR=/\n";
print PKGINFO "DESC=\"$rpm_info[4]\"\n";
print PKGINFO "PSTAMP=\"Your Name Here\"\n";
print PKGINFO "CLASSES=\"none\"\n";
close(PKGINFO);
system("pkgmk -o -b `pwd` -d /tmp");
system("pkgtrans -o -s /tmp `pwd`/${rpm_info[1]}.pkg $rpm_info[1]");
system("mv ${rpm_info[1]}.pkg ../");
system("cd ../;pwd;rm -r $tmp_dir");