1 #!/usr/local/bin/perl -w
  2 # Copyright (C) 1998  Edward Piou, piou@ahref.com.
  3 # Originally written for use on Anchor [ahref.com], 5/20/1998.
  4 # This program is free software; you can redistribute it and/or
  5 # modify it under the terms of the GNU General Public License
  6 # as published by the Free Software Foundation; either version 2
  7 # of the License, or (at your option) any later version.
  8 use CGI;
  9 use LWP::UserAgent;
 10 use HTTP::Request;
 11 use HTTP::Status;
 12 
 13 $| = 1;
 14 
 15 $cgi = new CGI;
 16 print $cgi->header;
 17 $input_url = $cgi->param('input_url');
 18 $input_email = $cgi->param('input_email');
 19 
 20 my $our_ip = "205.177.109.84";
 21 $HEADER = "/documentpath/header.inc";
 22 $FOOTER = "/documentpath/footer.inc";
 23 
 24 if ($input_url !~ /^http:\/\//) {
 25 	$output_string = "<BLOCKQUOTE><H3>Invalid URL</H3>\n";
 26 	$output_string .= "<P>You input an invalid URL - try again!</BLOCKQUOTE>";
 27 	&show_output ($output_string);
 28 	exit;
 29 }
 30 if ($input_email !~ /@/) {
 31 	$output_string = "<BLOCKQUOTE><H3>Invalid Email Address</H3>\n";
 32 	$output_string .= "<P>You input an invalid email address - try again!</BLOCKQUOTE>";
 33 	&show_output ($output_string);
 34 	exit;
 35 }
 36 
 37 @site_list = qw (altavista excite hotbot lycos webcrawler);
 38 
 39 $altavista{"submission_page"} = "http://add-url.altavista.digital.com/cgi-bin/newurl";
 40 $altavista{"success"} = "has been recorded by our robot";
 41 $altavista{"q"} = "$input_url";
 42 $altavista{"ad"} = "1";
 43 
 44 $excite{"submission_page"} = "http://www.excite.com/cgi/add_url.cgi";
 45 $excite{"success"} = "Thank you!";
 46 $excite{"url"} = "$input_url";
 47 $excite{"email"} = "$input_email";
 48 $excite{"look"} = "excite";
 49 
 50 $hotbot{"submission_page"} = "http://www.hotbot.com/addurl.html";
 51 $hotbot{"success"} = "Got it!";
 52 $hotbot{"newurl"} = "$input_url";
 53 $hotbot{"email"} = "$input_email";
 54 $hotbot{"ip"} = "$our_ip";
 55 $hotbot{"redirect"} = "http://www.hotbot.com/addurl2.html";
 56 
 57 $lycos{"submission_page"} = "http://www.lycos.com/cgi-bin/spider_now.pl";
 58 $lycos{"success"} = "We successfully spidered your page.";
 59 $lycos{"query"} = "$input_url";
 60 $lycos{"email"} = "$input_email";
 61 
 62 $webcrawler{"submission_page"} = "http://webcrawler.com/cgi-bin/addURL.cgi";
 63 $webcrawler{"success"} = "has been scheduled for indexing.";
 64 $webcrawler{"url"} = "$input_url";
 65 $webcrawler{"action"} = "add";
 66 
 67 my $ua = new LWP::UserAgent;
 68 $ua->agent ("ahref.com multisubmit 1.0");
 69 $ua->from ("piou\@ahref.com");
 70 $ua->timeout (90);
 71 
 72 $output_string = "<BLOCKQUOTE><FONT SIZE=\"2\"><A HREF=\"/index.html\">";
 73 $output_string .= "<B>Anchor</B></A> > <A HREF=\"/guides/index.html\">Guides</A> > ";
 74 $output_string .= "<A HREF=\"/guides/industry/index.html\">Industry</A> > ";
 75 $output_string .= "Planting Seeds in All the Right Places<P></FONT>\n";
 76 $output_string .= "<IMG SRC=\"/images/indyguideheader.gif\" ALT=\"Industry Guide\" ";
 77 $output_string .= "ALIGN=BOTTOM WIDTH=\"455\" HEIGHT=\"61\" BORDER=\"0\">\n";
 78 $output_string .= "<BR>\n<H3>Site Submitter Results</H3>\n";
 79 
 80 foreach $sitename (@site_list) {
 81 	$query_string = $$sitename{submission_page} . "?";
 82 	foreach $key (keys %$sitename) {
 83 		if (($key ne "submission_page") && ($key ne "success")){
 84 			$query_string .= "$key=$$sitename{$key}&";
 85 		}
 86 	}
 87 	my $request = new HTTP::Request 'POST', $query_string;
 88 	my $response = $ua->request ($request);
 89 	$response_body = $response->content();
 90 	if (($response->code() == RC_OK) && ($response_body =~ /$$sitename{"success"}/)) {
 91 		$output_string .= "<BR>Submission to <B>$sitename</B> was successful.\n<HR>\n";
 92 	}
 93 	else {
 94 		$coder = $response->code();
 95 		$output_string .= "<BR>Submission to <B>$sitename</B> failed for some reason. ";
 96 		$output_string .= "(Response code $coder.) ";
 97 		$output_string .= "You will need to submit to $sitename by hand.\n<HR>\n";
 98 	}
 99 }
