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