Annotation of /back/phormation/php3tophp4

#!/usr/bin/perl

while( $ARGV[0] ne "" ) {
    if( -f $ARGV[0] ) {
        $tmpfile = $ARGV[0] . ".bak";
        $ARGV[0] =~ /^(.*?).php3$/;
        $outfile = $1 . ".php";
        print "Converting $ARGV[0] -> $outfile\n";
        system "mv -b $ARGV[0] $tmpfile";
        open( INPUT, "< $tmpfile" ) or die("Couldn't open $tmpfile for reading\n");
        open( OUTPUT, "> $outfile" ) or die("Couldn't open $tmpfile for writing\n");
        while( <INPUT> ) {
            s/\.php3/\.php/;
            print OUTPUT $_;
        }
        system "rm $tmpfile";
    }
    shift;
}
1	dpavlin	1.1	#!/usr/bin/perl
2
3			while( $ARGV[0] ne "" ) {
4			if( -f $ARGV[0] ) {
5			$tmpfile = $ARGV[0] . ".bak";
6			$ARGV[0] =~ /^(.*?).php3$/;
7			$outfile = $1 . ".php";
8			print "Converting $ARGV[0] -> $outfile\n";
9			system "mv -b $ARGV[0] $tmpfile";
10			open( INPUT, "< $tmpfile" ) or die("Couldn't open $tmpfile for reading\n");
11			open( OUTPUT, "> $outfile" ) or die("Couldn't open $tmpfile for writing\n");
12			while( <INPUT> ) {
13			s/\.php3/\.php/;
14			print OUTPUT $_;
15			}
16			system "rm $tmpfile";
17			}
18			shift;
19			}