#!/usr/bin/perl # # $Id$ # # upgrade.pl - automatic phpmyadmin upgrader # # # 2005-05-08, swix@users.sourceforge.net: # - created script # # use strict; my $source_url = "http://www.phpmyadmin.net/latest.txt"; # # usage # if (!$ARGV[0]) { print "\n"; print "usage: $0 \n\n"; print " The location specified by will be backed up and replaced\n"; print " by the latest stable version of phpMyAdmin.\n"; print " Your config.inc.php file will be preserved.\n\n"; exit(0); } my $targetdirectory = $ARGV[0]; if ($targetdirectory =~ /^(.*)\/$/) { # remove trailing slash, if any $targetdirectory = $1; } if (!-d $targetdirectory) { print "error: target directory ($targetdirectory) does not exists\n"; exit(0); } if (!-f "$targetdirectory/config.inc.php") { print "error: target directory doesn't seem to contain phpMyAdmin\n"; exit(0); } # # get current release information # my $version; my $filename; my $directory; my $releasedate; my @urls; if (open(LATEST, "wget -o /dev/null -O - $source_url|")) { $version = ; chomp($version); $releasedate = ; chomp($releasedate); $filename = "phpMyAdmin-" . $version . ".tar.gz"; $directory = "phpMyAdmin-" . $version; my $i = 0; while(my $line = ) { chomp($line); if ($line =~ /http/) { $urls[$i++] = $line; } } close(LATEST); } else { print "error: open failed.\n"; exit(0); } if (-d $directory) { print "error: target directory ($directory) already exists, exiting\n"; exit(0); } # # check the installed version # if (open(DEFINES, $targetdirectory .'/libraries/defines.lib.php')) { my $versionStatus = 0; while(my $line = ) { next unless $line =~ /'PMA_VERSION',\ '(.*)?'\);$/; if ($1 gt $version) { print "Local version newer than latest stable release, not updating.\n"; exit(0); } elsif ($1 eq $version) { print "Local version already up to date, not updating\n"; exit(0); } else { $versionStatus = 1; } } if (!$versionStatus) { print "Old version could not be identified, not updating\n"; exit(0); } } # # get file # if (!-f $filename) { print "getting phpMyAdmin $version\n"; foreach my $url (@urls) { print "trying $url...\n"; system("wget -o /dev/null $url"); if (-f $filename) { print "-> ok\n"; last; } } } else { print "already got $filename, not downloading\n"; } if (!-f $filename) { print "error: $filename download failed\n"; exit(0); } # # setup # print "installing...\n"; system("tar xzf $filename"); if (!$directory) { print "error: $directory still not exists after untar...\n"; exit(0); } my $backupdir = $targetdirectory . "-" . time; print "- backup directory: $backupdir\n"; system("cp $directory/config.inc.php $directory/config.inc-dist.php"); print "- original config.inc.php renamed to config.inc-dist.php\n"; system("cp $targetdirectory/config.inc.php $directory/config.inc.php"); system("mv $targetdirectory $backupdir"); system("mv $directory $targetdirectory"); print "\ndone! phpMyAdmin $version installed in $targetdirectory\n"; print "backup of your old installation in $backupdir\n"; print "downloaded archive saved as $filename\n\n"; print "Enjoy! :-)\n\n";