#!/usr/bin/perl
###############################################################################
###############################################################################
# WebAPP - Automated Perl Portal #
#-----------------------------------------------------------------------------#
# install.cgi #
# v0.9.9 - Requin #
# Copyright (C) 2002 by WebAPP (webapp@attbi.com) #
# #
# This program is free software; you can redistribute it and/or #
# modify it under the terms of the GNU General Public License #
# as published by the Free Software Foundation; either version 2 #
# of the License, or (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program; if not, write to the Free Software #
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #
# #
# #
# Last modified: 03/26/03 #
###############################################################################
###############################################################################
use CGI::Carp qw(fatalsToBrowser);
$scriptname = "WebAPP Installer";
$installscriptname = "WebAPP";
# Version Specific Settings ####################################################
$installversion = "0.9.9";
$installupdatename = "Requin";
$installbuildnumber = "020";
################################################################################
print "Content-type: text/html\n\n";
&getcgi();
if ($input{'action'} eq "config2") {
&setup_config2;
}
if ($input{'action'} eq "config3") {
&setup_config3;
}
&getinfo();
&setup_config();
############
sub getcgi {
############
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair(@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$input{$name} = $value;
}
@vars = split(/&/, $ENV{QUERY_STRING});
foreach $var(@vars) {
($v,$i) = split(/=/, $var);
$v =~ tr/+/ /;
$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$i =~ tr/+/ /;
$i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$i =~ s///g;
$input{$v} = $i;
}
}
################
sub chmod_file {
################
$chmodfailed = "0";
my ($destination, $permissions) = @_;
unless(chmod(oct($permissions), $destination))
{$chmodfailed = "1";
print qq~>>> Cannot set permissions on $destination file! ~;
}
}
##################
sub setup_config {
##################
print qq~
WebAPP $installversion - Automated Perl Portal Installer
Welcome to the WebAPP v$installversion Installer. This program will ease the Perl installation process and config.pl setup. On most linux servers this information should be almost correct.
If you do not know your correct path information, please check with your web hosting provider first!
The correct paths should have been generated automatically for you, but please check to see if they are correct!
If your images and themes directories are not found at... http://$hosturl/images/ ...these will have to be changed!
Site Setup
~;
exit;
}
###################
sub setup_config2 {
###################
if ($input{'timeoffset'} eq "") {$input{'timeoffset'} = "0";}
if ($input{'timezone'} eq "") {$input{'timezone'} = "0";}
%conf=();
##################
# General Settings
##################
$conf{'page_name'}=$input{'pagename'};
$conf{'page_url'}=$input{'pageurl'};
$conf{'page_title'}=$input{'pagetitle'};
$conf{'cgi'}=$input{'cgi'};
$conf{'cookieusername'}=$input{'cookieusername'};
$conf{'cookiepassword'}=$input{'cookiepassword'};
$conf{'cookieusertheme'}=$input{'cookieusertheme'};
$conf{'cookieuserlang'}=$input{'cookieuserlang'};
$conf{'mailtype'}=$input{'mailtype'};
$conf{'mailprog'}=$input{'mailprogram'};
$conf{'smtp_server'}=$input{'smtp_server'};
$conf{'base_dir'}=$input{'basedir'};
$conf{'base_url'}=$input{'baseurl'};
$conf{'script_url'}=$input{'scripturl'};
$conf{'script_dir'}=$input{'scriptdir'};
$conf{'lib_dir'}=$input{'sourcedir'};
$conf{'data_dir'}=$input{'datadir'};
$conf{'member_dir'}=$input{'memberdir'};
$conf{'images_dir'}=$input{'imagesdir'};
$conf{'themes_dir'}=$input{'themesdir'};
$conf{'images_url'}=$input{'imagesurl'};
$conf{'themes_url'}=$input{'themesurl'};
$conf{'lang_dir'}=$input{'lang_dir'};
$conf{'default_lang'}=$input{'default_lang'};
$conf{'backup_lang'}=$input{'backup_lang'};
########################
# Contact Settings
########################
$conf{'compname'}=$input{'compname'};
$conf{'compadd'}=$input{'compadd'};
$conf{'compcity'}=$input{'compcity'};
$conf{'compstate'}=$input{'compstate'};
$conf{'compzip'}=$input{'compzip'};
$conf{'compphone'}=$input{'compphone'};
$conf{'compfax'}=$input{'compfax'};
$conf{'compemail'}=$input{'compemail'};
$conf{'webmaster_email'}=$input{'webmaster_email'};
########################
# IM Settings
########################
$conf{'bmheadercolor'}="#000070";
$conf{'bmbgcolor'}="#FFFFFF";
$conf{'welcome_im'}="1";
$conf{'newuser_im'}="1";
$conf{'article_im'}="1";
########################
# Information Settings
########################
$conf{'image1'}="$input{'imagesurl'}/pb_perl.gif";
$conf{'link1'}="http://www.perl.com/";
$conf{'image2'}="$input{'imagesurl'}/pb_gimp.gif";
$conf{'link2'}="http://www.gimp.org/";
$conf{'image3'}="$input{'imagesurl'}/pb_webapp.gif";
$conf{'link3'}="http://www.web-app.org/";
########################
# News Specific Settings
########################
$conf{'topic_dir'}=$input{'topicsdir'};
$conf{'maxnews'}="5";
$conf{'maxtopics'}="25";
$conf{'enable_userarticles'}="1";
$conf{'allow_html'}="1";
$conf{'enable_topicguestposting'}="1";
$conf{'enable_autopublish'}="1";
$conf{'article_imrecip'}="admin";
$conf{'topicimgupld'}="1";
##########################
# Forums Specific Settings
##########################
$conf{'forum_dir'}=$input{'boardsdir'};
$conf{'message_dir'}=$input{'messagedir'};
$conf{'enable_guestposting'}="1";
$conf{'enable_notification'}="1";
$conf{'maxdisplay'}="25";
$conf{'maxmessagedisplay'}="15";
$conf{'insert_original'}="1";
$conf{'max_log_days_old'}="21";
$conf{'forumimgupld'}="1";
#########################
# Smilies/UBBC Settings
#########################
$conf{'enable_ubbc'}="1";
$conf{'enable_smile'}="1";
$conf{'imageicons'}="0";
#########################
# Stats Specific Settings
#########################
$conf{'log_dir'}=$input{'logdir'};
$conf{'ip_time'}="5";
$conf{'top_browsers'}="1";
$conf{'top_os'}="1";
#########################
# Links Specific Settings
#########################
$conf{'links_dir'}=$input{'linksdir'};
$conf{'maxlinks'}="30";
$conf{'adminonlyl'}="1";
$conf{'showlatestlinks'}="1";
#########################
# Downloads Specific Settings
#########################
$conf{'download_dir'}=$input{'downloadsdir'};
$conf{'maxdownloads'}="30";
$conf{'antileech'}="1";
$conf{'adminonlyd'}="1";
$conf{'showlatestdownloads'}="1";
############################
# Admin Assistant Settings
############################
$conf{'dispmost'}="1";
$conf{'dispstat'}="0";
$conf{'infoblockmod'}="1";
$conf{'dispfrad'}="1";
$conf{'showcon'}="1";
$conf{'showcon2'}="0";
$conf{'hidemail'}="1";
$conf{'letmemdel'}="0";
$conf{'letmemlng'}="0";
$conf{'letmemthm'}="0";
$conf{'searchmod'}="1";
$conf{'hidememlist'}="0";
$conf{'modulecal'}="0";
$conf{'modulenl'}="1";
$conf{'pollmod'}="1";
$conf{'multiplevoting'}="1";
$conf{'modulenlmem'}="0";
$conf{'botkiller'}="0";
$conf{'signupmethod'}="0";
$conf{'timezone'}=$input{'timezone'};
$conf{'defaulttheme'}="standard";
$conf{'check_date'}=$input{'check_date'};
################
# Admin Access
################
$conf{'editwelc'}="0";
$conf{'editabout'}="0";
$conf{'editim'}="0";
$conf{'editbanner'}="0";
$conf{'editfaq'}="0";
$conf{'editdown'}="0";
$conf{'editlink'}="0";
$conf{'modadmin'}="0";
$conf{'editcats'}="1";
$conf{'editboards'}="1";
$conf{'editcensor'}="1";
$conf{'editpoll'}="1";
$conf{'pubnews'}="1";
$conf{'editnews'}="1";
$conf{'edittops'}="0";
$conf{'editlblk'}="0";
$conf{'editrblk'}="0";
$conf{'editnl'}="0";
$conf{'editip'}="1";
################
# Other Settings
################
$conf{'timeoffset'}=$input{'timeoffset'};
$conf{'memberpic_height'}="100";
$conf{'memberpic_width'}="60";
$conf{'maxuploadsize'}=$input{'maxuploadsize'};
$conf{'upload_url'}=$input{'uploadurl'};
$conf{'upload_dir'}=$input{'uploaddir'};
$conf{'use_flock'}=$input{'use_flock'};
$conf{'LOCK_EX'}=$input{'LOCK_EX'};
$conf{'LOCK_UN'}=$input{'LOCK_UN'};
$conf{'IIS'}=$input{'IIS'};
$conf{'server_os'}=$input{'server_os'};
################
# Module Paths
################
$conf{'poll_dir'}="$input{'datadir'}/polls";
$conf{'newsletter_dir'}="$input{'datadir'}/newsletter";
################
# Mods Paths
################
$conf{'mods_dir'}="$input{'scriptdir'}/mods";
$conf{'mods_url'}="$input{'scripturl'}/mods";
################
# Misc Paths
################
$conf{'user_lib'}="$input{'scriptdir'}/user-lib";
$conf{'upgrade_lib'}="$input{'scriptdir'}/upgrade-lib";
################
# WebAPP Settings
################
$conf{'scriptname'}=$installscriptname;
$conf{'scriptver'}=$installversion;
$conf{'updatever'}=$installupdatename;
$conf{'scriptbuildnumber'}=$installbuildnumber;
$conf{'web_dir'}=$input{'basedir'};
# Define the Location of the config.dat File ###################################
$filename="$input{'scriptdir'}/conf/config.dat";
$config_dir = "$input{'scriptdir'}/conf";
$config_script = "$input{'scriptdir'}/config.pl";
# Write the config.dat File ####################################################
open OTF,">$filename" or die ("Could not open $filename!");
foreach $thing (keys %conf)
{ print OTF "$thing|$conf{$thing}\n"; }
close OTF;
# Write config.pl ############################################################
open FILE,">$config_script" or die ("Could not open $config_script!");
print FILE qq~###############################################################################
###############################################################################
# WebAPP - Automated Perl Portal #
#-----------------------------------------------------------------------------#
# config.pl #
# Version 0.9.8 #
# v0.9.8 (Upgrade Patch v1.9) #
# Copyright (C) 2002 by WebAPP #
# #
# Security Patch by Big R #
# Patching System by Floyd #
# #
# This program is free software; you can redistribute it and/or #
# modify it under the terms of the GNU General Public License #
# as published by the Free Software Foundation; either version 2 #
# of the License, or (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program; if not, write to the Free Software #
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #
# #
# File: Modified: 12/27/02 by Big R #
# Patching Routines: 02/18/03 by Floyd #
###############################################################################
###############################################################################
\$config_dir='$config_dir';
&loadConfig("\$config_dir/config.dat");
&exportConfig(\\%waconf);
#################################################
sub loadConfig {
#################################################
my \$conf_file="\$config_dir/config.dat";
open INCFG,"<\$conf_file" or die ("Could not open \$conf_file\\n");
%waconf=();
my \$next='';
my \$key='';
my \$val='';
while (\$next=)
{
chomp \$next;
(\$key,\$val)=split(/\\|/,\$next);
\$waconf{\$key}=\$val;
}
close INCFG;
}
#################
sub exportConfig {
#################
\$cref=shift;
##################
# General Settings
##################
\$pagename = \$\$cref{'page_name'};
\$pageurl = \$\$cref{'page_url'};
\$pagetitle = \$\$cref{'page_title'};
\$cgi=\$\$cref{'cgi'};
\$cookieusername = \$\$cref{'cookieusername'};
\$cookiepassword = \$\$cref{'cookiepassword'};
\$cookieusertheme = \$\$cref{'cookieusertheme'};
\$cookieuserlang = \$\$cref{'cookieuserlang'};
\$mailtype = \$\$cref{'mailtype'};
\$mailprogram = \$\$cref{'mailprog'};
\$smtp_server = \$\$cref{'smtp_server'};
\$basedir = \$\$cref{'base_dir'};
\$baseurl = \$\$cref{'base_url'};
\$scriptdir = \$\$cref{'script_dir'};
\$scripturl = \$\$cref{'script_url'};
\$sourcedir = \$\$cref{'lib_dir'};
\$datadir = \$\$cref{'data_dir'};
\$memberdir = \$\$cref{'member_dir'};
\$imagesdir = \$\$cref{'images_dir'};
\$themesdir = \$\$cref{'themes_dir'};
\$imagesurl = \$\$cref{'images_url'};
\$themesurl = \$\$cref{'themes_url'};
\$language = \$\$cref{'default_lang'};
\$langdir = \$\$cref{'lang_dir'};
\$lang = \$\$cref{'backup_lang'};
########################
# Contact Settings
########################
\$compname = \$\$cref{'compname'};
\$compadd = \$\$cref{'compadd'};
\$compcity = \$\$cref{'compcity'};
\$compstate = \$\$cref{'compstate'};
\$compzip = \$\$cref{'compzip'};
\$compphone = \$\$cref{'compphone'};
\$compfax = \$\$cref{'compfax'};
\$compemail = \$\$cref{'compemail'};
\$webmaster_email = \$\$cref{'webmaster_email'};
########################
# IM Settings
########################
\$bmheadercolor = \$\$cref{'bmheadercolor'};
\$bmbgcolor = \$\$cref{'bmbgcolor'};
\$welcome_im = \$\$cref{'welcome_im'};
\$newuser_im = \$\$cref{'newuser_im'};
\$article_im = \$\$cref{'article_im'};
########################
# Information Settings
########################
\$image1 = \$\$cref{'image1'};
\$link1 = \$\$cref{'link1'};
\$image2 = \$\$cref{'image2'};
\$link2 = \$\$cref{'link2'};
\$image3 = \$\$cref{'image3'};
\$link3 = \$\$cref{'link3'};
########################
# News Specific Settings
########################
\$topicsdir = \$\$cref{'topic_dir'};
\$maxnews = \$\$cref{'maxnews'};
\$maxtopics = \$\$cref{'maxtopics'};
\$enable_userarticles = \$\$cref{'enable_userarticles'};
\$allow_html = \$\$cref{'allow_html'};
\$enable_topicguestposting = \$\$cref{'enable_topicguestposting'};
\$enable_autopublish = \$\$cref{'enable_autopublish'};
\$article_imrecip = \$\$cref{'article_imrecip'};
\$topicimgupld = \$\$cref{'topicimgupld'};
##########################
# Forums Specific Settings
##########################
\$boardsdir = \$\$cref{'forum_dir'};
\$messagedir = \$\$cref{'message_dir'};
\$enable_guestposting = \$\$cref{'enable_guestposting'};
\$enable_notification = \$\$cref{'enable_notification'};
\$maxdisplay = \$\$cref{'maxdisplay'};
\$maxmessagedisplay = \$\$cref{'maxmessagedisplay'};
\$insert_original = \$\$cref{'insert_original'};
\$max_log_days_old = \$\$cref{'max_log_days_old'};
\$forumimgupld = \$\$cref{'forumimgupld'};
#########################
# Smilies/UBBC Settings
#########################
\$enable_ubbc = \$\$cref{'enable_ubbc'};
\$enable_smile = \$\$cref{'enable_smile'};
\$imageicons = \$\$cref{'imageicons'};
#########################
# Stats Specific Settings
#########################
\$logdir = \$\$cref{'log_dir'};
\$ip_time = \$\$cref{'ip_time'};
\$top_browsers = \$\$cref{'top_browsers'};
\$top_os = \$\$cref{'top_os'};
#########################
# Links Specific Settings
#########################
\$linksdir = \$\$cref{'links_dir'};
\$maxlinks = \$\$cref{'maxlinks'};
\$adminonlyl = \$\$cref{'adminonlyl'};
\$showlatestlinks = \$\$cref{'showlatestlinks'};
#########################
# Downloads Specific Settings
#########################
\$downloadsdir = \$\$cref{'download_dir'};
\$maxdownloads = \$\$cref{'maxdownloads'};
\$antileech = \$\$cref{'antileech'};
\$adminonlyd = \$\$cref{'adminonlyd'};
\$showlatestdownloads = \$\$cref{'showlatestdownloads'};
############################
# Admin Assistant Settings
############################
\$dispmost = \$\$cref{'dispmost'};
\$dispstat = \$\$cref{'dispstat'};
\$infoblockmod = \$\$cref{'infoblockmod'};
\$dispfrad = \$\$cref{'dispfrad'};
\$showcon = \$\$cref{'showcon'};
\$showcon2 = \$\$cref{'showcon2'};
\$hidemail = \$\$cref{'hidemail'};
\$letmemdel = \$\$cref{'letmemdel'};
\$letmemlng = \$\$cref{'letmemlng'};
\$letmemthm = \$\$cref{'letmemthm'};
\$searchmod = \$\$cref{'searchmod'};
\$hidememlist = \$\$cref{'hidememlist'};
\$modulecal = \$\$cref{'modulecal'};
\$modulenl = \$\$cref{'modulenl'};
\$pollmod = \$\$cref{'pollmod'};
\$multiplevoting = \$\$cref{'multiplevoting'};
\$modulenlmem = \$\$cref{'modulenlmem'};
\$botkiller = \$\$cref{'botkiller'};
\$signupmethod = \$\$cref{'signupmethod'};
\$timezone = \$\$cref{'timezone'};
\$defaulttheme = \$\$cref{'defaulttheme'};
\$check_date = \$\$cref{'check_date'};
################
# Admin Access
################
\$editwelc = \$\$cref{'editwelc'};
\$editabout = \$\$cref{'editabout'};
\$editim = \$\$cref{'editim'};
\$editbanner = \$\$cref{'editbanner'};
\$editfaq = \$\$cref{'editfaq'};
\$editdown = \$\$cref{'editdown'};
\$editlink = \$\$cref{'editlink'};
\$modadmin = \$\$cref{'modadmin'};
\$editcats = \$\$cref{'editcats'};
\$editboards = \$\$cref{'editboards'};
\$editcensor = \$\$cref{'editcensor'};
\$editpoll = \$\$cref{'editpoll'};
\$pubnews = \$\$cref{'pubnews'};
\$editnews = \$\$cref{'editnews'};
\$edittops = \$\$cref{'edittops'};
\$editlblk = \$\$cref{'editlblk'};
\$editrblk = \$\$cref{'editrblk'};
\$editnl = \$\$cref{'editnl'};
\$editip = \$\$cref{'editip'};
################
# Other Settings
################
\$timeoffset = \$\$cref{'timeoffset'};
\$memberpic_height = \$\$cref{'memberpic_height'};
\$memberpic_width = \$\$cref{'memberpic_width'};
\$maxuploadsize = \$\$cref{'maxuploadsize'};
\$uploaddir = \$\$cref{'upload_dir'};
\$uploadurl = \$\$cref{'upload_url'};
\$use_flock = \$\$cref{'use_flock'};
\$LOCK_EX = \$\$cref{'LOCK_EX'};
\$LOCK_UN = \$\$cref{'LOCK_UN'};
\$IIS = \$\$cref{'IIS'};
\$server_os = \$\$cref{'server_os'};
################
# Module Paths
################
\$poll_dir = \$\$cref{'poll_dir'};
\$newsletter_dir = \$\$cref{'newsletter_dir'};
################
# Mods Paths
################
\$mods_dir = \$\$cref{'mods_dir'};
\$mods_url = \$\$cref{'mods_url'};
################
# Misc Paths
################
\$user_lib = \$\$cref{'user_lib'};
\$upgrade_lib = \$\$cref{'upgrade_lib'};
################
# WebAPP Settings
################
\$scriptname = \$\$cref{'scriptname'};
\$scriptver = \$\$cref{'scriptver'};
\$updatever = \$\$cref{'updatever'};
\$scriptbuildnumber = \$\$cref{'scriptbuildnumber'};
\$web_dir = \$\$cref{'web_dir'};
}
1; #return true
~;
close(FILE);
open(DATA, ">./mods/calendar/data/calendar.cfg");
print DATA qq~
#---------------------------------
# General Settings
#---------------------------------
\$cm_title = "Calendar";
\$cm_requireAdminApproval = 1;
\$cm_emailAdminNewEventNotice = 0;
\$cm_eventAdminEmailAddress = "$input{'webmaster_email'}";
#---------------------------------
# Paths & Files
#---------------------------------
\$cm_scriptDir = "$input{'scriptdir'}/mods/calendar";
\$cm_dataDir = "$input{'scriptdir'}/mods/calendar/data";
\$cm_langDir = "$input{'scriptdir'}/mods/calendar/lang";
\$cm_scriptUrl = "$input{'scripturl'}/mods/calendar/index.cgi";
\$cm_adminScriptUrl = "$input{'scripturl'}/mods/calendar/admin/admin.cgi";
\$cm_eventsFileName = "calendar.dat";
\$cm_langFileName = "english.lng";
\$cm_detailIconUrl = "$input{'imagesurl'}/calendar/calendar.gif";
#---------------------------------
# Database Settings
#---------------------------------
\$cm_delimiter = " ";
\$cm_useFileLocking = 1;
#---------------------------------
# Style Elements
#---------------------------------
# Sidebar Calendar
#---------------------------------
\$cmsb_cellSize = "20";
\$cmsb_borderWidth = "0";
\$cmsb_borderStyle = "padding:2";
\$cmsb_headFontStyle = "";
\$cmsb_dayHeadFontStyle = "";
\$cmsb_dayHeadCellStyle = "";
\$cmsb_selFontStyle = "";
\$cmsb_selCellStyle = "background-color:#336699";
\$cmsb_stdFontStyle = "";
\$cmsb_stdCellStyle = "";
\$cmsb_emptyCellStyle = "";
#---------------------------------
# Large Calendar (show detail)
#---------------------------------
\$cml_cellSize = "60";
\$cml_borderWidth = "1";
\$cml_borderStyle = "padding:2";
#---------------------------------
# Small Calendar (hide detail)
#---------------------------------
\$cms_cellSize = "30";
\$cms_borderWidth = "1";
\$cms_borderStyle = "padding:2";
#---------------------------------
# Large & Small Calendars
#---------------------------------
\$cm_headFontStyle = "";
\$cm_dayHeadFontStyle = "";
\$cm_dayHeadCellStyle = "";
\$cm_selFontStyle = "";
\$cm_selCellStyle = "background-color:#336699";
\$cm_stdFontStyle = "";
\$cm_stdCellStyle = "";
\$cm_todayFontStyle = "color:#00ff00";
\$cm_emptyCellStyle = "";
1; #return true
~;
close(DATA);
print qq~
WebAPP v$installversion - Automated Perl Portal Installer
~;
exit;
}
###################
sub setup_config3 {
###################
open(FILE, ">$input{'basedir'}/index.html");
print FILE
qq~$input{'pagetitle'}
Click here to enter site
~;
close(FILE);
print qq~
Finished WebAPP Installation!
>>> index.html edited
>>> Finished Installation!
Follow the link here to go to your main page.
~;
unlink("./install.cgi");
exit;
}
#############################
sub getinfo {
#############################
$scriptpath = $ENV{SCRIPT_FILENAME};
$hosturl = $ENV{HTTP_HOST};
$rootpath = $ENV{DOCUMENT_ROOT};
$givemail = $ENV{SERVER_ADMIN};
$smtpfun = $ENV{SERVER_NAME};
for (1 .. 12) {
chop $scriptpath;
}
}
1;