Castle Links Readme

#!/usr/bin/perl ########################################################## ## Castle Links ## ## Created: 06/17/1999 ## ########################################################## # By: Castellum.net ## # WebSite: www.castellum.net ## ########################################################## ########################################################## # (C)Copyright 1999-2000 Castellum.net, All rights reserved ########################################################## # DISCLAIMER: ## # THIS PROGRAM IS PROVIDED WITHOUT WARRANTIES OF ANY ## # KIND, WHETHER EXPRESSED OR IMPLIED. THIS PROGRAM IS ## # PROVIDED WIThOUT WARRANTIES AS TO PERFORMANCE, OR ## # MERCHANTABILITY OF THIS PROGRAM. ## # TERMS OF USE: ## # THIS SCRIPT MAY BE MODIFIED, BUT NOT REDISTRIBUTED IN ## # ANY WAY, SHAPE, OR FORM. IN ANY CASE, COPYRIGHT AND ## # SCRIPT INFORMATION MUST BE KEPT IN PLACE ## ########################################################## use CGI::Carp qw(fatalsToBrowser); if (-e "install.lock"){&IError("Install lock will not allow you to overwrite files. Delete the lock and try again");} require "global.pl"; &InitGlobalVariables; if ($ENV{'QUERY_STRING'} eq ""){ &PrintMain; }elsif($ENV{'QUERY_STRING'} eq "install"){ &Install; } sub Install { my %input = &GetFormInput; &LoadSetup; $setup{'referers'} = $input{'domain'}; $setup{'admin_email'} = $input{'email'}; $setup{'sendmail'} = $input{'sendmail'}; &WriteSetup; $perl = $input{'perl'}; require "admin_setup.pl"; $new_username = 'admin'; $new_password = 'password'; my $password = crypt($new_password, substr($new_username,0,2)); open(ADMIN, ">admin_setup.pl")||&Error("Couldn't open admin_setup.pl: $!"); if ($setup{'flock'} == 1){flock(ADMIN,2);} print ADMIN "\$admin_username = '$new_username';\n"; print ADMIN "\$admin_password = '$password';\n"; print ADMIN "1;\n"; if ($setup{'flock'} == 1){flock(ADMIN,8);} close(ADMIN); $mode = (stat('install.cgi'))[2]; $chmod = sprintf "%04o", $mode & 07777; @cgi_files = ("main.cgi","add.cgi","search.cgi","category.cgi","admin.cgi"); foreach $file (@cgi_files){ if ($input{'777'} == 1){ chmod(oct('0777'),"$file"); } open(FILE, "$file")||&IError("$file: $!"); @lines = ; close(FILE); open(FILE, ">$file")||&IError("$file: $!"); print FILE "$perl\n"; print FILE @lines; close(FILE); if ($input{'777'} == 1){ chmod(oct($chmod),"$file"); } } if ($input{'777'} == 1){ @other_files = ("admin_setup.pl","clinks_setup.pl","data/categories.dat","data/links.dat"); foreach $file (@other_files){ chmod(oct("777"),"$file"); } } &PrintStandardHeader; print qq~ Castle Links Readme

Castle Links Installation

Congratulations, installation is complete. A lock file has been created to keep anyone else from running this script again, but it is recommended that you delete the install.cgi file.

The main script and where you want to point any visitors is the "main.cgi" file, it is what displays the main categories to visitors. The admin script can be accessed by going to the "admin.cgi" file and entering a username and password. The default username and password combination is "admin" and "password.

Please Rate this Script \@ The CGI Resource Index. By using this script and rating it you are helping ensure that future versions are released and that the script is continually revised.

There are a number of html files in the "templates" directory. You will want to edit them to give the script the look and feel of your website. More help on that can be found at our web site: http://castlecgi.castellum.net/scripts/CastleLinks/help.shtml

We hope you find this script useful and easy to use. Any suggestions, comments, or questions can be emailed to us at: castlecgi\@castellum.net

Thank you,

Castle CGI
http://www.castle-cgi.com

~; open(LOCK, ">install.lock")||&IError("Couldn't create install lock"); close(LOCK); } sub PrintMain { if ($ENV{'HTTP_REFERER'} =~ /^http:\/\/(www\.){0,1}([\w\-]+\.[\w]{2,3})/i){ $domain = $2; }else{$domain = "";} $email = ""; open(INS, "install.cgi"); $perl = ; close(INS); $results = `whereis sendmail`; @spots = split(/ /,$results); $sendmail = $spots[1]; &PrintStandardHeader; print qq~ Castle Links Readme

Castle Links Installation

You have now completed the first step of the installation process. If you are reading this, that means that you successfully uploaded this file a got it working. Below is a short form. The script needs to know some things before it can run without messing up, none of them are too technical, but ask your host if you don't understand what it is asking for. The script has gone ahead and put some of the variables that it found automatically in the boxes for you.

Domain Name:
This is the domain that you will be running the script from. So, if you are running it on http://www.thesite.whatever.com you would enter thesite.whatever.com. The script needs this to enact some Spam fighting measures to keep people from spamming your links database..

Email Address:
This is the email address of the Links Administrator. It is used for any correspondence that the script might send out.

Perl Location
This is the location of your perl interpretor. If the script was able to retreive it automatically, you probably don't want to change it. But, if the box is blank, put the correct location in there. This would be the same line that you put on the first line of the install.cgi file.

Sendmail Location:
This is the location of sendmail. It is used for sending emails out. The script may have been able to identify it's location automatically, but if not, enter it.

You are now ready to install the script. Once you press the button please don't stop it. The script has some work to do and it may take a minute or two to complete the process. Note: If you receive a "permission denied" error, try setting the permissions on the .cgi files and any other file that it has trouble opening to 777. That should allow the install script to write to it. Once the install is completed, you may want to change them back to 755 or whatever you had them at previously. Also, if you receive a install lock error, FTP in and delete the "install.lock" file.

If you get a permission denied error, or know that your server requires files to be 777 in order to write to them, check this box:

~; } sub IError { my ($error_string) = @_; print "Content-type: text/html\n\n"; print "ERROR: $error_string"; exit; } 1;