Slashdot.org: News for Nerds. Stuff That Matters.

#!/usr/bin/perl

if($ENV{SCRIPT_NAME} ne "") {
	my $r = Apache->request;
	$r->content_type("text/html");
	$r->send_http_header();
}


use DBI;
use strict;
use vars qw($dbh);

require 'ctime.pl';          
use slashmod;
my ($imagedir,$rootdir,$datadir)=slashmod::config();


sub main
{
        $dbh ||= slashmod::dbconnect();
	my %COOKIES=slashmod::getcookies();
	my %FORM=slashmod::getform;

	if(defined $FORM{ssi}) {
		print "<HTML><HEAD><TITLE>Slashdot.org: News for Nerds.  Stuff
					That Matters.</TITLE>