diff --git a/data/cgi/freebsd.def b/data/cgi/freebsd.def
new file mode 100644
index 0000000000..e0d83d7005
--- /dev/null
+++ b/data/cgi/freebsd.def
@@ -0,0 +1,39 @@
+# $Id: freebsd.def,v 1.1 1997-01-04 20:02:45 mbarkah Exp $
+#
+# Perl definitions!
+#
+$gnhow='mail';
+$gnemail='freebsd-gnats-submit@freebsd.org';
+$gnsubmitter='net';
+@gncategory=("bin", "conf", "docs", "gnu", "i386", "kern", "misc", "ports");
+$gnrelease="www-send-pr: 1.0";
+# when $gnhow != 'mail'
+$gnroot=" ";
+$gnbin="/usr/local/bin";
+#
+# Definition of parts of the page.
+#
+# $gnsp - sendpr page
+#
+$gnsptitle="Submit a problem report to the FreeBSD Project";
+#$gnspbody="bgcolor=FFFFFF";
+$gnspfirst="freebsdsp.first";
+$gnsplast="freebsdsp.last";
+$gnspsubmit="Submit Problem Report";
+$gnspreset="Reset";
+$gnspaskenv="Environment (output of \"uname -a\" on the problem machine)";
+$gnspaskrel="Which FreeBSD Release You Are Using ";
+#$gnspdescription = "";
+$gnsptacols = "72";
+$gnsptarows = "6";
+#
+#
+# $gnsprep - sendpr reply page from dosendpr.cgi
+#
+$gnspreptitle = "Thank You for the problem report";
+#$gnsprepbody= "bgcolor=FFFFFF";
+$gnspreppage = "freebsdsp.res";
+
+
+# return value;
+1;
diff --git a/data/cgi/html.pl b/data/cgi/html.pl
new file mode 100755
index 0000000000..6496252a2a
--- /dev/null
+++ b/data/cgi/html.pl
@@ -0,0 +1,211 @@
+# $NetBSD: html.pl,v 1.2 1996/06/14 19:52:38 thorpej Exp $
+#
+# perl routines to help generate html from cgi scripts in perl.
+#
+# written by Philip A. Nelson, 1995 and 1996.
+#
+# Copyright (c) 1995, 1996 Philip A. Nelson.
+#
+# Last modified: May 13, 1996.
+#
+# Copying and distribution permitted under the conditions of the
+# GNU General Public License Version 2.
+# (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
+#
+
+#
+# typical use is &www_content ("text","html");
+# Should be the first output from a cgi script.
+#
+sub www_content {
+ print "Content-type: $_[0]/$_[1]\n\n";
+}
+
+#
+# &html_title ( title, other_head_html )
+# Starts the html with a head and title.
+#
+sub html_title {
+ print "\n\n$_[0]\n$_[1]\n\n";
+}
+
+#
+# &html_body (Body_tag_attributes);
+#
+sub html_body {
+ print "\n";
+}
+
+#
+# Last call to end a complete html page.
+# &html_end();
+#
+sub html_end {
+ print "\n\n";
+}
+
+#
+# &www_href (URL, link text, anchor_name)
+# link text and anchor name are optional.
+# If no link text, no is generated.
+#
+sub html_href {
+ print ""; }
+}
+
+#
+# &cgi_form_in();
+#
+# Form support:
+# Defines:
+# $cgi_data{$key} the data indexed by the key.
+# keys repeated twice gets data collected in
+# $cgi_data{$key} separated by "|"s.
+#
+# @keys (sequential list of keys)
+# @vals (sequential list of values)
+# $cgi_method
+#
+sub cgi_form_in {
+ local ($data);
+ $cgi_method = $ENV{'REQUEST_METHOD'};
+ if ($cgi_method eq 'GET') {
+ $data = $ENV{'QUERY_STRING'};
+ } else {
+ read(STDIN,$data,$ENV{'CONTENT_LENGTH'});
+ }
+ @lines = split (/&/, $data);
+ $nkeys = 0;
+ foreach $line (@lines) {
+ ($key,$val) = split (/=/, $line);
+ $val =~ s/\+/ /g;
+ $val =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/eg ;
+ if ($cgi_data{$key}) {
+ $cgi_data{$key} = $cgi_data{$key}."|".$val;
+ } else {
+ $cgi_data{$key} = $val;
+ }
+ push (@keys, "$key");
+ push (@vals, "$val");
+ $nkeys += 1;
+ }
+}
+
+#
+# Form creation routines
+#
+
+#
+# &html_form (action) - form with post method
+#
+sub html_form {
+ print "\n";
+}
+
+#
+# &html_input (type, name, value, size, maxlength, checked)
+#
+sub html_input {
+ local ($type, $name, $value, $size, $maxlength, $checked) = @_;
+ print "\n";
+}
+
+#
+# &html_radio (name, value_list)
+#
+sub html_radio {
+ local ($name, @values) = @_;
+ foreach $val (@values) {
+ &html_input ("radio", $name, $val);
+ }
+}
+
+#
+# &html_checkbox (name, values)
+# checked values include a : which is removed.
+#
+sub html_checkbox {
+ local ($name, @values) = @_;
+ foreach $val (@values) {
+ $val1 = $val;
+ $val1 =~ s/://;
+ if ($val eq $val1)
+ { &html_input ("checkbox", $name, $val); }
+ else
+ { &html_input ("checkbox", $name, $val1,"" ,"" ,"checked"); }
+ print $val1;
+ }
+}
+
+#
+# &htlm_select (name, options ...)
+#
+# options including : are selected and the : is removed.
+#
+sub html_select {
+ local ($name, @options) = @_;
+ print "\n";
+}
+
+#
+# &htlm_selectmult (name, options ...)
+#
+# allow multiple selections
+#
+sub html_selectmult {
+ local ($name, @options) = @_;
+ print "\n";
+}
+
+#
+# &html_textarea (name, rows, cols, value);
+#
+sub html_textarea {
+ local ($name, $rows, $cols, $value) = @_;
+ print "";
+}
+
+# return true!
+1;
diff --git a/en/cgi/freebsd.def b/en/cgi/freebsd.def
new file mode 100644
index 0000000000..e0d83d7005
--- /dev/null
+++ b/en/cgi/freebsd.def
@@ -0,0 +1,39 @@
+# $Id: freebsd.def,v 1.1 1997-01-04 20:02:45 mbarkah Exp $
+#
+# Perl definitions!
+#
+$gnhow='mail';
+$gnemail='freebsd-gnats-submit@freebsd.org';
+$gnsubmitter='net';
+@gncategory=("bin", "conf", "docs", "gnu", "i386", "kern", "misc", "ports");
+$gnrelease="www-send-pr: 1.0";
+# when $gnhow != 'mail'
+$gnroot=" ";
+$gnbin="/usr/local/bin";
+#
+# Definition of parts of the page.
+#
+# $gnsp - sendpr page
+#
+$gnsptitle="Submit a problem report to the FreeBSD Project";
+#$gnspbody="bgcolor=FFFFFF";
+$gnspfirst="freebsdsp.first";
+$gnsplast="freebsdsp.last";
+$gnspsubmit="Submit Problem Report";
+$gnspreset="Reset";
+$gnspaskenv="Environment (output of \"uname -a\" on the problem machine)";
+$gnspaskrel="Which FreeBSD Release You Are Using ";
+#$gnspdescription = "";
+$gnsptacols = "72";
+$gnsptarows = "6";
+#
+#
+# $gnsprep - sendpr reply page from dosendpr.cgi
+#
+$gnspreptitle = "Thank You for the problem report";
+#$gnsprepbody= "bgcolor=FFFFFF";
+$gnspreppage = "freebsdsp.res";
+
+
+# return value;
+1;
diff --git a/en/cgi/html.pl b/en/cgi/html.pl
new file mode 100755
index 0000000000..6496252a2a
--- /dev/null
+++ b/en/cgi/html.pl
@@ -0,0 +1,211 @@
+# $NetBSD: html.pl,v 1.2 1996/06/14 19:52:38 thorpej Exp $
+#
+# perl routines to help generate html from cgi scripts in perl.
+#
+# written by Philip A. Nelson, 1995 and 1996.
+#
+# Copyright (c) 1995, 1996 Philip A. Nelson.
+#
+# Last modified: May 13, 1996.
+#
+# Copying and distribution permitted under the conditions of the
+# GNU General Public License Version 2.
+# (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
+#
+
+#
+# typical use is &www_content ("text","html");
+# Should be the first output from a cgi script.
+#
+sub www_content {
+ print "Content-type: $_[0]/$_[1]\n\n";
+}
+
+#
+# &html_title ( title, other_head_html )
+# Starts the html with a head and title.
+#
+sub html_title {
+ print "\n\n$_[0]\n$_[1]\n\n";
+}
+
+#
+# &html_body (Body_tag_attributes);
+#
+sub html_body {
+ print "\n";
+}
+
+#
+# Last call to end a complete html page.
+# &html_end();
+#
+sub html_end {
+ print "\n\n";
+}
+
+#
+# &www_href (URL, link text, anchor_name)
+# link text and anchor name are optional.
+# If no link text, no is generated.
+#
+sub html_href {
+ print ""; }
+}
+
+#
+# &cgi_form_in();
+#
+# Form support:
+# Defines:
+# $cgi_data{$key} the data indexed by the key.
+# keys repeated twice gets data collected in
+# $cgi_data{$key} separated by "|"s.
+#
+# @keys (sequential list of keys)
+# @vals (sequential list of values)
+# $cgi_method
+#
+sub cgi_form_in {
+ local ($data);
+ $cgi_method = $ENV{'REQUEST_METHOD'};
+ if ($cgi_method eq 'GET') {
+ $data = $ENV{'QUERY_STRING'};
+ } else {
+ read(STDIN,$data,$ENV{'CONTENT_LENGTH'});
+ }
+ @lines = split (/&/, $data);
+ $nkeys = 0;
+ foreach $line (@lines) {
+ ($key,$val) = split (/=/, $line);
+ $val =~ s/\+/ /g;
+ $val =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/eg ;
+ if ($cgi_data{$key}) {
+ $cgi_data{$key} = $cgi_data{$key}."|".$val;
+ } else {
+ $cgi_data{$key} = $val;
+ }
+ push (@keys, "$key");
+ push (@vals, "$val");
+ $nkeys += 1;
+ }
+}
+
+#
+# Form creation routines
+#
+
+#
+# &html_form (action) - form with post method
+#
+sub html_form {
+ print "\n";
+}
+
+#
+# &html_input (type, name, value, size, maxlength, checked)
+#
+sub html_input {
+ local ($type, $name, $value, $size, $maxlength, $checked) = @_;
+ print "\n";
+}
+
+#
+# &html_radio (name, value_list)
+#
+sub html_radio {
+ local ($name, @values) = @_;
+ foreach $val (@values) {
+ &html_input ("radio", $name, $val);
+ }
+}
+
+#
+# &html_checkbox (name, values)
+# checked values include a : which is removed.
+#
+sub html_checkbox {
+ local ($name, @values) = @_;
+ foreach $val (@values) {
+ $val1 = $val;
+ $val1 =~ s/://;
+ if ($val eq $val1)
+ { &html_input ("checkbox", $name, $val); }
+ else
+ { &html_input ("checkbox", $name, $val1,"" ,"" ,"checked"); }
+ print $val1;
+ }
+}
+
+#
+# &htlm_select (name, options ...)
+#
+# options including : are selected and the : is removed.
+#
+sub html_select {
+ local ($name, @options) = @_;
+ print "\n";
+}
+
+#
+# &htlm_selectmult (name, options ...)
+#
+# allow multiple selections
+#
+sub html_selectmult {
+ local ($name, @options) = @_;
+ print "\n";
+}
+
+#
+# &html_textarea (name, rows, cols, value);
+#
+sub html_textarea {
+ local ($name, $rows, $cols, $value) = @_;
+ print "";
+}
+
+# return true!
+1;