diff options
author | SVN Migration <svn@php.net> | 2003-02-27 17:43:39 +0000 |
---|---|---|
committer | SVN Migration <svn@php.net> | 2003-02-27 17:43:39 +0000 |
commit | 078bcec0997ad0e07b720c43cc9e6d0e046a75ab (patch) | |
tree | 36cb0f6be2ef078fe3374de8c087b93ecf82f812 /ext/mysql/libmysql/update_sources | |
parent | fd61f69077f6156ca71dde60ecfd9ed9765a02db (diff) | |
download | php-git-PHP-5.tar.gz |
This commit was manufactured by cvs2svn to create branch 'PHP_5'.PHP-5
Diffstat (limited to 'ext/mysql/libmysql/update_sources')
-rwxr-xr-x | ext/mysql/libmysql/update_sources | 103 |
1 files changed, 0 insertions, 103 deletions
diff --git a/ext/mysql/libmysql/update_sources b/ext/mysql/libmysql/update_sources deleted file mode 100755 index 87547e483e..0000000000 --- a/ext/mysql/libmysql/update_sources +++ /dev/null @@ -1,103 +0,0 @@ -#! /usr/bin/perl -w - -# Maybe I should have used PHP instead? ;) - -use strict; -$| = 1; - --f "libmysql.c" or die "$0 must be run from the libmysql directory\n"; - -my $command = shift || usage(); -$command =~ /^--(?:update|huh|restore)$/ or usage(); - -my $from = shift || '/my/mysql'; -my @source_dirs = qw/dbug strings mysys libmysql include/; -my $source_re = qr/\.(?:cc?|h)$/; -my %skip = ( - 'ctype_autoconf.c' => 1, # PHP uses a pre-made one - 'ctype_extra_sources.c' => 1, # same here - 'my_config.h' => 1, # we use php_config.h -); - -opendir D, "." - or die "can't opendir .: $!\n"; -my @files = grep { /$source_re/ and !$skip{$_} } readdir D; -closedir D; - -if ($command eq '--restore') -{ - foreach (@files) - { - -f "$_.orig" and - system("mv -f $_.orig $_") and die "can't restore $_: $!\n"; - } - exit 0; -} - -if ($command eq '--huh') -{ - diff_files(); - exit 0; -} - -my %sources; -foreach my $d (@source_dirs) -{ - opendir D, "$from/$d" or die "opendir $from/$d: $!\n"; - foreach (grep { /$source_re/ } readdir D) - { - $sources{$_} ||= "$d/$_"; - } - closedir D; -} - -foreach my $f (@files) -{ - my $s = $sources{$f} or die "can't find source file for $f\n"; - unlink "$f.orig"; - system("mv $f $f.orig") and die "can't move $f: $!\n"; - #print ">> ", scalar(`ls -l $from/$s`), "\n"; - print ">> $s\n"; - system("cp $from/$s $f") and die "can't copy $from/$s: $!\n"; - #print "]] ", scalar(`ls -l $f`), "\n"; -} - -system("chmod u+w @files") and die "can't set perms on files: $!\n"; -system("./fix_copyright @files") and die "can't fix copyright: $!\n"; -diff_files(); - -exit 0; - - -sub usage -{ - die <<"EOF"; -usage: $0 --update [mysql-source-dir] - $0 --huh - $0 --restore - - Typical use is: - \$ $0 --update 2>&1 > /tmp/php-update.diff - \$ @{[$ENV{EDITOR}||'vi']} /tmp/php-update.diff #does it look okay? - \$ Monkey around a bit - \$ cvs diff -u | less # does this look okay? - \$ rm *.orig -EOF -} - -sub diff_files { - foreach my $f (@files) - { - if (!-f "$f.orig" or !system("diff -u $f.orig $f")) - { - print STDERR "SAME: $f\n"; - unlink "$f.orig"; - } - else - { - print STDERR "DIFF: $f\n"; - $f eq 'config-win.h' and - print STDERR "/n/nDon't forget to undefine HAVE_COMPRESS in $f/n/n/n"; - } - } -} |