Welcome to Our Site!

Hi, I'm D.O.G.

Admin Login Password

~;
}

sub main_html {
print qq~

Script Config Admin password Data dir Root dir Root url Site name Space limit KB Bad types Reserved names

Users Modify a user User   ~; foreach (@users) { print "\n"; } print qq~ Remove a user User   ~; foreach (@users) { print "\n"; } print qq~

~;
}

sub error_html {
()=@_;
print qq~

WebHome Free v1.0

Error Please press 'back' and fix the problem.

---

© Copyright 1999 WebHome Free v1.0
Made by CyberScript, get your own free version!

~;
exit;
}

sub modify_user_html {
print qq~

Modify User Username 'user'} Password Email Real name Site description

~;
}

sub install {
if (!'submit'}) {

= 'DOCUMENT_ROOT'};
= 'DOCUMENT_ROOT'}."/data";
= "http://".'SERVER_NAME'};

# Try and grab a title..
if (-f "'DOCUMENT_ROOT'}/index.html") {
open (INDEX,"'DOCUMENT_ROOT'}/index.html");
while () { .= ; }
close (INDEX);
if ( =~ /

Welcome to WebHome!

Fill out the following form to install WebHome Free v1.0 in just one step!

Admin password
Please choose a password to use wehn logging in to the admin script.

Data dir
What is the full path to the data directory? This is where the users database will be kept and must be chmod to 777

Root dir
What is the full path to the root directory? This is where the user directories will be
created and must be chmod to 777

Root url
What is the web url to the root directory?

Site name
What is the title of your website?

Space limit
How much space would you like to give each of your WebHome users?
KB

Bad types
What types of files would you like to ban from being uploaded?

Reserved names
What usernames/directories would you like to keep for yourself?

~;
} else {
if (!'admin_password'}) { &error_html("Missing admin password"); }
if (!'data_dir'}) { &error_html("Missing data directory"); }
if (!'root_dir'}) { &error_html("Missing root directory"); }
if (!'root_url'}) { &error_html("Missing root url"); }
if (!'site_name'}) { &error_html("Missing site name"); }
if (!'space_limit'}) { &error_html("Missing space limit"); }

unless (-d "'data_dir'}") { &error_html("Incorrect path to data directory"); }
unless (-d "'root_dir'}") { &error_html("Incorrect path to root directory"); }

if ('root_url'} !~ /http:\/\//i) { &error_html("Invaild root url"); }

if ('space_limit'} !~ /[0-9]/) { &error_html("Invalid space limit"); }

'admin_password'} = crypt("'admin_password'}", as);

open (CONFIG,">config.txt") || &error_html("Could not edit config file, make sure it is chmod to 777: $!");
print CONFIG "data_dir='data_dir'}\n";
print CONFIG "root_dir='root_dir'}\n";
print CONFIG "root_url='root_url'}\n";
print CONFIG "site_name='site_name'}\n";
print CONFIG "space_limit='space_limit'}\n";
print CONFIG "bad_types='bad_types'}\n";
print CONFIG "reserved_names='reserved_names'}\n