scripts/upgrade.pl

   1 #!/usr/bin/perl
   2 #
   3 # $Id$
   4 #
   5 # upgrade.pl - automatic phpmyadmin upgrader
   6 #
   7 #
   8 # 2005-05-08, swix@users.sourceforge.net:
   9 # - created script
  10 #
  11 #
  12
  13
  14 use strict;
  15 my $source_url = "http://www.phpmyadmin.net/latest.txt";
  16
  17
  18 #
  19 # usage
  20 #
  21
  22 if (!$ARGV[0]) {
  23         print "\n";
  24         print "usage: $0 <target_directory>\n\n";
  25         print "  The location specified by <target_directory> will be backed up and replaced\n";
  26         print "  by the latest stable version of phpMyAdmin.\n";
  27         print "  Your config.inc.php file will be preserved.\n\n";
  28         exit(0);
  29 }
  30
  31 my $targetdirectory = $ARGV[0];
  32 if ($targetdirectory =~ /^(.*)\/$/) {
  33         # remove trailing slash, if any
  34         $targetdirectory = $1;
  35 }
  36
  37 if (!-d $targetdirectory) {
  38         print "error: target directory ($targetdirectory) does not exists\n";
  39         exit(0);
  40 }
  41
  42 if (!-f "$targetdirectory/config.inc.php") {
  43         print "error: target directory doesn't seem to contain phpMyAdmin\n";
  44         exit(0);
  45 }
  46
  47
  48 #
  49 # get current release information
  50 #
  51
  52 my $version;
  53 my $filename;
  54 my $directory;
  55 my $releasedate;
  56 my @urls;
  57
  58 if (open(LATEST, "wget -o /dev/null -O - $source_url|")) {
  59
  60         $version = <LATEST>; chomp($version);
  61         $releasedate = <LATEST>; chomp($releasedate);
  62         $filename = "phpMyAdmin-" . $version . ".tar.gz";
  63         $directory = "phpMyAdmin-" . $version;
  64
  65         my $i = 0;
  66
  67         while(my $line = <LATEST>) {
  68                 chomp($line);
  69                 if ($line =~ /http/) {
  70                         $urls[$i++] = $line;
  71                 }
  72         }
  73
  74         close(LATEST);
  75
  76 } else {
  77
  78         print "error: open failed.\n";
  79         exit(0);
  80
  81 }
  82
  83
  84 if (-d $directory) {
  85         print "error: target directory ($directory) already exists, exiting\n";
  86         exit(0);
  87 }
  88
  89 #
  90 # check the installed version
  91 #
  92
  93 if (open(DEFINES, $targetdirectory .'/libraries/defines.lib.php')) {
  94         my $versionStatus = 0;
  95         while(my $line = <DEFINES>) {
  96
  97                 next unless $line =~ /'PMA_VERSION',\ '(.*)?'\);$/;
  98
  99                 if ($1 gt $version) {
 100                         print "Local version newer than latest stable release, not updating.\n";
 101                         exit(0);
 102
 103                 } elsif ($1 eq $version) {
 104                         print "Local version already up to date, not updating\n";
 105                         exit(0);
 106
 107                 } else {
 108                         $versionStatus = 1;
 109                 }
 110         }
 111         if (!$versionStatus) {
 112                 print "Old version could not be identified, not updating\n";
 113                 exit(0);
 114         }
 115 }
 116
 117 #
 118 # get file
 119 #
 120
 121 if (!-f $filename) {
 122
 123         print "getting phpMyAdmin $version\n";
 124         foreach my $url (@urls) {
 125
 126                 print "trying $url...\n";
 127                 system("wget -o /dev/null $url");
 128                 if (-f $filename) {
 129                         print "-> ok\n";
 130                         last;
 131                 }
 132         }
 133 } else {
 134         print "already got $filename, not downloading\n";
 135 }
 136
 137
 138 if (!-f $filename) {
 139         print "error: $filename download failed\n";
 140         exit(0);
 141 }
 142
 143
 144
 145 #
 146 # setup
 147 #
 148
 149 print "installing...\n";
 150
 151 system("tar xzf $filename");
 152 if (!$directory) {
 153         print "error: $directory still not exists after untar...\n";
 154         exit(0);
 155 }
 156
 157 my $backupdir = $targetdirectory . "-" . time;
 158 print "- backup directory: $backupdir\n";
 159
 160 system("cp $directory/config.inc.php $directory/config.inc-dist.php");
 161 print "- original config.inc.php renamed to config.inc-dist.php\n";
 162
 163 system("cp $targetdirectory/config.inc.php $directory/config.inc.php");
 164 system("mv $targetdirectory $backupdir");
 165 system("mv $directory $targetdirectory");
 166
 167
 168 print "\ndone!  phpMyAdmin $version installed in $targetdirectory\n";
 169 print "backup of your old installation in $backupdir\n";
 170 print "downloaded archive saved as $filename\n\n";
 171 print "Enjoy! :-)\n\n";