#!/usr/bin/perl
############################################
##                                        ##
##         Links Mangement Script         ##
##      last modified: 20/Oct/2003        ##
##           copyright (c) 2002-3         ##
##                                        ##
##       Developed by Kaviraj Kodai       ##
##        www.eDesignParadigm.com         ##
##     (scripts@edesignparadigm.com)      ##
##                                        ##
##           For Larry Sullivan           ##
##           www.linking101.com           ##
##         (larry@linking101.com)         ##
##                                        ##
################################################################
#  COPYRIGHT (C) 2003 WWW.LINKING101.COM. ALL RIGHTS RESERVED  #
################################################################
# Copyright Notice                                             #
# ----------------                                             #
# This program is a commercial product and must NOT be copied, #
# modified, distributed, or installed without a user license   #
# from http://www.linking101.com. Any modification of the      #
# script without the written consent of Larry Sullivan is      #
# strictly prohibited.  You may not remove any of these header #
# notices. By using this code you agree to indemnify the author#
# from any liability that might arise from it's use.           #
################################################################

################################################################
#                  DO NOT EDIT ANYTHING BELOW                  #
################################################################

use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
require "config.cgi";
&configure;
$maintitle = "Add your link!";

open (FILE1, "$header");
@header= <FILE1>;
close(FILE1);

open (FILE2, "$footer");
@footer = <FILE2>;
close(FILE2);

print "Content-type: text/html\n\n";
print "@header<font face=\"verdana, arial\" size=2>
<H2>$maintitle</H2><table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tr bgcolor=\"#FFFFCC\"><td height=\"25\"><div align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\"><b><a href=\"$website\">Home</a></b></font></div></td>
</tr></table><p align=\"left\"><font face=\"Verdana, Arial\" size=\"-1\"><b>Before filling out this 
  form,please make sure our<br>link (the information provided below) is up and active<br> 
  on your site or links page.<br>This is a text based <strong><u>reciprocal</u></strong> links program.</font></b></p>
<div align=\"center\">
 <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <tr> 
      <td width=\"25%\" height=\"26\"> 
        <div align=\"right\"><b><font face=\"Verdana, Arial\" size=\"-1\">Title:</font></b></div>
      </td>
      <td width=\"75%\" height=\"26\"> 
        <div align=\"left\"><font face=\"Verdana, Arial\" size=\"-1\">$sitename</font></div>
      </td>
    </tr>
    <tr> 
      <td width=\"25%\" height=\"28\"> 
        <div align=\"right\"><b><font face=\"Verdana, Arial\" size=\"-1\">URL:</font></b></div>
      </td>
      <td width=\"75%\" height=\"28\"> 
        <div align=\"left\"><font face=\"Verdana, Arial\" size=\"-1\">$website</font></div>
      </td>
    </tr>
    <tr> 
      <td width=\"25%\" height=\"33\"> 
        <div align=\"right\"><b><font face=\"Verdana, Arial\" size=\"-1\">Description:</font></b></div>
      </td>
      <td width=\"75%\" height=\"33\"> 
        <div align=\"left\"><font face=\"Verdana, Arial\" size=\"-1\">$descript</font></div>
      </td>
    </tr>
  </table>
</div>
<hr>
<font face=\"Verdana, Arial\" size=\"-1\"> </font>
<p><font face=\"Verdana, Arial\" size=\"-1\">Once that is done, fill out the following 
  form <b>COMPLETELY</b> to add your link.The information you submit will be added 
  to a database, reviewed, and if accepted, added to the links page.</font></p>
<form method=\"get\" action=\"addlink2.cgi\">
  <div align=\"center\">
    <table border=\"0\" cellpadding=\"3\" cellspacing=\"0\" width=\"70%\">
      <tr> 
        <td width=\"38%\" align=\"right\"> 
          <p align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Your name:</font> 
        </td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"name\" size=\"30\">
          </font></td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Your 
          Email:</font></td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"email\" size=\"30\">
          </font></td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Location 
          of your link:</font></td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"hlink\" size=\"30\" value=\"http://\">
          </font></td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Web 
          Site Title</font></td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"title\" size=\"30\">
          </font></td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Your 
          Description:<br>
          <font size=\"-2\">(250 characters max)</font></font></td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"description\" size=\"50\" maxlength=\"250\">
          </font></td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Category 
          of your website</font></td>
        <td width=\"62%\"> 
          <select name=\"category\">";
@categoriesb = sort @categories;
foreach $category(@categoriesb){
print"            <option value=\"$category\">$category</option>";
}  
print"    </select>
        </td>
      </tr>
      <tr> 
        <td width=\"38%\" align=\"right\"><font face=\"Verdana, Arial\" size=\"-1\">Location 
          of our link</font></td>
        <td width=\"62%\"> <font face=\"Verdana, Arial\"> 
          <input type=\"text\" name=\"hlink2\" size=\"30\" value=\"http://\">
          </font></td>
      </tr>
    </table>
    <input type=\"submit\" value=\"Submit Your Link Request\">
    <input type=\"hidden\" name=\"action\"value=\"add\">
  </div>
</form>
<p>&nbsp;</p><table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"#FFFFCC\"> 
    <td height=\"25\"> 
      <div align=\"center\"><font face=\"Verdana, Arial\" size=\"-1\"><b><a href=\"http://www.linking101.com/cgi-bin/cbm/a.cgi?i=megamike&p=3\" target=\"_blank\">Link 
        Script Provided by Linking101.com</a></b></div>
    </td>
  </tr>
</table>@footer";
	exit;
sub error{
$message = shift(@_);
	print "Content-type: text/html\n\n";
	print <<html_;
<html>

<head>
<title>Error</title>
</head>
<body>
<center><table border=0 width=500><tr><td><font face="verdana, arial" size=2>$message</font></td></tr></table></center>
</body>

</html>
html_
	exit;
}
# end of script