Управление сайтом

Компаний

Пользователи

Фиксированные новости

Отзывы о фирмах

Пользователи

Банкоматы

Торговые точки

Доска объявлений

Курсы валют

организации Орла

организации области

сайты Орел

Поиск запросы

Статистика

Показы каталога организаций

Статистика клиенты

Пользователи

Управление сайтом

Каталоги >

Новости >

Организации >

Секрет фирмы >

Сервисы >

Файловый менеджер

Имя файла	upgrade.pl
Содержимое	#!/usr/bin/perl # # $Id$ # # upgrade.pl - automatic phpmyadmin upgrader # # # 2005-05-08, swix@users.sourceforge.net: # - created script # # 2005-10-29 swix@users.sourceforge.net: # - some fixes & improvements # use strict; my $source_url = "http://phpmyadmin.net/home_page/version.php"; # # usage # if (!$ARGV[0] \|\| (($ARGV[0] eq "--force") && !$ARGV[1])) { print "\n"; print "usage: $0 [--force] <target_directory>\n\n"; print " The location specified by <target_directory> 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 $forced; my $targetdirectory; if ($ARGV[0] eq "--force") { $forced = 1; $targetdirectory = $ARGV[1]; } else { $forced = 0; $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; my @today; my $installedversion; if (open(LATEST, "wget -o /dev/null -O - $source_url\|")) { $version = <LATEST>; chomp($version); $releasedate = <LATEST>; chomp($releasedate); $filename = "phpMyAdmin-" . $version . "-all-languages.tar.gz"; $directory = "phpMyAdmin-" . $version . "-all-languages"; my $i = 0; while (my $line = <LATEST>) { chomp($line); if ($line =~ /http/) { $urls[$i++] = $line; } } close(LATEST); } else { print "error: open of $source_url 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/Config.class.php')) { my $versionStatus = 0; $installedversion = "unknownversion"; while (my $line = <DEFINES>) { next unless $line =~ /'PMA_VERSION',\ '(.)?'\);$/; $installedversion = $1; # take care of "pl", "rc" and "dev": dev < rc < pl my $converted_installedversion = $installedversion; $converted_installedversion =~ s/dev/aaa/g; $converted_installedversion =~ s/rc/bbb/g; $converted_installedversion =~ s/pl/ccc/g; my $converted_version = $version; $converted_version =~ s/dev/aaa/g; $converted_version =~ s/rc/bbb/g; $converted_version =~ s/pl/ccc/g; if ($converted_installedversion gt $converted_version && !$forced) { print "Local version ($installedversion) newer than latest stable release ($version), not updating. (use \"--force\")\n"; exit(0); } elsif ($installedversion eq $version && !$forced) { print "Local version ($version) already up to date, not updating (you can use \"--force\")\n"; exit(0); } else { $versionStatus = 1; } } if (!$versionStatus && !$forced) { print "Old version could not be identified, not updating (use \"--force\" if you are sure) \n"; exit(0); } } # # ask for confirmation # print "\n"; print "phpMyAdmin upgrade summary:\n"; print "---------------------------\n"; print " phpMyAdmin Path: $targetdirectory\n"; print " Installed version: $installedversion\n"; print " Upgraded version: $version\n\n"; print "Proceed with upgrade? [Y/n] "; my $kbdinput = <STDIN>; chomp($kbdinput); if (lc(substr($kbdinput,0,1)) ne "y" && length($kbdinput) >= 1) { print "Aborting.\n"; exit(0); } else { print "Proceeding...\n\n"; } # # 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); } @today = localtime(time); $today[4]++; $today[5]+=1900; my $timestamp = sprintf("%04d%02d%02d%02d%02d", $today[5], $today[4], $today[3], $today[2], $today[1]); my $backupdir = $targetdirectory . "-" . $timestamp . "-" . $installedversion; print "- backup directory: $backupdir\n"; system("cp $directory/config.inc.php $directory/config.inc-dist.php"); print "- original distribution config.inc.php renamed to config.inc-dist.php\n"; system("cp $targetdirectory/config.inc.php $directory/config.inc.php"); print "- previous config.inc.php copied to the new setup\n"; system("mv $targetdirectory $backupdir"); system("mv $directory $targetdirectory"); system("rm $filename"); print "\ndone! phpMyAdmin $version installed in $targetdirectory\n"; print "backup of your old installation in $backupdir\n"; print "Enjoy! :-)\n\n";

/admin/myadmin2/scripts/

Имя	Дата	Размер
..	2013-06-28
check_lang.php	2013-06-28	2 кб.
convertcfg.pl	2013-06-28	352 байт
create_tables.sql	2013-06-28	5 кб.
create_tables_mysql_4_1_2+.sql	2013-06-28	6 кб.
decode_bug.php	2013-06-28	3 кб.
find_unused_messages.sh	2013-06-28	1 кб.
setup.php	2013-06-28	77 кб.
signon.php	2013-06-28	2 кб.
upgrade.pl	2013-06-28	5 кб.
upgrade_tables_mysql_4_1_2+.sql	2013-06-28	6 кб.

/admin/myadmin2/scripts