Fix: Meilleur gestion du makepack sous linux

This commit is contained in:
Laurent Destailleur 2004-11-12 14:59:30 +00:00
parent bc66e5d667
commit cdd15f6e73

View File

@ -1,51 +1,51 @@
#!/usr/bin/perl #!/usr/bin/perl
#------------------------------------------------------------------------- #-------------------------------------------------------------------------
# \file build/makepack-dolibarr.pl # \file build/makepack-dolibarr.pl
# \brief Generateur de packages (tgz, zip, rpm, deb, exe) # \brief Generateur de packages (tgz, zip, rpm, deb, exe)
# \version $Revision$ # \version $Revision$
# \author (c) 2004 Laurent Destailleur <eldy@users.sourceforge.net> # \author (c) 2004 Laurent Destailleur <eldy@users.sourceforge.net>
#------------------------------------------------------------------------- #-------------------------------------------------------------------------
use Cwd; use Cwd;
$PROJECT="dolibarr"; $PROJECT="dolibarr";
$MAJOR="2"; $MAJOR="2";
$MINOR="0"; $MINOR="0";
$RPMSUBVERSION="1"; $RPMSUBVERSION="1";
@LISTETARGET=("TGZ","ZIP","RPM","DEB","EXE"); # Possible packages @LISTETARGET=("TGZ","ZIP","RPM","DEB","EXE"); # Possible packages
%REQUIREMENTTARGET=( # Tool requirement for each package %REQUIREMENTTARGET=( # Tool requirement for each package
"TGZ"=>"tar", "TGZ"=>"tar",
"ZIP"=>"7z", "ZIP"=>"7z",
"RPM"=>"rpm", "RPM"=>"rpm",
"DEB"=>"dpkg-buildpackage", "DEB"=>"dpkg-buildpackage",
"EXE"=>"makensis.exe"); "EXE"=>"makensis.exe");
%ALTERNATEPATH=( %ALTERNATEPATH=(
"7z"=>"7-ZIP", "7z"=>"7-ZIP",
"makensis.exe"=>"NSIS" "makensis.exe"=>"NSIS"
); );
$FILENAMETGZ="$PROJECT-$MAJOR.$MINOR"; $FILENAMETGZ="$PROJECT-$MAJOR.$MINOR";
$FILENAMEZIP="$PROJECT-$MAJOR.$MINOR"; $FILENAMEZIP="$PROJECT-$MAJOR.$MINOR";
$FILENAMERPM="$PROJECT-$MAJOR.$MINOR-$RPMSUBVERSION"; $FILENAMERPM="$PROJECT-$MAJOR.$MINOR-$RPMSUBVERSION";
$FILENAMEDEB="$PROJECT-$MAJOR.$MINOR"; $FILENAMEDEB="$PROJECT-$MAJOR.$MINOR";
$FILENAMEEXE="$PROJECT-$MAJOR.$MINOR"; $FILENAMEEXE="$PROJECT-$MAJOR.$MINOR";
use vars qw/ $REVISION $VERSION /; use vars qw/ $REVISION $VERSION /;
$REVISION='$Revision$'; $REVISION =~ /\s(.*)\s/; $REVISION=$1; $REVISION='$Revision$'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
$VERSION="1.0 (build $REVISION)"; $VERSION="1.0 (build $REVISION)";
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
# MAIN # MAIN
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
($DIR=$0) =~ s/([^\/\\]+)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1; ($DIR=$0) =~ s/([^\/\\]+)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
$DIR||='.'; $DIR =~ s/([^\/\\])[\\\/]+$/$1/; $DIR||='.'; $DIR =~ s/([^\/\\])[\\\/]+$/$1/;
$SOURCE="$DIR/../../dolibarr"; $SOURCE="$DIR/../../dolibarr";
# Detect OS type # Detect OS type
# -------------- # --------------
if ("$^O" =~ /linux/i || (-d "/etc" && -d "/var" && "$^O" !~ /cygwin/i)) { $OS='linux'; $CR=''; } if ("$^O" =~ /linux/i || (-d "/etc" && -d "/var" && "$^O" !~ /cygwin/i)) { $OS='linux'; $CR=''; }
@ -55,194 +55,206 @@ if (! $OS) {
print "makepack-dolbarr.pl was not able to detect your OS.\n"; print "makepack-dolbarr.pl was not able to detect your OS.\n";
print "Can't continue.\n"; print "Can't continue.\n";
print "makepack-dolibarr.pl aborted.\n"; print "makepack-dolibarr.pl aborted.\n";
sleep 2; sleep 2;
exit 1; exit 1;
} }
# Define buildroot # Define buildroot
# ---------------- # ----------------
if ($OS =~ /linux/) { if ($OS =~ /linux/) {
$TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"/tmp"; $TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"/tmp";
} }
if ($OS =~ /macos/) { if ($OS =~ /macos/) {
$TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"/tmp"; $TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"/tmp";
} }
if ($OS =~ /windows/) { if ($OS =~ /windows/) {
$TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"c:/temp"; $TEMP=$ENV{"TEMP"}||$ENV{"TMP"}||"c:/temp";
$PROGPATH=$ENV{"ProgramFiles"}; $PROGPATH=$ENV{"ProgramFiles"};
} }
if (! $TEMP || ! -d $TEMP) { if (! $TEMP || ! -d $TEMP) {
print "Error: A temporary directory can not be find.\n"; print "Error: A temporary directory can not be find.\n";
print "Check that TEMP or TMP environment variable is set correctly.\n"; print "Check that TEMP or TMP environment variable is set correctly.\n";
print "makepack-dolibarr.pl aborted.\n"; print "makepack-dolibarr.pl aborted.\n";
sleep 2; sleep 2;
exit 2; exit 2;
} }
$BUILDROOT="$TEMP/buildroot"; $BUILDROOT="$TEMP/buildroot";
# Choose package targets # Choose package targets
#----------------------- #-----------------------
print "Makepack version $VERSION\n"; print "Makepack version $VERSION\n";
print "Building package for $PROJECT $MAJOR.$MINOR\n"; print "Building package for $PROJECT $MAJOR.$MINOR\n";
my $found=0; my $found=0;
my $NUM_SCRIPT; my $NUM_SCRIPT;
while (! $found) { while (! $found) {
my $cpt=0; my $cpt=0;
printf(" %d - %3s (%s)\n",$cpt,"All","Need ".join(",",values %REQUIREMENTTARGET)); printf(" %d - %3s (%s)\n",$cpt,"All","Need ".join(",",values %REQUIREMENTTARGET));
foreach my $target (@LISTETARGET) { foreach my $target (@LISTETARGET) {
$cpt++; $cpt++;
printf(" %d - %3s (%s)\n",$cpt,$target,"Need ".$REQUIREMENTTARGET{$target}); printf(" %d - %3s (%s)\n",$cpt,$target,"Need ".$REQUIREMENTTARGET{$target});
} }
# On demande de choisir le fichier à passer # On demande de choisir le fichier à passer
print "Choose one package number or several separated with space: "; print "Choose one package number or several separated with space: ";
$NUM_SCRIPT=<STDIN>; $NUM_SCRIPT=<STDIN>;
chomp($NUM_SCRIPT); chomp($NUM_SCRIPT);
if ($NUM_SCRIPT =~ s/-//g) { if ($NUM_SCRIPT =~ s/-//g) {
# Do not do copy # Do not do copy
$copyalreadydone=1; $copyalreadydone=1;
} }
if ($NUM_SCRIPT !~ /^[0-$cpt\s]+$/) if ($NUM_SCRIPT !~ /^[0-$cpt\s]+$/)
{ {
print "This is not a valid package number list.\n"; print "This is not a valid package number list.\n";
$found = 0; $found = 0;
} }
else else
{ {
$found = 1; $found = 1;
} }
} }
print "\n"; print "\n";
if ($NUM_SCRIPT) { if ($NUM_SCRIPT) {
foreach my $num (split(/\s+/,$NUM_SCRIPT)) { foreach my $num (split(/\s+/,$NUM_SCRIPT)) {
$CHOOSEDTARGET{$LISTETARGET[$num-1]}=1; $CHOOSEDTARGET{$LISTETARGET[$num-1]}=1;
} }
} }
else { else {
foreach my $key (@LISTETARGET) { foreach my $key (@LISTETARGET) {
$CHOOSEDTARGET{$key}=1; $CHOOSEDTARGET{$key}=1;
} }
} }
# Test if requirement is ok # Test if requirement is ok
#-------------------------- #--------------------------
foreach my $target (keys %CHOOSEDTARGET) { foreach my $target (keys %CHOOSEDTARGET) {
foreach my $req (split(/[,\s]/,$REQUIREMENTTARGET{$target})) { foreach my $req (split(/[,\s]/,$REQUIREMENTTARGET{$target})) {
# Test # Test
print "Test requirement for target $target: Search '$req'... "; print "Test requirement for target $target: Search '$req'... ";
$ret=`"$req" 2>&1`; $ret=`"$req" 2>&1`;
$coderetour=$?; $coderetour2=$coderetour>>8; $coderetour=$?; $coderetour2=$coderetour>>8;
if ($coderetour != 0 && $coderetour2 == 1 && $PROGPATH) { if ($coderetour != 0 && ($coderetour2 == 1 || $coderetour2 == 127) && $PROGPATH) {
# If error not found, we try in PROGPATH # If error not found, we try in PROGPATH
$ret=`"$PROGPATH/$ALTERNATEPATH{$req}/$req\" 2>&1`; $ret=`"$PROGPATH/$ALTERNATEPATH{$req}/$req\" 2>&1`;
$coderetour=$?; $coderetour2=$coderetour>>8; $coderetour=$?; $coderetour2=$coderetour>>8;
$REQUIREMENTTARGET{$target}="$PROGPATH/$ALTERNATEPATH{$req}/$req"; $REQUIREMENTTARGET{$target}="$PROGPATH/$ALTERNATEPATH{$req}/$req";
} }
if ($coderetour == 0 || $coderetour2 > 1 || $ret =~ /Usage/) { if ($coderetour == 0 || ($coderetour2 > 1 && $coderetour2 < 127) || $ret =~ /Usage/) {
# Pas erreur ou erreur autre que programme absent # Pas erreur ou erreur autre que programme absent
print " Found ".$REQUIREMENTTARGET{$target}."\n"; print " Found ".$REQUIREMENTTARGET{$target}."\n";
} else { } else {
print "Not found\nCan't build target $target. Requirement '$req' not found in PATH\n"; print "Not found\nCan't build target $target. Requirement '$req' not found in PATH\n";
$CHOOSEDTARGET{$target}=-1; $CHOOSEDTARGET{$target}=-1;
last; last;
} }
} }
} }
print "\n"; print "\n";
# Update buildroot # Check if there is at least on target to build
#----------------- #----------------------------------------------
my $copyalreadydone=1; $nboftargetok=0;
if (! $copyalreadydone) { foreach $target (keys %CHOOSEDTARGET) {
print "Delete directory $BUILDROOT\n"; if ($CHOOSEDTARGET{$target} < 0) { next; }
$ret=`rm -fr "$BUILDROOT"`; $nboftargetok++;
}
mkdir "$BUILDROOT";
print "Copy $SOURCE into $BUILDROOT\n"; if ($nboftarget) {
mkdir "$BUILDROOT";
$ret=`cp -pr "$SOURCE" "$BUILDROOT"`; # Update buildroot
} #-----------------
print "Clean $BUILDROOT\n"; my $copyalreadydone=1;
$ret=`rm -fr $BUILDROOT/$PROJECT/document`; if (! $copyalreadydone) {
$ret=`rm -fr $BUILDROOT/$PROJECT/build`; print "Delete directory $BUILDROOT\n";
$ret=`rm -fr $BUILDROOT/$PROJECT/Thumbs.db $BUILDROOT/$PROJECT/*/Thumbs.db $BUILDROOT/$PROJECT/*/*/Thumbs.db $BUILDROOT/$PROJECT/*/*/*/Thumbs.db`; $ret=`rm -fr "$BUILDROOT"`;
$ret=`rm -fr $BUILDROOT/$PROJECT/CVS* $BUILDROOT/$PROJECT/*/CVS* $BUILDROOT/$PROJECT/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/*/*/CVS*`;
rename("$BUILDROOT/$PROJECT","$BUILDROOT/$FILENAMETGZ"); mkdir "$BUILDROOT";
print "Copy $SOURCE into $BUILDROOT\n";
mkdir "$BUILDROOT";
# Build package for each target $ret=`cp -pr "$SOURCE" "$BUILDROOT"`;
#------------------------------ }
foreach $target (keys %CHOOSEDTARGET) { print "Clean $BUILDROOT\n";
if ($CHOOSEDTARGET{$target} < 0) { next; } $ret=`rm -fr $BUILDROOT/$PROJECT/document`;
$ret=`rm -fr $BUILDROOT/$PROJECT/build`;
print "\nBuild pack for target $target\n"; $ret=`rm -fr $BUILDROOT/$PROJECT/Thumbs.db $BUILDROOT/$PROJECT/*/Thumbs.db $BUILDROOT/$PROJECT/*/*/Thumbs.db $BUILDROOT/$PROJECT/*/*/*/Thumbs.db`;
$ret=`rm -fr $BUILDROOT/$PROJECT/CVS* $BUILDROOT/$PROJECT/*/CVS* $BUILDROOT/$PROJECT/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/*/CVS* $BUILDROOT/$PROJECT/*/*/*/*/*/CVS*`;
if ($target eq 'TGZ') { rename("$BUILDROOT/$PROJECT","$BUILDROOT/$FILENAMETGZ");
unlink $FILENAMETGZ.tgz;
print "Compress $FILENAMETGZ into $FILENAMETGZ.tgz...\n";
$ret=`tar --exclude-from "$SOURCE/build/tgz/tar.exclude" --directory="$BUILDROOT" -czvf $FILENAMETGZ.tgz $FILENAMETGZ`; # Build package for each target
print "Move $FILENAMETGZ.tgz to $SOURCE/build/$FILENAMETGZ.tgz\n"; #------------------------------
rename("$BUILDROOT/$FILENAMETGZ.tgz","$SOURCE/build/$FILENAMETGZ.tgz"); foreach $target (keys %CHOOSEDTARGET) {
next; if ($CHOOSEDTARGET{$target} < 0) { next; }
}
print "\nBuild pack for target $target\n";
if ($target eq 'ZIP') {
unlink $FILENAMEZIP.zip; if ($target eq 'TGZ') {
print "Compress $FILENAMETGZ into $FILENAMEZIP.zip...\n"; unlink $FILENAMETGZ.tgz;
chdir("$BUILDROOT"); print "Compress $FILENAMETGZ into $FILENAMETGZ.tgz...\n";
#print "cd $BUILDROOTNT & 7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*\n"; $ret=`tar --exclude-from "$SOURCE/build/tgz/tar.exclude" --directory="$BUILDROOT" -czvf $FILENAMETGZ.tgz $FILENAMETGZ`;
#$ret=`cd $BUILDROOTNT & 7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*`; print "Move $FILENAMETGZ.tgz to $SOURCE/build/$FILENAMETGZ.tgz\n";
$ret=`7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*`; rename("$BUILDROOT/$FILENAMETGZ.tgz","$SOURCE/build/$FILENAMETGZ.tgz");
print "Move $FILENAMEZIP.zip to $SOURCE/build/$FILENAMEZIP.zip\n"; next;
rename("$BUILDROOT/$FILENAMEZIP.zip","$SOURCE/build/$FILENAMEZIP.zip"); }
next;
} if ($target eq 'ZIP') {
unlink $FILENAMEZIP.zip;
if ($target eq 'RPM') { print "Compress $FILENAMETGZ into $FILENAMEZIP.zip...\n";
$BUILDFIC="$FILENAMETGZ.spec"; chdir("$BUILDROOT");
unlink $FILENAMETGZ.tgz; #print "cd $BUILDROOTNT & 7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*\n";
print "Compress $FILENAMETGZ into $FILENAMETGZ.tgz...\n"; #$ret=`cd $BUILDROOTNT & 7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*`;
$ret=`tar --exclude-from "$SOURCE/build/tgz/tar.exclude" --directory="$BUILDROOT" -czvf $FILENAMETGZ.tgz $FILENAMETGZ`; $ret=`7z a -r -tzip -mx $BUILDROOT/$FILENAMEZIP.zip $FILENAMETGZ\\*.*`;
print "Move $FILENAMETGZ.tgz to $SOURCE/build/$FILENAMETGZ.tgz\n"; print "Move $FILENAMEZIP.zip to $SOURCE/build/$FILENAMEZIP.zip\n";
rename("$BUILDROOT/$FILENAMETGZ.tgz","$TEMP/$FILENAMETGZ.tgz"); rename("$BUILDROOT/$FILENAMEZIP.zip","$SOURCE/build/$FILENAMEZIP.zip");
next;
print "Launch RPM build (rpm --clean -ba $SOURCE/build/rpm/${BUILDFIC})\n"; }
$ret=`rpm --clean -ba $SOURCE/build/rpm/${BUILDFIC}`;
if ($target eq 'RPM') {
print "Move /usr/src/RPM/RPMS/noarch/${FILENAMERPM}.noarch.rpm into $SOURCE/build/${FILENAMERPM}.noarch.rpm\n"; $BUILDFIC="$FILENAMETGZ.spec";
rename("/usr/src/RPM/RPMS/noarch/${FILENAMERPM}.noarch.rpm","$SOURCE/build/${FILENAMERPM}.noarch.rpm"); unlink $FILENAMETGZ.tgz;
next; print "Compress $FILENAMETGZ into $FILENAMETGZ.tgz...\n";
} $ret=`tar --exclude-from "$SOURCE/build/tgz/tar.exclude" --directory="$BUILDROOT" -czvf $FILENAMETGZ.tgz $FILENAMETGZ`;
print "Move $FILENAMETGZ.tgz to $SOURCE/build/$FILENAMETGZ.tgz\n";
if ($target eq 'DEB') { rename("$BUILDROOT/$FILENAMETGZ.tgz","$TEMP/$FILENAMETGZ.tgz");
print "Automatic build for DEB is not yet supported.\n";
} print "Launch RPM build (rpm --clean -ba $SOURCE/build/rpm/${BUILDFIC})\n";
$ret=`rpm --clean -ba $SOURCE/build/rpm/${BUILDFIC}`;
if ($target eq 'EXE') {
unlink "$FILENAMEEXE.exe"; print "Move /usr/src/RPM/RPMS/noarch/${FILENAMERPM}.noarch.rpm into $SOURCE/build/${FILENAMERPM}.noarch.rpm\n";
print "Compress into $FILENAMEEXE.exe by $FILENAMEEXE.nsi...\n"; rename("/usr/src/RPM/RPMS/noarch/${FILENAMERPM}.noarch.rpm","$SOURCE/build/${FILENAMERPM}.noarch.rpm");
$ret=`"$REQUIREMENTTARGET{$target}" /X"SetCompressor bzip2" "$SOURCE\\build\\exe\\$FILENAMEEXE.nsi"`; next;
print "Move $FILENAMEEXE.exe to $SOURCE/build/$FILENAMEEXE.exe\n"; }
rename("$SOURCE\\build\\exe\\$FILENAMEEXE.exe","$SOURCE/build/$FILENAMEEXE.exe");
next; if ($target eq 'DEB') {
} print "Automatic build for DEB is not yet supported.\n";
}
}
if ($target eq 'EXE') {
print "\n----- Summary -----\n"; unlink "$FILENAMEEXE.exe";
foreach $target (keys %CHOOSEDTARGET) { print "Compress into $FILENAMEEXE.exe by $FILENAMEEXE.nsi...\n";
if ($CHOOSEDTARGET{$target} < 0) { $ret=`"$REQUIREMENTTARGET{$target}" /X"SetCompressor bzip2" "$SOURCE\\build\\exe\\$FILENAMEEXE.nsi"`;
print "Package $target not built (bad requirement).\n"; print "Move $FILENAMEEXE.exe to $SOURCE/build/$FILENAMEEXE.exe\n";
} else { rename("$SOURCE\\build\\exe\\$FILENAMEEXE.exe","$SOURCE/build/$FILENAMEEXE.exe");
print "Package $target built succeessfully in $SOURCE/build/\n"; next;
} }
}
}
print "\nPress key to finish...";
my $WAITKEY=<STDIN>; }
0; print "\n----- Summary -----\n";
foreach $target (keys %CHOOSEDTARGET) {
if ($CHOOSEDTARGET{$target} < 0) {
print "Package $target not built (bad requirement).\n";
} else {
print "Package $target built succeessfully in $SOURCE/build/\n";
}
}
print "\nPress key to finish...";
my $WAITKEY=<STDIN>;
0;