$site_title: Welcome

#!/usr/bin/perl # # # March Search / Digi-Zone Search, Search System - The Yahoo Beater # # Site HTML: Version 2.00 # # Edited: 2.00 (Sunday 28th February 20.15pm 1998 M Pitt) # # ########################################################## ## Globals ## ########################################################## # You can put variables here that you would like to use throughout # the site. $date = &get_date; $time = &get_time; $font_size1 = 'font face="arial, helvetica" size=1 color="#8000FF"'; $font_new = 'font face="arial, helvetica" size=2 color="#8000FF"'; $font_pop = 'font face="arial, helvetica" size=2 color="#8000FF"'; $font_rev = 'font face="arial, helvetica" size=2 color="blue"'; $font_date = 'font face="arial, helvetica" size=1 color="#FF8000"'; $font_title = 'font face="arial, helvetica" size=4 color="#FFFF00"'; $font_subtitle = 'font face="arial, helvetica" size=3 color="#FFFF00"'; $font_menu = 'font face="verdana, arial" size=2 color="#FFFFFF"'; $font_rightmenu = 'font face="verdana, arial" size=2 color="#000000"'; $font_link = 'font face="arial, helvetica" size=2 color="#FFFF00"'; $font_category = 'font face="arial, helvetica" size=2 color="#FFFF00" link="#FFFF00" vlink="#FFFF00"'; $font = 'font face="arial, helvetica" size=2 color="#000000"'; $font_copyright = 'font face="arial, helvetica" size=1 color="#000000"'; $font_footop = 'font face="ms sans serif, arial" size=1 color="#000000"'; $font_footspace = 'font face="times new roman" size=3 color="#000000"'; $font_sidebarsections = 'font face="arial, helvetica" size=2 color="#0080FF"'; $site_body = 'body background="http://www.digi-zone.com/images/99back.gif"'; $site_menu = qq~ Home
Add URL
Modify URL

News
Weather
Finance
Shopping
Free Webspace

What's New
What's Cool
Advertise
~; # Search Box Design $site_searchbox = qq~ ~; # Matching Category Sub Title $site_matchingcategory = qq~

Matching Categories

~; # Matching Web Sites Sub Title $site_matchingwebsites = qq~

Matching Web Sites

~; # Related Categories Sub Title $site_relatedcategory = qq~

Related Categories

~; # Top Search Box $site_topsearchbox = qq~


Search:

~; # Bottom Search Box $site_bottomsearchbox = qq~


Search:

~; # NEW - Search Box which includes a way to narrow the search within current category $site_topcatsearch = qq~


Search: Narrow your matches

~; # NEW - Category Only Search. $site_catsearch = qq~ ~; # If you want to put in a generic advertisement. $site_ad = qq~

~; # If you want to add a mailing list. $site_mail = qq~ ~; # NEW - Right Menu Display. $site_rightmenu = qq~ <$font_rightmenu> Right menu coming soon. ~; # Page Footers. $site_footeroptions = qq~ <$font_footop> Home <$font_footspace> | <$font_footop> Add URL <$font_footspace> | <$font_footop> Modify URL <$font_footspace> | <$font_footop> What's New <$font_footspace> | <$font_footop> What's Cool <$font_footspace> | <$font_footop> FAQ
<$font_footop> Contact Us <$font_footspace> | <$font_footop> Press Releases <$font_footspace> | <$font_footop> Advertise <$font_footspace> | <$font_footop> Privacy Policy <$font_footspace> | <$font_footop> Copyright Policy
~; # This is the Copyright that appears at the bottom of any page that you want it to appear on. $site_copynotice = qq~ <$font_copyright>© Copyright March New Media / Digi-Zone Internet Services 1999. All Rights Reserved. ~; ########################################################## ## A Link ## ########################################################## sub site_html_link { # -------------------------------------------------------- # This routine is used to display what a link should look # like. It's a little complex looking just because we have to # check for blank entries.. my (%rec) = @_; $output = qq| <$font>$rec{'Title'}
|; if ($rec{'Description'}) { $output .= qq| <$font>$rec{'Description'}\n|; } if ($rec{'isNew'} eq "Yes") { $output .= qq| <$font_new>new|; } if ($rec{'isPopular'} eq "Yes") { $output .= qq| <$font_pop>pop|; } $output .= qq|
<$font_size1>(Date Added: $rec{'Date'}, Hits: $rec{'Hits'})
<$font_size1>$rec{'URL'}

