#!/bin/sh -- because we're not sure where perl is yet
#
############################################################################
#                                                                          #
# The contents of this file are subject to the WebStone Public License     #
# Version 1.0 (the "License"); you may not use this file except in         #
# compliance with the License. You may obtain a copy of the License        #
# at http://www.mindcraft.com/webstone/license10.html                      #
#                                                                          #
# Software distributed under the License is distributed on an "AS IS"      #
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See      #
# the License for the specific language governing rights and limitations   #
# under the License.                                                       #
#                                                                          #
# The Original Code is WebStone 2.5.                                       #
#                                                                          #
# The Initial Developer of the Original Code is Silicon Graphics, Inc.     #
# and Mindcraft, Inc.. Portions created by Silicon Graphics. and           #
# Mindcraft. are Copyright (C) 1995#1998 Silicon Graphics, Inc. and        #
# Mindcraft, Inc. All Rights Reserved.                                     #
#                                                                          #
# Contributor(s): ______________________________________.                  #
#                                                                          #
############################################################################

'true' || eval 'exec perl -S $0 $argv:q';
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
        if 0;

#  Usage: [perl] configure [file]
#
#   This replaces the program paths (e.g. /bin/awk) with an
# alternate path that is found in the file "file.paths".  It also finds
# perl5 and changes the path in all the stand-alone perl programs.
#
	  
$debug = 0;
	  
#
#  Target shell scripts in question:
@shell_scripts=("conf/paths.pl", "conf/paths.pl");
@perl5_src = ("bin/webstone-gui.pl", "bin/WebStone-common.pl", "bin/killbench.wpl", "bin/view-results.wpl", "bin/WebStone-manage.wpl", "bin/move-filelist.wpl", "bin/write-testbed.wpl", "bin/WebStone-run.wpl", "bin/move-runs.wpl", "bin/WebStone-filelist.wpl", "bin/WebStone-testbed.wpl", "bin/runbench.wpl");
@perl_src = ("bin/wscollect.pl", "bin/mine-logs.wpl");
@benchmark_dir_src = ("webstone", "bin/killbench", "bin/runbench");

# all the HTML browsers we know about, IN ORDER OF PREFERENCE!
@all_www= ("netscape", "Mosaic", "xmosaic", "lynx");

#
#  Potential directories to find commands; first, find the user's path...
$PATH = $ENV{"PATH"};

# additional dirs; *COLON* separated!
$other_dirs="/usr/ccs/bin:/bin:/usr/bin:/usr/ucb:/usr/bsd:/usr/ucb/bin:/usr/sbin:/usr/etc:/usr/local/bin:/usr/bin/X11:/usr/X11/bin:/usr/openwin/bin";

#
# split into a more reasonable format. Personal aliases come last.
@all_dirs = split(/:/, $other_dirs . ":" . $PATH);

print "checking to make sure all the target(s) are here...\n";

for (@shell_scripts) {
        die "ERROR -- $_ not found!\n" unless -f $_;
        }

# find perl
print "Trying to find perl...\n";
for $dir (@all_dirs) {
        # first, find where it might be
        next if (! -d $dir);
        while (<$dir/perl*>) {
                if (-x $_) {
                        $perl_version=`($_ -v 2> /dev/null) |
                                awk '/This is perl/ { print $NF }'`;
                        if ($perl_version) {
                                $PERL=$_;
                                $pflag="1";
                                last;
                                }
                        }
                        last if $pflag;
                }
        last if $pflag;
        }

if ($PERL) {
    print "\nPerl is in $PERL\n";
    for (@perl_src) { $perl_src .= "$_ "; }
    print "\nchanging the source in: $perl_src\n";
    system "$PERL -pi -e \"s@^#!.*/perl.*@#!$PERL@;\" $perl_src";
    
    # make sure things are executable...
    system("chmod u+x $perl_src");
}
else
{
    printf "\nSome WebStone functions require Perl\n" unless $PERL;
}
# end if $PERL

# find perl5
$pflag = 0;
print "Trying to find perl5...\n";
for $dir (@all_dirs) {
    # first, find where it might be; oftentimes you'll see perl,
    # perl4, perl5, etc. in the same dir
    next if (! -d $dir);
    while (<$dir/perl5* $dir/perl*>) {
	if (-x $_) {
	    $perl_version=`($_ -v 2> /dev/null) |
                                awk '/This is perl, version 5/ { print $NF }'`;
	    if ($perl_version) {
		$PERL5=$_;
		$pflag="1";
		last;
	    }
	}
	last if $pflag;
    }        
    last if $pflag;
}

if ($PERL5) {
    print "\nPerl5 is in $PERL5\n";
    
    for (@perl5_src) { $perl5_src .= "$_ "; }
    print "\nchanging the source in: $perl5_src\n";
    system "$PERL5 -pi -e \"s@^#!.*/perl.*@#!$PERL5@;\" $perl5_src"; 
    system("chmod u+x $perl5_src");
}
else
{
    printf "\nThe WebStone GUI requires Perl5\n" unless $PERL5;
}
#end if $PERL5

# find the most preferred www viewer first.
for $www (@all_www) {
        for $dir (@all_dirs) {
                if (!$MOSAIC) {
                        if (-x "$dir/$www") {
                                $MOSAIC="$dir/$www";
                                next;
                                }
                        }
                }
        }
if ($MOSAIC) {
        print "\nHTML/WWW Browser is $MOSAIC\n";

        $upper{"MOSAIC"} = $MOSAIC;
        }
else { print "Cannot find a web browser!  WebStone cannot be run except in CLI"; }
 
print "\nOk, now doing substitutions on the shell scripts...\n";
for $shell (@shell_scripts) {
        print "Changing paths in $shell...\n";
        die "Can't open $shell\n" unless open(SCRIPT, $shell);
        rename($shell, $shell . '.old');
        die "Can't open $shell\n" unless open(OUT, ">$shell");
 
        #
        #  Open up the script, search for lines beginning with
        # stuff like "TEST", "AWK", etc.  If the file ends in "pl",
        # assume it's a perl script and change it accordingly
        while (<SCRIPT>) {
                $found = 0;
                for $command (keys %upper) {
                        if(/^\$?$command=/) {
                                # shell script
                                if ($shell !~ /.w*pl$/) {
                                        print OUT "$command=$upper{$command}\n";                                        }
                                # perl script
                                else {
                                        print OUT "\$" . "$command=\"$upper{$command}\";\n";
                                        }
                                $found = 1;
                                }
                        }
                print OUT $_ if !$found;

                }
        close(SCRIPT);
        close(OUT);
        }
 

for (@benchmark_dir_src) { $benchmark_dir_src .= "$_ "; }
print "\nchanging the source in: $benchmark_dir_src\n";
$BENCHMARK_DIR=`pwd`;
chop $BENCHMARK_DIR;
$BENCHMARK_DIR =~ s/\//\\\//g;
system "$PERL -pi -e \"s/<BENCHMARK_DIR>/$BENCHMARK_DIR/\" $benchmark_dir_src";

# done...
