Add required CGI support files.
This commit is contained in:
Ade Barkah
parent
cae4a77425
commit
5a1cd24daa
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=968
4 changed files with 500 additions and 0 deletions
39
data/cgi/freebsd.def
Normal file
39
data/cgi/freebsd.def
Normal file
|
|
@ -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;
|
||||||
211
data/cgi/html.pl
Executable file
211
data/cgi/html.pl
Executable file
|
|
@ -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 "<html>\n<head>\n<title>$_[0]</title>\n$_[1]\n</head>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_body (Body_tag_attributes);
|
||||||
|
#
|
||||||
|
sub html_body {
|
||||||
|
print "<body $_[0]>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# Last call to end a complete html page.
|
||||||
|
# &html_end();
|
||||||
|
#
|
||||||
|
sub html_end {
|
||||||
|
print "</body>\n</html>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &www_href (URL, link text, anchor_name)
|
||||||
|
# link text and anchor name are optional.
|
||||||
|
# If no link text, no </a> is generated.
|
||||||
|
#
|
||||||
|
sub html_href {
|
||||||
|
print "<a href=\"$_[0]\"";
|
||||||
|
if ($_[2]) { print "name=\"$_[2]\""; }
|
||||||
|
if ($_[1]) { print $_[1], "</a>"; }
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &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 "<form action=\"$_[0]\" method=POST>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_getform (action) - form with get method
|
||||||
|
#
|
||||||
|
sub html_getform {
|
||||||
|
print "<form action=\"$_[0]\" method=POST>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_endform();
|
||||||
|
#
|
||||||
|
sub html_endform {
|
||||||
|
print "</form>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_input (type, name, value, size, maxlength, checked)
|
||||||
|
#
|
||||||
|
sub html_input {
|
||||||
|
local ($type, $name, $value, $size, $maxlength, $checked) = @_;
|
||||||
|
print "<input type=\"$type\" ";
|
||||||
|
if ($name) { print "name=\"$name\" "; }
|
||||||
|
if ($value) { print "value=\"$value\" "; }
|
||||||
|
if ($size) { print "size=\"$size\" "; }
|
||||||
|
if ($maxlength) { print "maxlength=\"$maxlength\" "; }
|
||||||
|
if ($checked) { print "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 "<select name=\"$name\">\n";
|
||||||
|
foreach $opt (@options) {
|
||||||
|
$opt1 = $opt;
|
||||||
|
$opt1 =~ s/://;
|
||||||
|
if ($opt eq $opt1)
|
||||||
|
{ print "<option> $opt1\n"; }
|
||||||
|
else
|
||||||
|
{ print "<option SELECTED> $opt1\n"; }
|
||||||
|
}
|
||||||
|
print "</select>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &htlm_selectmult (name, options ...)
|
||||||
|
#
|
||||||
|
# allow multiple selections
|
||||||
|
#
|
||||||
|
sub html_selectmult {
|
||||||
|
local ($name, @options) = @_;
|
||||||
|
print "<select name=\"$name\" multiple>\n";
|
||||||
|
foreach $opt (@options) {
|
||||||
|
$opt1 = $opt;
|
||||||
|
$opt1 =~ s/://;
|
||||||
|
if ($opt eq $opt1)
|
||||||
|
{ print "<option> $opt1\n"; }
|
||||||
|
else
|
||||||
|
{ print "<option SELECTED> $opt1\n"; }
|
||||||
|
}
|
||||||
|
print "</select>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_textarea (name, rows, cols, value);
|
||||||
|
#
|
||||||
|
sub html_textarea {
|
||||||
|
local ($name, $rows, $cols, $value) = @_;
|
||||||
|
print "<textarea name=\"$name\" rows=\"$rows\" cols=\"$cols\">\n";
|
||||||
|
print "$value\n";
|
||||||
|
print "</textarea>";
|
||||||
|
}
|
||||||
|
|
||||||
|
# return true!
|
||||||
|
1;
|
||||||
39
en/cgi/freebsd.def
Normal file
39
en/cgi/freebsd.def
Normal file
|
|
@ -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;
|
||||||
211
en/cgi/html.pl
Executable file
211
en/cgi/html.pl
Executable file
|
|
@ -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 "<html>\n<head>\n<title>$_[0]</title>\n$_[1]\n</head>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_body (Body_tag_attributes);
|
||||||
|
#
|
||||||
|
sub html_body {
|
||||||
|
print "<body $_[0]>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# Last call to end a complete html page.
|
||||||
|
# &html_end();
|
||||||
|
#
|
||||||
|
sub html_end {
|
||||||
|
print "</body>\n</html>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &www_href (URL, link text, anchor_name)
|
||||||
|
# link text and anchor name are optional.
|
||||||
|
# If no link text, no </a> is generated.
|
||||||
|
#
|
||||||
|
sub html_href {
|
||||||
|
print "<a href=\"$_[0]\"";
|
||||||
|
if ($_[2]) { print "name=\"$_[2]\""; }
|
||||||
|
if ($_[1]) { print $_[1], "</a>"; }
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &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 "<form action=\"$_[0]\" method=POST>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_getform (action) - form with get method
|
||||||
|
#
|
||||||
|
sub html_getform {
|
||||||
|
print "<form action=\"$_[0]\" method=POST>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_endform();
|
||||||
|
#
|
||||||
|
sub html_endform {
|
||||||
|
print "</form>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_input (type, name, value, size, maxlength, checked)
|
||||||
|
#
|
||||||
|
sub html_input {
|
||||||
|
local ($type, $name, $value, $size, $maxlength, $checked) = @_;
|
||||||
|
print "<input type=\"$type\" ";
|
||||||
|
if ($name) { print "name=\"$name\" "; }
|
||||||
|
if ($value) { print "value=\"$value\" "; }
|
||||||
|
if ($size) { print "size=\"$size\" "; }
|
||||||
|
if ($maxlength) { print "maxlength=\"$maxlength\" "; }
|
||||||
|
if ($checked) { print "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 "<select name=\"$name\">\n";
|
||||||
|
foreach $opt (@options) {
|
||||||
|
$opt1 = $opt;
|
||||||
|
$opt1 =~ s/://;
|
||||||
|
if ($opt eq $opt1)
|
||||||
|
{ print "<option> $opt1\n"; }
|
||||||
|
else
|
||||||
|
{ print "<option SELECTED> $opt1\n"; }
|
||||||
|
}
|
||||||
|
print "</select>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &htlm_selectmult (name, options ...)
|
||||||
|
#
|
||||||
|
# allow multiple selections
|
||||||
|
#
|
||||||
|
sub html_selectmult {
|
||||||
|
local ($name, @options) = @_;
|
||||||
|
print "<select name=\"$name\" multiple>\n";
|
||||||
|
foreach $opt (@options) {
|
||||||
|
$opt1 = $opt;
|
||||||
|
$opt1 =~ s/://;
|
||||||
|
if ($opt eq $opt1)
|
||||||
|
{ print "<option> $opt1\n"; }
|
||||||
|
else
|
||||||
|
{ print "<option SELECTED> $opt1\n"; }
|
||||||
|
}
|
||||||
|
print "</select>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
# &html_textarea (name, rows, cols, value);
|
||||||
|
#
|
||||||
|
sub html_textarea {
|
||||||
|
local ($name, $rows, $cols, $value) = @_;
|
||||||
|
print "<textarea name=\"$name\" rows=\"$rows\" cols=\"$cols\">\n";
|
||||||
|
print "$value\n";
|
||||||
|
print "</textarea>";
|
||||||
|
}
|
||||||
|
|
||||||
|
# return true!
|
||||||
|
1;
|
||||||
Loading…
Reference in a new issue