|; return $output; } ########################################################## ## Home Page ## ########################################################## sub site_html_home { # -------------------------------------------------------- # This routine will build a home page. It is not meant to have any # links on it, only subcategories. # # $category : The list of subcategories. # $time : The current time. # $date : The current date. # $grand_total : The total number of links. # my ($output); $output = qq~ $site_title: Welcome <$site_body>

$site_menu

$site_topsearchbox

Arts: Literature, Photography

Business: Companies, Finance, Jobs

Computers: Internet, WWW, Software

Culture: People, Enviroment, Religion

Education: Schools, Colleges, Universities

Entertainment: Movies, Humour, Music

Government: Law, Politics, Taxes

Health: Diseases, Drugs, Fitness

News: Media, Newspapers, TV

Recreation: Sports, Travel, Outdoors

Reference: Libaries, Dictionaries, Quotations

Regional: Countries, Regions

Science: Astronomy, Biology, Engineering

Social: Archaeology, Languages

$site_bottomsearchbox
$site_footeroptions
$site_copynotice

$site_rightmenu

~; return $output; } ########################################################## ## What's New Page ## ########################################################## sub site_html_new { # -------------------------------------------------------- # This routine will build a what's new page. You can use the following # variables # # $time : The current time. # $date : The current date. # $total : The total number of new links. # $grand_total : The total number of links. # $link_results : The list of new links. # $title_linked # $output = qq~ $site_title: What's New <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: What's New
<$font>$title_linked

<$font_subtitle>$total New Links:
<$font_category>$link_results

$site_footeroptions

$site_copynotice

~; return $output; } ########################################################## ## What's Cool Page ## ########################################################## sub site_html_cool { # -------------------------------------------------------- # This routine will build a what's new page. You can use the following # variables # # $time : The current time. # $date : The current date. # $total : The total number of new links. # $grand_total : The total number of links. # $percent : The cool percent cutoff (top 3%, etc). # $link_results : The list of cool links. # # Your Title and Header. $output = qq~ $site_title: What's Cool <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: What's Cool - The Top $percent%!
<$font>$title_linked

<$font_subtitle>$total Cool Links:
<$font_category>$link_results

$site_footeroptions

$site_copynotice

~; return $output; } ########################################################## ## Category Pages ## ########################################################## sub site_html_category { # -------------------------------------------------------- # This rountine will build a page based for the current category. # Insert the following variables in the appropriate place. # # $category : The list of subcategories. # $links : The list of links in this category. # $time : The current time. # $date : The current date. # $title_linked : A linked version of the title bar. # $title : An unlinked version of the title bar. # $total : The total number of links in this category. # $grand_total : The total number of links. # $category_name : The category name. # $category_name_escaped : The category name URL escaped (used for the Add function) # $category_clean : The category name with _ and / removed. # # The following will work assuming you haven't changed the order of the # category database. If you have, or have added new fields, you can access # any of the information by using $category{$category_name}[field_num] where # field number is the number (indexed from 0) of the field you want. Otherwise # you can just use the following: # # $description : Category Description # $meta_name : Meta Description Tag # $meta_keywords : Meta Keywords Tag # $header : Custom Header # $footer : Custom Footer # $related : A

list of related categories. # my ($output); $output = qq~ $site_title: Search Results <$site_body>

$site_menu

$site_topsearchbox
<$font><$title_linked

~; if ($header) { $output .= qq~

<$font size=5>$header

~; } if ($category) { $output .= qq~ $site_matchingcategory <$font_category>$category

~; } if ($links) {$output .= qq~ $site_matchingwebsites <$font>$links

~; } if ($related) { $output .= qq~ $site_relatedcategories <$font>$related ~; } if ($prev or $next) { $output .= qq~

~; } if ($prev) { $output .= qq~<$font>Prev $build_links_per_page ~; } if ($next) { $output .= qq~<$font>Next $build_links_per_page ~; } if ($prev or $next) { $output .= qq~

~; } if ($footer) { $output .= qq~

$footer

~; } $output .= qq~

$site_bottomsearchbox
$site_footeroptions
$site_copynotice

$site_rightmenu

