my $adminmail = 'venimfrogtongue@earthlink.net'; my $sendmail = '/usr/lib/sendmail'; use strict; my %form = ( author => undef, distributor => undef, copyright => undef, keywords => undef, description => undef, distribution => undef, robots => undef, language => undef, generator => undef, rating => undef, abstract => undef, usermail => undef, request => undef, ); use CGI; my $query = CGI->new; print $query->header; %form = %{$query->Vars}; open(HEADER, "header.txt") or die("Cannot open file: $!\n"); while (
) { print "$_\n"; } close(HEADER); print <<"EOH" EOF ; ################################################# BEGIN EMAIL if ($form{'request'} eq "yes") { open (MAIL, '|-', "$sendmail -t") or die $!; print MAIL "To: $form{'useremail'}\n"; print MAIL "From: $adminmail\n"; print MAIL "Subject: SpyderTags Results:\n\n"; print MAIL "$tags\n"; close (MAIL); } ################################################ END EMAIL open(FOOTER, "footer.txt") or die("Cannot open file: $!\n"); while (

Below are your generated metatags!

See below for instructions on how to install these within your website!
EOH ; my $tags =''; if ($form{'abstract'} ne "") { $tags .= qq(
\n); } if ($form{'author'} ne "") { $tags .= qq(
\n); } if ($form{'distributor'} ne "") { $tags .= qq(
\n); } if ($form{'copyright'} ne "") { $tags .= qq(
\n); } if ($form{'keywords'} ne "") { $tags .= qq(
\n); } if ($form{'description'} ne "") { $tags .= qq(
\n); } $tags .= qq(
\n); if ($form{'robots'} ne "") { $tags .= qq(
\n); } if ($form{'language'} ne "") { $tags .= qq(
\n); } if ($form{'distribution'} ne "") { $tags .= qq(
\n); } if ($form{'rating'} ne "") { $tags .= qq(
\n); } print my $cgi->escapeHTML( $tags); print <<"EOF"

Copy the above tags within your HEAD document.




#---- insert tags here