#!/usr/bin/perl -w

use CGI::Carp 'fatalsToBrowser';
use strict;
use warnings;

my $adv = "Advertise your script here!";
my $adminmail = "sulfericacid\@qwest.net";
  
  use CGI qw/:standard/;
  print header,
        start_html(),
        start_form,
        "Email Address: ",textfield('usermail'),p,
        "Author: ",textfield('author'),p,
        "Distributor: ",textfield('distributor'),p,
        "Copyright: ",textfield('copyright'),p,
		"Abstract: ",textfield('abstract'),p,
		"Keywords: ",textfield('keywords'),p,
		"Description: ",textfield('description'),p,
		"Distribution: ",textfield('distribution'),p,
		"Robots: ",textfield('robots'),p,
		"Rating: ",textfield('rating'),p,
		"Language: ",textfield('language'),p,

        submit,
        end_form,
        hr;

my $abstract = param('abstract');
my $usermail = param('usermail');
my $author = param('author');
my $distributor = param('distributor');
my $keywords = param('keywords');
my $description = param('description');
my $distribution = param('distribution');
my $robots = param('robots');
my $rating = param('rating');
my $language = param('language');
my $copyright = param('copyright');


my $tags ='';
if (param('abstract') ne "") {
    $tags .=  qq(&lt;meta name="abstract" content="$abstract"&gt;<br>);
}
if (param('author') ne "") {
    $tags .=  qq(&lt;meta name="author" content="$author"&gt;<br>);
}
if (param('distributor') ne "") {
    $tags .=  qq(&lt;meta name="distributor" content="$distributor"&gt;<br>);
}
if (param('copyright') ne "") {
    $tags .=  qq(&lt;meta name="copyright" content="$copyright"&gt;<br>);
}
if (param('keywords') ne "") {
    $tags .=  qq(&lt;meta name="keywords" content="$keywords"&gt;<br>);
}
if (param('description') ne "") {
    $tags .=  qq(&lt;meta name="description" content="$description"&gt;<br>);
}

$tags .=  qq(&lt;meta name="generator" content="$adv"&gt;<br>);

if (param('robots') ne "") {
    $tags .=  qq(&lt;meta name="robots" content="$robots"&gt;<br>);
}
if (param('language') ne "") {
    $tags .=  qq(&lt;meta name="language" content="$language"&gt;<br>);
}
if (param('distribution') ne "") {
    $tags .=  qq(&lt;meta name="distribution" content="$distribution"&gt;<br>);
}
if (param('rating') ne "") {
    $tags .=  qq(&lt;meta name="rating" content="$rating"&gt;<br>);
}
$tags =~ s/</&lt;/;
$tags =~ s/>/&gt;/;
$tags =~ s/<br>//;

print $tags;
print hr;
print end_html();