~; return $output; } ########################################################## ## Category Listings ## ########################################################## sub site_html_print_cat { # -------------------------------------------------------- # This routine determines how the list of categories will look. # We now use a table to split the category name up into two columns. # For each category you can use the following variables: # # $url : The URL to go to that category # $category_name : The category name with _ and / removed. # $category_descriptions{$subcat}: The category description (if any). # $numlinks : The number of links inside that category (and subcategories). # $mod : The newest link inside of that category. # my (@subcat) = @_; my ($url, $numlinks, $mod, $subcat, $category_name, $description, $output, $i, $cat_desc); my ($half) = int (($#subcat+2) / 2); # Print Header. $output = qq|

\n|; foreach $subcat (sort @subcat) { ($description) = @{$category{$subcat}}[2]; ($cat_desc) = @{$category{$subcat}}[5]; # First let's get the name, number of links, and last modified date... $url = "$build_root_url/" . &urlencode($subcat) . "/"; if ($cat_desc eq "") { if ($subcat =~ m,.*/([^/]+)$,) { $category_name = &build_clean($1); } else { $category_name = &build_clean($subcat); } } else { $category_name = &build_last_title_mb($cat_desc); } $numlinks = $stats{"$subcat"}[0]; $mod = $stats{"$subcat"}[1]; # We check to see if we are half way through, if so we stop this table cell # and begin a new one (this lets us have category names in two columns). if ($i == $half) { $output .= qq|

\n|; } $i++; # Then we print out the name linked, new if it's new, and popular if its popular. $output .= qq|

<$font>$category_name ($numlinks)|; $output .= qq|<$font_new>New| if (&days_old($mod) < $db_new_cutoff); $output .= qq|: <$font>$description

|; } # Don't forget to end the unordered list.. $output .= "

\n"; return $output; } ########################################################## ## Add Resources ## ########################################################## sub site_html_add_form { # -------------------------------------------------------- # This routine determines how the add form page will look like. # &html_print_headers; print qq~ $site_title: Add a Resource <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Add a URL

<$font>Please fill out the form completely, and we'll add your resource as soon as possible.

<$font>Title:
<$font>URL:
<$font>Category:	~; $db_select_fields{'Category'} = join (",", &category_list); print &build_select_field ("Category", "$in{'Cat'}"); print qq~
<$font>Description: (Max 25 Words)	$in{'Description'}
<$font>Contact Name:
<$font>Contact Email:
	Expires in: days if you have a temporary link.
	Check this box if you DO NOT wish to recieve e-mail about site updates and special events.

<$font>Webmasters! Increase the popularity rating of your site by linking to us.
Just email us for the HTML to include in your site!

$site_footeroptions

$site_copynotice

~; } sub site_html_add_success { # -------------------------------------------------------- # This routine determines how the add failure page will look like. You have # access to the following variables: # # %in : the variables used to add the link, useful in confirming what was # added. # &html_print_headers; print qq~ $site_title: Add Success <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Resource Added

<$font>We have received the following link:

          Title:  $in{'Title'}
            URL:  $in{'URL'}
    Description:  $in{'Description'}
         Review:  $in{'Review'}
   Contact Name:  $in{'Contact Name'}
  Contact Email:  $in{'Contact Email'}
       Category:  $in{'Category'}
     Expires in:  $in{'Expire'} days

<$font>We will send you an email giving you all the information you need once your web sites details have been added to the system.

In the meantime do pass on our site details to your friends. We are adding thousands of new web sites to the system each week, so we are sure we will have something for you and your friends.

<$font> Click here for a free site survey by GIF Wizard.

$site_footeroptions

$site_copynotice

~; } sub site_html_add_failure { # -------------------------------------------------------- # This routine determines how the add failure page will look like. You have # access to the following variables: # # $errormsg : A bulleted list of the problems. # %in : variables used in adding the form. Useful for recreating # the form # my ($errormsg) = $_[0]; &html_print_headers; print qq~ $site_title: Error Adding Resource <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Error Adding Resource

<$font>There were the following errors trying to add your resource: $errormsg

Please make any changes and try again!

<$font>Title:

<$font>URL:

<$font>Category: ~; $db_select_fields{'Category'} = join (",", &category_list); print &build_select_field ("Category", "$in{'Cat'}"); print qq~

<$font>Description: (Max 25 Words) $in{'Description'}

<$font>Review: $in{'Review'}

<$font>Contact Name:

<$font>Contact Email:

Expires in: days if you have a temporary link.

Check this box if you DO NOT wish to recieve e-mail about site updates and special events.

<$font>Webmasters! Increase the popularity rating of your site by linking to us.
Just email us for the HTML to include in your site!

$site_footeroptions

$site_copynotice

~; } ########################################################## ## Modify Resources ## ########################################################## sub site_html_modify_form { # -------------------------------------------------------- # This routine determines how the modify form page will look like. # You should include a text field for the URL to be modified as well # as a new form for the new link information. # &html_print_headers; print qq~ $site_title: Modify a Resource <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Modify a Resource