100 
101 $output_string .= "</BLOCKQUOTE>";
102 &show_output ($output_string);
103 exit;
104 
105 sub show_output {
106 	my $output_string = shift (@_);
107 	open HEADER or die "Can't find file $HEADER: $!\n";
108 	while (<HEADER>) {
109 		print $_;
110 	}
111 	close HEADER;
112 	print $output_string;
113 	open FOOTER or die "Can't find file $FOOTER: $!\n";
114 	while (<FOOTER>) {
115 		print $_;
116 	}
117 	close FOOTER;
118 }

Here is the script without line numbers:

#!/usr/local/bin/perl -w
# Copyright (C) 1998  Edward Piou, piou@ahref.com.
# Originally written for use on Anchor [ahref.com], 5/20/1998.
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
use CGI;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;

$| = 1;

$cgi = new CGI;
print $cgi->header;
$input_url = $cgi->param('input_url');
$input_email = $cgi->param('input_email');

my $our_ip = "205.177.109.84";
$HEADER = "/documentpath/header.inc";
$FOOTER = "/documentpath/footer.inc";

if ($input_url !~ /^http:\/\//) {
	$output_string = "<BLOCKQUOTE><H3>Invalid URL</H3>\n";
	$output_string .= "<P>You input an invalid URL - try again!</BLOCKQUOTE>";
	&show_output ($output_string);
	exit;
}
if ($input_email !~ /@/) {
	$output_string = "<BLOCKQUOTE><H3>Invalid Email Address</H3>\n";
	$output_string .= "<P>You input an invalid email address - try again!</BLOCKQUOTE>";
	&show_output ($output_string);
	exit;
}

@site_list = qw (altavista excite hotbot lycos webcrawler);

$altavista{"submission_page"} = "http://add-url.altavista.digital.com/cgi-bin/newurl";
$altavista{"success"} = "has been recorded by our robot";
$altavista{"q"} = "$input_url";
$altavista{"ad"} = "1";

$excite{"submission_page"} = "http://www.excite.com/cgi/add_url.cgi";
$excite{"success"} = "Thank you!";
$excite{"url"} = "$input_url";
$excite{"email"} = "$input_email";
$excite{"look"} = "excite";

$hotbot{"submission_page"} = "http://www.hotbot.com/addurl.html";
$hotbot{"success"} = "Got it!";
$hotbot{"newurl"} = "$input_url";
$hotbot{"email"} = "$input_email";
$hotbot{"ip"} = "$our_ip";
$hotbot{"redirect"} = "http://www.hotbot.com/addurl2.html";

$lycos{"submission_page"} = "http://www.lycos.com/cgi-bin/spider_now.pl";
$lycos{"success"} = "We successfully spidered your page.";
$lycos{"query"} = "$input_url";
$lycos{"email"} = "$input_email";

$webcrawler{"submission_page"} = "http://webcrawler.com/cgi-bin/addURL.cgi";
$webcrawler{"success"} = "has been scheduled for indexing.";
$webcrawler{"url"} = "$input_url";
$webcrawler{"action"} = "add";

my $ua = new LWP::UserAgent;
$ua->agent ("ahref.com multisubmit 1.0");
$ua->from ("piou\@ahref.com");
$ua->timeout (90);

$output_string = "<P><BR><BLOCKQUOTE><FONT SIZE=\"2\"><A HREF=\"/index.html\">";
$output_string .= "<B>Anchor</B></A> > <A HREF=\"/guides/index.html\">Guides</A> > ";
$output_string .= "<A HREF=\"/guides/industry/index.html\">Industry</A> > ";
$output_string .= "Site Submitter<P></FONT>\n";
$output_string .= "<IMG SRC=\"/images/indyguideheader.gif\" ALT=\"Industry Guide\" ";
$output_string .= "ALIGN=BOTTOM WIDTH=\"455\" HEIGHT=\"61\" BORDER=\"0\">\n";
$output_string .= "<BR>\n<H3>Site Submitter Results</H3>\n";

foreach $sitename (@site_list) {
	$query_string = $$sitename{submission_page} . "?";
	foreach $key (keys %$sitename) {
		if (($key ne "submission_page") && ($key ne "success")){
			$query_string .= "$key=$$sitename{$key}&";
		}
	}
	my $request = new HTTP::Request 'POST', $query_string;
	my $response = $ua->request ($request);
	$response_body = $response->content();
	if (($response->code() == RC_OK) && ($response_body =~ /$$sitename{"success"}/)) {
		$output_string .= "<BR>Submission to <B>$sitename</B> was successful.\n<HR>\n";
	}
	else {
		$coder = $response->code();
		$output_string .= "<BR>Submission to <B>$sitename</B> failed for some reason. ";
		$output_string .= "(Response code $coder.) ";
		$output_string .= "You will need to submit to $sitename by hand.\n<HR>\n";
	}
}

$output_string .= "</BLOCKQUOTE>";
&show_output ($output_string);
exit;

sub show_output {
	my $output_string = shift (@_);
	open HEADER or die "Can't find file $HEADER: $!\n";
	while (<HEADER>) {
		print $_;
	}
	close HEADER;
	print $output_string;
	open FOOTER or die "Can't find file $FOOTER: $!\n";
	while (<FOOTER>) {
		print $_;
	}
	close FOOTER;
}