here is what the admin is saying when i try and log into it.
CGI ERROR==========================================Error Message : fatal error: syntax error at /sites/jsnodgrass/jsnodgrass/pornlinks4you.com/cgi-bin/links/admin/links.def line 37, near "recip"Compilation failed in require at /sites/jsnodgrass/jsnodgrass/pornlinks4you.com/cgi-bin/links/admin/admin.cgi line 55.Script Location : /sites/jsnodgrass/jsnodgrass/pornlinks4you.com/cgi-bin/links/admin/admin.cgiPerl Version : 5.006HERE IS MY LINKS.CFG # -------------# Links# -------------# Links Manager## File: links.cfg# Description: Contains all the setup variables.# Author: Alex Krohn# Email:
alex@gossamer-threads.com# Web:
http://www.gossamer-threads.com/# Version: 2.01## (c) 1998
Gossamer Threads Inc. ## This script is not freeware! Please read the README for full details# on registration and terms of use. # ===================================================================== # Paths and URL's to Important Stuff# --------------------------------------------------------# PATH and URL of Admin CGI directory. No Trailing Slash. $db_script_path = "/sites/jsnodgrass/jsnodgrass/pornlinks4you.com/cgi-bin/links/admin"; $db_dir_url = "
http://www.pornlinks4you.com/cgi-bin/links/admin";# Link to check for on other sites
$site_check = "
www.pornlinks4you.com"; #full path to report
$report_url = "
http://www.pornlinks4you.com/...templates/recip.html"; #full path to recip script place in the same dir as your admin.cgi
$report_cgi = "
http://www.pornlinks4you.com/...inks/admin/recip.cgi"; # URL of User CGI directory. No Trailing Slash. $db_cgi_url = "
http://www.pornlinks4you.com/cgi-bin/links"; # PATH and URL of Pages to be built. No Trailing Slash. $build_root_path = "/sites/jsnodgrass/jsnodgrass/pornlinks4you.com/www/avs"; $build_root_url = "
http://www.pornlinks4you.com/avs"; # PATH and URL of What's New page. No Trailing slash. $build_new_path = "$build_root_path/New"; $build_new_url = "$build_root_url/New"; # PATH and URL of What's Cool page. No Trailing slash. $build_cool_path = "$build_root_path/Cool"; $build_cool_url = "$build_root_url/Cool"; # PATH and URL of What's Rating page. No Trailing slash. $build_ratings_path = "$build_root_path/Ratings"; $build_ratings_url = "$build_root_url/Ratings"; # Database Options # --------------------------------------------------------# You really need to use flock(). However if your system doesn't support it (Win95),# then turn this off at your own risk! $db_use_flock = 1;# Use Pragma: no-cache to stop browsers from caching output? (0 = cache, 1 = nocache) $db_nocache = 0;# Use IIS headers? Set this to 1 if your web server needs the full headers (HTTP/1.0 etc.) $db_iis = 0;# Field number of category in category.db $db_main_category = 1;# Referers -- which hosts are allowed to add to your database. @db_referers = (); # Email Options# --------------------------------------------------------# NOTE: Be sure to edit the text of the message. It can be found# in the templates directory: email-add.txt, email-del.txt and# email-mod.txt respectively. # Set only ONE of either $db_mail_path which should go to a # mail program like sendmail, or $db_smtp_server which will use# a SMTP server. Do not set both at once! # PATH of sendmail. # SMTP Server $db_mail_path = '/usr/lib/sendmail'; $db_smtp_server = ''; # Email address of the administrator. BE SURE TO SET! $db_admin_email =
'webmaster@pornlinks4you.com'; # Notify visitors automatically when their links are validated? $db_email_add = 1; # Notify visitors automatically when their links are modified? $db_email_modify = 1; # Log all outgoing messages? Put the full path to a logfile and make sure it# exists and is writeable (chmod 666 -rw-rw-rw-). This logfile can get pretty# big! $db_mailer_log = ''; # Build Options# --------------------------------------------------------# Setting for popular cutoff, can either be a percent (i.e. top 3%), or# a fixed value (i.e. top 10). Enter 0.03 or 10 respectively. $db_popular_cutoff = 0.03; # Top 3%# Number of days a link is considered New. $db_new_cutoff = 14; # 14 days old.# Return search results bolded (1 = yes, 0 = no). $search_bold = 1;# The name of an index file. $build_index = "index.html";# The extension to use for non index files: $build_extension = ".shtml"; # Should your add.cgi automatically select what category the user# is adding his link into? $db_single_category = 1; # Directory Permissions. Do NOT put quotes around it. Set to 0777 # for world writeable. If you put this at 0755, you might need a # script to remove any directories created as they will be owned # by the web server or user nobody. Better solution might be to # run the nph-build routine from the command shell. $build_dir_per = 0777; # The script can now break up category pages that have more then x# number of links in it. It will also create next and previous links# to help navigate. Set this to 1 if you want to break up pages or 0 if# you want to have only one page per category.# Setting this to one, will also break up the What's New pages into# per day sections (not affected by number of links per page). $build_span_pages = 1; # Number of links per page. $build_links_per_page = 10; # Detailed View: The script can build a single html page per link. This is # great if you have a review in your database. To enable, you must set# the directory where all the pages will be stored, the url to that directory# and set the enable option. $build_detailed = 0; $build_detail_path = "$build_root_path/Detailed"; $build_detail_url = "$build_root_url/Detailed"; # Use Templates: instead of editing site_html.pl, you can edit regular html pages# encoded with special <%links_tags%>. It's not as flexible as site_html.pl, but it # may be easier. $build_use_templates = 1; # Site Title, the default title to use. You should really spend some time customizing# the directory though! $build_site_title = 'Avs Porn Links 4 You'; # Date Routines# --------------------------------------------------------# Your date format can be whatever you like, as long as the following# two functions are defined &date_to_unix and &unix_to_date:# The default is dd-mmm-yyyy. sub date_to_unix {# --------------------------------------------------------# This routine must take your date format and return the time a la UNIX time().# Some things to be careful about.. # timelocal does not like to be in array context, don't do my($time) = timelocal (..)# int your values just in case to remove spaces, etc.# catch the fatal error timelocal will generate if you have a bad date..# don't forget that the month is indexed from 0!# my $date = shift; my $i; my %months = map { $_ => $i++ } qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!; my ($day, $mon, $year) = split(/-/, $date); exists $months{$mon} or return undef; $day = int($day); $year = $year - 1900; require Time::Local; my $time = 0; eval { $time = &Time::Local::timelocal(0,0,0, $day, $months{$mon}, $year); }; if ($@) { die "invalid date format: $date - parsed as (day: $day, month: $months{$mon}, year: $year). Reason: $@"; } return $time;} sub unix_to_date {# --------------------------------------------------------# This routine must take a unix time and return your date format# A much simpler routine, just make sure your format isn't so complex that# you can't get it back into unix time.# my $time = shift; my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime $time; my @months = qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!; $year = $year + 1900; return "$day-$months[$mon]-$year";} sub long_date {# --------------------------------------------------------# This routine is for printing a nicer date format on the what's new page. It should # take in a date in your current format and return a new one. my $time = shift; $time = &date_to_unix ($time); my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime $time; my @months = qw!January February March April May June July August September October November December!; my @days = qw!Sunday Monday Tuesday Wednesday Thursday Friday Saturday!; $year = $year + 1900; return "$days[$dweek], $months[$mon] $day $year";} # -------------------------------------------------------------# Extra Paths -- unless you feel the need to rename files, you# can leave this as is.# ------------------------------------------------------------- $db_script_url = $db_dir_url . "/admin.cgi"; # Admin script. $db_header_path = $db_script_path . "/header"; # Place to store header and footers. $db_footer_path = $db_script_path . "/footer"; $build_search_url = $db_cgi_url . "/search.cgi"; # URL of search script. $build_add_url = $db_cgi_url . "/add.cgi"; # URL of add script. $build_modify_url = $db_cgi_url . "/modify.cgi"; # URL of modify script. $build_jump_url = $db_cgi_url . "/jump.cgi"; # URL of jump script. $build_email_url = $db_cgi_url . "/subscribe.cgi"; # URL of email update script. $build_rate_url = $db_cgi_url . "/rate.cgi"; # URL of rate script. $db_mail_url = $db_dir_url . "/nph-email.cgi"; # URL of admin mass mail script. $build_css_url = $build_root_url . "/links.css"; # URL to your CSS file. $db_lib_path = $db_script_path; # PATH of library files. $db_links_name = "$db_script_path/data/links.db"; # PATH to links database. $db_category_name = "$db_script_path/data/categories.db"; # PATH to category database. $db_valid_name = "$db_script_path/data/validate.db"; # PATH to validation database. $db_modified_name = "$db_script_path/data/modified.db"; # PATH to modification database. $db_url_name = "$db_script_path/data/url.db"; # PATH to URL lookup database. $db_email_name = "$db_script_path/data/email.db"; # PATH to email database. $db_links_id_file_name = "$db_script_path/data/linksid.txt"; # PATH to links counter file. $db_category_id_file_name = "$db_script_path/data/categoryid.txt"; # PATH to category counter file. $db_hits_path = "$db_script_path/data/hits"; # PATH to hits directory. $db_template_path = "$db_script_path/templates"; # PATH to templates. $db_rates_path = "$db_script_path/data/rates"; # PATH to ratings.
$recip_report = "/path/to/recip.html"; # PATH to recip report1; HERE IS MY LINKS.DEF # -------------
# Links
# -------------
# Links Manager
#
# File: links.def
# Description: Contains the database definition for links.
# Author: Alex Krohn
# Email:
alex@gossamer-threads.com # Web:
http://www.gossamer-threads.com/ # Version: 2.01
#
# (c) 1998
Gossamer Threads Inc.
#
# This script is not freeware! Please read the README for full details
# on registration and terms of use.
# =====================================================================# Database Definition: LINKS
# --------------------------------------------------------
# Definition of your database file.
%db_def = (
ID => [0, 'numer', 5, 8, 1, '', ''],
Title => [1, 'alpha', 40, 75, 1, '', ''],
URL => [2, 'alpha', 40, 75, 1, 'http://', '^http|news|mailto|ftp'],
Date => [3, 'date', 15, 15, 1, \&get_date, ''],
Category => [4, 'alpha', 0, 150, 1, '', ''],
Description => [5, 'alpha', '40x3', 500, 0, '', ''],
'Contact Name' => [6, 'alpha', 40, 75, 1, '', ''],
'Contact Email' => [7, 'alpha', 40, 75, 1, '',
'.+@.+\..+'],
Hits => [8, 'numer', 10, 10, 1, '0', '\d+'],
isNew => [9, 'alpha', 0, 5, 0, 'No', ''],
isPopular => [10, 'alpha', 0, 5, 0, 'No', ''],
Rating => [11, 'numer', 10, 10, 1, 0, '^[\d\.]+$'],
Votes => [12, 'numer', 10, 10, 1, 0, '^\d+$'],
ReceiveMail => [13, 'alpha', 10, 10, 1, 'Yes', 'No|Yes']
recip => [14, 'alpha', 40, 75, 0, 'http://', '^http|news|mailto|ftp']
);
# Database file to use -- defined in links.cfg.
$db_file_name = $db_links_name;
# Counter file to use -- defined in links.cfg.
$db_id_file_name = $db_links_id_file_name;
# The column name for the database key.
$db_key = 'ID';
# Database delimeter.
$db_delim = '|';
# Title used in admin output.
$html_title = 'Links Database';
$html_object = 'Link';# Field Number of some important fields. The number is from %db_def above
# where the first field equals 0.
$db_category = 4; $db_modified = 3; $db_url = 2;
$db_hits = 8; $db_isnew = 9; $db_ispop = 10;
$db_contact_name = 6; $db_contact_email = 7; $db_title = 1;
$db_votes = 12; $db_rating = 11; $db_mail = 13;# Field number to sort links by:
$db_sort_links = 1;# Field names you want to allow visitors to search on:
@search_fields = (1,2,5); # System defaults. When adding new links or modifying links, these fields
# can not be overwritten by a user.
%add_system_fields = (
isNew => 'No',
isPopular => 'No',
Hits => '0',
Rating => 0,
Votes => 0,
ReceiveMail => 'Yes'
);# Hash of column names to possible options. If you want to use a select form
# field, you can use &build_select_field in your HTML page. This routine will
# make a <SELECT> input tag using the following values:
%db_select_fields = (
isNew => 'Yes,No',
isPopular => 'Yes,No',
ReceiveMail => 'Yes,No'
);# Hash of column names to radio values. If you use &build_radio_field, it will
# make a <INPUT TYPE="RADIO"> tag for you using the options specified in the hash.
%db_radio_fields = ( );# Maximum number of hits returned in a search. Can be overridden in the search
# options.
$db_max_hits = 10;# Use the built in key tracker.
$db_key_track = 1;# ===========================================================================
# Build up some variables from your definitions. Internal use only.
@db_cols = ();
foreach (sort { $db_def{$a}[0] <=> $db_def{$b}[0] } keys %db_def) {
push (@db_cols, $_);
$db_sort{$_} = $db_def{$_}[1];
$db_form_len{$_} = $db_def{$_}[2];
$db_lengths{$_} = $db_def{$_}[3];
$db_not_null{$_} = $db_def{$_}[4];
$db_defaults{$_} = $db_def{$_}[5];
$db_valid_types{$_} = $db_def{$_}[6];
($_ eq $db_key) and $db_key_pos = $db_def{$_}[0];
}1; Please if anyone could help , it would be greatly appricated.thanksjamie