<$font>Please enter the URL of the link you wish to update. Make sure it is identical to the one already in the database:

<$font>Now enter the new information (all of it, not just the changes) below:

<$font>Title:

<$font>URL:

<$font>Category: ~; $db_select_fields{'Category'} = join (",", &category_list); print &build_select_field ("Category", "$in{'Cat'}"); print qq~

<$font>Description: $in{'Description'}

<$font>Contact Name:

<$font>Contact Email:

Expires in: days if you have a temporary link.

Check this box if you do not wish to recieve e-mail about site updates and special events.

<$font>Webmasters! Increase the popularity rating of your site by linking to us.
Just email us for the HTML to include in your site!

$site_footeroptions

$site_copynotice

~; } sub site_html_modify_success { # -------------------------------------------------------- # This routine determines how the modify failure page will look like. You have # access to the following variables: # # %in : the variables used to modify the link, useful in confirming what was # modified. # &html_print_headers; print qq~ $site_title: Modify a Resource <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Modify a Resource

<$font>We have received the following link:

          Title:  $in{'Title'}
            URL:  $in{'URL'}
    Description:  $in{'Description'}
         Review:  $in{'Review'}
   Contact Name:  $in{'Contact Name'}
  Contact Email:  $in{'Contact Email'}
       Category:  $in{'Category'}
     Expires in:  $in{'Expire'} days

$site_footeroptions

$site_copynotice

~; } sub site_html_modify_failure { # -------------------------------------------------------- # This routine determines how the modify failure page will look like. You have # access to the following variables: # # $errormsg : A bulleted list of the problems. # %in : variables used in modifying the form. Useful for recreating # the form # my ($errormsg) = $_[0]; &html_print_headers; print qq~ $site_title: Error Modifying Resource <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Error Modifying Resource

<$font>There were the following errors trying to modify your resource:
$errormsg

Please make any changes and try again!

<$font>Please enter the URL of the link you wish to update. Make sure it is identical to the one already in the database:

<$font>Webmasters! Increase the popularity rating of your site by linking to us.
Just email us for the HTML to include in your site!

$site_footeroptions

$site_copynotice

~; } ########################################################## ## Search Results ## ########################################################## sub site_html_search_results { # -------------------------------------------------------- # This routine displays the search results for a certain keyword. # my (@hits) = @_; &html_print_headers; print qq~ $site_title: Search Results <$site_body>

$site_menu

$site_topsearchbox
<$font> Your search for $in{'query'} resulted in:
$cat_hits matching categories
$link_hits matching web sites
~; } if ($category_results) { print qq~

Matching Categories:

<$font>$category_results
~; } if ($link_results) { print qq~

Matching Web Sites

~; if ($next) { my (@lang) = ("first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eigth"); print qq~ <$font>Here is your $lang[$in{'nh'}] $maxhits matches. Get the next $next_hits matches?
<$font>$link_results ~; } if ($next) { my (@lang) = ("first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eigth"); print qq~ <$font>Here is your $lang[$in{'nh'}] $maxhits matches. Get the next $next_hits matches? ~; } print qq~ $site_bottomsearchbox

$site_rightmenu

~; } sub site_html_search_failure { # -------------------------------------------------------- # This routine displays a failed search page with error in $error. # my ($error) = $_[0]; &html_print_headers; print qq~ $site_title: Search Failed <$site_body>

$site_menu

$site_searchbox

<$font_subtitle>$site_title: Search Failed

<$font>Error: $error

$site_footeroptions

$site_copynotice

~; } sub site_html_search_form { # -------------------------------------------------------- # This routine displays the search form. &html_print_headers; print qq~ $site_title: Search Options <$site_body> $site_ad

<$font_subtitle>$site_title: Search Options

$site_menu

$site_footer

~; } ########################################################################## # HTML for the top of the Links Tree ## ########################################################################## sub build_tree_top { qq~ $site_title: Links Tree <$site_body> $site_ad

