run_PasaWeb.pl

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib("$FindBin::Bin/PasaWeb/cgi-bin/");

my $usage = "usage: $0 port_no[eg.=8080]\n\n";

my $port_no = $ARGV[0] or die $usage;


## if the port comes up as already being used, check what's using it like so:
## sudo fuser -v 3000/tcp
##  and kill it or choose a different port to use.
##
## other useful things to know:
##  check for open ports:
##        sudo netstat -tulpn



 main: {

     my $lighttpd_prog = `which lighttpd`;
     chomp $lighttpd_prog;
     unless ($lighttpd_prog =~ /\w/) {
         die "Error, cannot locate 'lighttpd' program. Be sure to have it installed and accessible from your PATH env var";
     }
     
     my $perl_path = `which perl`;
     chomp $perl_path;
     unless ($perl_path =~ /^\//) {
         die "Error, can't determine where to find perl....  'which perl' returns: $perl_path ";
     }
     
     my $document_root = "$FindBin::RealBin/PasaWeb";
     my $conf_file_template = "$FindBin::RealBin/PasaWeb.conf/lighttpd.conf.template";
     
     my $conf_file = "$FindBin::RealBin/PasaWeb.conf/lighttpd.conf.port$port_no";
     
     my $template = `cat $conf_file_template`;
     $template =~ s/__DOCUMENT_ROOT__/$document_root/ or die "Error, could not replace __DOCUMENT_ROOT__ in $conf_file_template";
     $template =~ s/__PORT_NO__/$port_no/ or die "Error, could not replace __PORT_NO__ in $conf_file_template";
     
     $template =~ s/__PERL_PATH__/$perl_path/g or die "Error, could not replace __PERL_PATH__ in $conf_file_template with $perl_path";


     my $PERL5LIB = join(":", @INC);
     $PERL5LIB = "\"PERL5LIB\" => \"$PERL5LIB\"";
     $template =~ s/__PERL5LIB__/$PERL5LIB/;
     
     
     open (my $ofh, ">$conf_file") or die "Error, cannot write to $conf_file";
     print $ofh $template;
     close $ofh;
     
     
     my $cmd = "$lighttpd_prog -D -f $conf_file";
     print STDERR "$cmd\n";
     my $ret = system($cmd);

     exit($ret);
}