#!/usr/bin/perl -w # # Local variable file #path variablen $home="/usr/local/www/data/genesis"; $conf_file="$home/tools/FreeBSD6_x/genesis.conf"; #(inter)net env if( defined $ENV{'SERVER_NAME'} ) { $hostname=$ENV{'SERVER_NAME'}; } else { $hostname=`hostname`; }; chomp($hostname); $cgi_dir="http://$hostname/freebsd/6.0"; $source="$cgi_dir/g_list.pl"; #exec vars $svn="/usr/local/bin/svn"; $wicontrol='/usr/sbin/wicontrol';