#!/usr/bin/perl -w # -*- perl -*- ####### # I wrote this script to be able to move the browser beween my home # computer (development) and work where the files are actually # used. The main difference is that the perl distribution I have at # home is more recent and contains more modules. # ####### # How to run installation script # # Type: # perl install.pl # ####### $| = 1 ; # Wonderful perl syntax for turning output buffering off! ## find out of we have CGI.pm # my $c = "CGI" ; eval "use $c;" ; my $gotCGI = $@ eq "" ; if($gotCGI) { print "We have the $c module\n" ; } else { print "We do not have the $c module\n" ; } ; ## find perl # my $perl = `sh -c "type -path perl"` ; chomp $perl ; if(defined $perl and $perl ne "") { print "Perl: $perl\n" ; } else { die "Can not find perl in path!\n" ; } ; ## Ask operator to confirm # my $p =`pwd` ; chomp $p ; while(1) { print "\n\nOK to install cgi bins in $p? [y/n] " ; $_ = <STDIN>; chomp ; my $a = uc $_ ; $a eq "Y" and do { last ; }; $a eq "N" and die "Aborted"; print "Answer 'y' or 'n'." ; } # Make sure we can open cgi_files.tar unless( -r "cgi_files.tar") { die "Can not open \"cgi_files.tar\" for read." ; } ; # Get file list and filter out .cgi, .pl and .perl local *P ; open(P,"tar -tf cgi_files.tar|") or die "Can not read \"cgi_files.tar\"" ; my @perlfiles ; while(<P>) { chomp ; (/\.cgi$/ or /\.pl/ or /\.perl/) and do { push @perlfiles,$_ ; } ; } close P ; # Extract files and make writeable system("tar xvf cgi_files.tar") ; chmod 0755,@perlfiles ; # Change first line of all files to point to # perl my $f ; foreach $f (@perlfiles) { # Read file open(P,"<$f") ; my @file=<P> ; close P ; # Change first line $file[0]="#!$perl -w\n" ; # Write file open(P,">$f") ; print P @file ; close P ; } chmod 0755,@perlfiles ; # Get CGI.pm (if required) if(!$gotCGI) { unless( -r "CGI.tar") { die "Can not open \"CGI.tar\" for read." ; } ; system("tar xvf CGI.tar") ; } # Clean up unlink "cgi_files.tar","CGI.tar" ;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 1883 | rmg |
In preparation for updating to the latest P4DB (2.01), delete all the current files here. |
||
#1 | 11 | Perforce maintenance | Add Fredric Fredricson's depot browser, P4DB. |