#!/usr/bin/perl 
#
##############################################################################
#  Plug It! v1.0                                                             #
#  Copyright (c) 1998 by Mike's World.  All Rights Reserved.                 #
#  http://www.mikesworld.net												 #		
#  mike@mikesworld.net  													 #
#  																			 #
#  You should carefully read all of the following terms and conditions       #
#  before using this program.  Your use of this software indicates           #
#  your acceptance of this license agreement and warranty.                   #
#                                                                            #
#  This program is being distributed as freeware.  It may be used and        #
#  modified free of charge, so long as this copyright notice, and the header # 
#  above remain intact.  Please also send me an email, and let me know       #
#  where you are using this script.                  						 #
#                                                                            #
#  By using this program you agree to indemnify Mike's World from any        #
#  liability. 																 #
#																			 #
#  Selling the code for this program without prior written consent is        #
#  expressly forbidden.  Obtain permission before redistributing this        #
#  program over the Internet or in any other medium.  In all cases           #
#  copyright and header must remain intact.                                  #
##############################################################################

#  Installation -
#
#  1 - Upload in ascii mode to your cgi-bin
#  2 - Chmod 755 plugit.cgi
#  3 - Create a file that holds everything you would like to be
#  displayed called plugit.txt and upload that to the same directory.
#  4 - Whatever page(s) you want Plug It! to show up in, include this
#  SSI line <!--#exec cgi="/cgi-bin/plugit.cgi" --> 

{
&PlugIt;
}

sub PlugIt
{
$plugit="plugit.txt";

open (PLUG,$plugit) || die "can't open $plugout";
$plugit="";
while (<PLUG>){$plugit .=$_;}
close(PLUG);

print "Content-type: text/html\n\n";
print "$plugit";

}
1;