<$font_subtitle>$site_title: Links Tree
<$font>Links Tree

$site_menu

~; } ########################################################################## # HTML for the bottom of the Links Tree## ########################################################################## sub build_tree_bottom { qq~

$site_footer ~; } ########################################################################## # HTML for the FrameIt Rating Mod ########################################################################## sub output_footer { # Output the footer print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "Rate this site \n"; print "Go Back \n"; print "Remove Frame \n"; print "\n"; print "\n"; } ############################################################### # This routine determines how the rating page will look like. # # $id : stores the ID of the page. # $title : stores the Title of the page. ############################################################### sub site_html_rating_form { my ($id) = $_[0]; my ($title) = $_[1]; &html_print_headers; print qq~ Rate It

Rating for: $title

(10 being best)

~; } ############################################################### # This routine is called when someone calls rate.cgi without # an id. ############################################################### sub site_html_rating_form_noid { &html_print_headers; print qq~ Rate It You must enter an ID, go back... ~; } ############################################################### # This routine is called when someone rates a page successfully # $id : stores the ID of the page. # $title : stores the Title of the page. ############################################################### sub site_html_rating_form_success { my ($id) = $_[0]; my ($url) = $_[1]; my ($title) = $_[2]; my ($votes) = $_[3]; my ($rating) = $_[4]; &html_print_headers; print qq~ Thank you for voting for: $title Remove Frame Home ~; } ############################################################### # This routine is called when someone attempts to rate a site # for the second time within the past 6 hours. ############################################################### sub site_html_rating_form_cheat { my ($ip) = $_[0]; &html_print_headers; print qq~ ERROR: $ip has already voted for this resource, go back... ~; } ############################################################### # This routine determines what one site in the top x/% list # will look like. ############################################################### sub site_html_rstat_listing { my ($id) = $_[0]; my ($url) = $_[1]; my ($title) = $_[2]; my ($votes) = $_[3]; my ($rating) = $_[4]; my ($d) = $_[5]; $output = qq|

$title Votes: $votes. Rating: $rating.

|; return $output; } ############################################################### # This routine is called to show the real time statistics. ############################################################### sub site_html_rstat_show { my ($votes) = $_[0]; # Statistics by Votes my ($rating) = $_[1]; # Statistics by Rating print qq~ $site_title <$site_body>

$site_menu

$site_searchbox

<$font_title>$site_title
<$font>$site_subtitle

Top 10% By Votes
$votes

Top 10% By Rating
$rating

$site_footer

~; } ############################################################ # Review-It Mod HTML for a successful review ############################################################ sub site_html_review { # -------------------------------------------------------- # This routine Prints Out The Review # $title : Name of Link to be reviewed # $review : Site review # $url : Full URL of reviewed site # $date : The date the link was last modified or added # $hits : the number of hit this site has # $votes : How many votes the link has (if you have Rate-It installed) # $rating : Rating of the site (if you have Rate-It installed) # IF YOU ARE ADDING THE REVIEW-IT MOD TO A SITE THAT DOESN'T HAVE # THE RATE-IT MOD INSTALLED --> YOU MUST MODIFY THE HTML BELOW TO REMOVE # BOTH THE VOTES AND THE RATING SECTIONS OF THE REVIEW &html_print_headers; print qq~ $site_title: Review for $title <$site_body>

$site_menu

<$font_title>$site_title
<$font>$site_subtitle

Review for $title
$review

ADDED: $date
HITS: $hits
VOTES: $votes
RATING: $rating

Full URL: $url

$site_footer

~; } ############################################################ # Review-It Mod HTML for review submission that has no ID# ############################################################ sub site_html_review_noid { &html_print_headers; print qq~ $site_title: Review for $title <$site_body>

$site_menu

<$font_title>$site_title
<$font>$site_subtitle

$site_menu

Go back, you did something wrong!

$site_footer

~; exit; } 1;