ossp-pkg/tabea/test/output.cgi
1.1
#!/usr/opkg/bin/perl -w
#
# This program is for testing the possibilities
# of creating an output in html
# Later test the possibiliies to read in the values
# from an cfg file and convert this to html
#
require 5.000;
use strict;
use CGI;
use IO;
use Data::Dumper;
use lib ".";
use TESTPM::Cfg;
$|++;
# establish CGI query object
my $cgi = new CGI;
# activate a general error handler
$SIG{__DIE__} = sub {
my ($err) = @_;
#$err =~ s|at\s+\S+\s+line\s+(\d+)|(line $1)|s;
$err =~ s|\n|<br>\n|sg;
print STDOUT $cgi->header(-expires => '+1s') .
"<title>TabeaTest :: ERROR</title>",
"<h1>TabeaTest :: ERROR</h1>\n" .
"<pre>$err</pre>\n";
exit(0);
};
# read config
my $filename = "/d1/ps/work/ossp-pkg/tabea/test/tabea-cfg.in";
my $filein = new IO::File "<$filename" || die;
my $config = '';
$config .= $_ while (<$filein>);
$filein->close();
my @resword = ("item", "visible", "type", "value", "checked", "description", "selected");
my @types =("text", "password", "checkbox", "radio", "image", "hidden", "submit", "reset",
"selectmultiple", "textarea");
my $CF = &config_read($filename);
#my $dump = Data::Dumper->Dump([$CF]);
#my $cfgtext = $dump ;
my $dump = Data::Dumper->Dump([$CF]) ;
#print $cfgtext $dump;
#print $cfgtext . Data::Dumper->Dump([$CF]);
#print Data::Dumper->Dump([$CF]);
my @cf = TESTPM::Cfg->parsit($dump);
my $form = '';
for my $name (qw(output results)) {
my $val = $cgi->param("dialog_$name") || "";
if ($val ne '') {
$form = $name;
}
}
my $page = $cgi->startform( -method => "POST", -action => $cgi->url(-full => 1));
if ($form eq '') {
$page .= "<br>Config text<br>\n";
# $page .= "<br>$config<br>\n";
# $page .= "<br><font color=red>Break</font><br>\n";
# $page .= "<br>$CF<br>";
# $page .= "<br><font color=red>Break</font><br>\n";
$page .= "<br>$dump<br>";
$page .= "<br><font color=red>Geparster Text</font><br>\n";
# $page .= "<br>$cfgtext<br>";
# $page .= "<br>@cf<br>";
my $cfgtext = Data::Dumper->Dump([@cf]);
# foreach (@cf) {
# $page .= "<br>$_<br>";
# }
$page .= "<br>$cfgtext<br>";
$page .= $cgi->submit(-name => 'dialog_output', -value => 'Show output');
}
elsif ($form eq 'output') {
$page .= "<br><br>We are testing<br>" ;
$page .= "\n\nHere comes the text output:<br>\n" ;
$page .= &text();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the password output:<br>\n" ;
$page .= &password();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the checkbox output:<br>\n" ;
$page .= &checkbox();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the radio output:<br>\n" ;
$page .= &radio();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the image output:<br>\n" ;
$page .= &image();
# $page .= &hidden();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the submit output:<br>\n" ;
$page .= &submit();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the reset output:<br>\n" ;
$page .= &reset();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the select output:<br>\n" ;
$page .= &select();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the textaraea output:<br>\n" ;
$page .= &textarea();
#$page .= "<br><br><br><input type=submit name=dialog_output value=\"Show results\"><br>\n"
$page .= $cgi->submit(-name => 'dialog_results', -value => 'Show results');
}
elsif ( $form eq 'results' ) {
$page .= "<br><br>Here are the results<br>\n";
$page .= "\n\nHere comes the text result: \n" ;
$page .= &text_result();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the password result: \n" ;
$page .= &password_result();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the checkbox result: \n" ;
$page .= &checkbox_result();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the radio result: \n" ;
$page .= &radio_result();
$page .= "<br><br>\n" ;
# $page .= "\n\nHere comes the image result:<br>\n" ;
# $page .= &image_result();
# $page .= &hidden();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the submit result: \n" ;
$page .= &submit_result();
$page .= "<br><br>\n" ;
# $page .= "\n\nHere comes the reset result:<br>\n" ;
# $page .= &reset_result();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the select result: \n" ;
$page .= &select_result();
$page .= "<br><br>\n" ;
$page .= "\n\nHere comes the textaraea result: \n" ;
$page .= &textarea_result();
}
else {
die "no correct dialog found";
}
$page .= $cgi->endform;
#print STDOUT $cgi->header(-cookie => $cookies, -expires => '+1s') . $page;
print STDOUT $cgi->header() . $page;
sub text{
my $text;
# Text Field: INPUT TYPE=TEXT
# <p>Street Address: <input name=street><br>
# Postal City code: <input name=city size=16 maxlength=16><br>
# Zip Code: <input name=zip size=10 maxlength=10 value="99999-9999"><br>
$text .= "<p>Street Address: <input name=street><br>" .
"Postal City code: <input name=city size=16 maxlength=16><br>" .
"Zip Code: <input name=zip size=10 maxlength=10 value=\"99999-9999\"><br>" ;
#item {
# name street
# visible "Street Address:"
# type text
#}
#item {
# name city
# visible "Postal City code:"
# type text[16][16]
#}
#item {
# name zip
# visible "Zip Code:"
# type text[10][10]
# value {
# name "99999-9999"
# }
#}
return $text;
}
sub text_result{
my $text;
$text .= $cgi->param('street') . "<br>" ;
return $text;
}
sub password {
my $text;
# # Password Field: INPUT TYPE=PASSWORD
# <p>Name: <input name=login> Password: <input type=password name=passwd>
$text .= "<p>Name: <input name=login> Password: <input type=password name=passwd>" ;
# item {
# name login
# visible "Name:"
# type text
# }
# item {
# name passwd
# visible "Password:"
# type password
# }
#
#
return $text;
}
sub password_result{
my $text;
$text .= $cgi->param('passwd') . "<br>" ;
return $text;
}
sub checkbox {
my $text;
# # Check Box: INPUT TYPE=CHECKBOX
#
# # <p>What flavors do you like?
## # <input type=checkbox name=flavor value=vanilla checked>Vanilla<br>
# <input type=checkbox name=flavor value=strawberry>Strawberry<br>
# # <input type=checkbox name=flavor value=chocolate checked>Chocolate<br>
$text .= "<p>What flavors do you like?\n" .
"<input type=checkbox name=flavor value=vanilla checked>Vanilla<br>\n" .
"<input type=checkbox name=flavor value=strawberry>Strawberry<br>\n" .
"<input type=checkbox name=flavor value=chocolate checked>Chocolate<br>\n" ;
#
# item {
# name flavor
# visible "What flavors do you like?"
# type checkbox
# value {
# name vanilla
# visible "Vanilla"
# checked
# }
# value {
# name strawberry
# visible "Strawberry"
# }
# value {
# name chocolate
# visible "Chocolate"
# checked
# }
# }
#
return $text;
}
sub checkbox_result{
my $text;
$text .= $cgi->param('flavor') . "<br>" ;
return $text;
}
sub radio {
my $text;
# # Radio Button: INPUT TYPE=RADIO
#
# # <p>Which is your favorite?
# # <input type=radio name=flavor value=vanilla checked>Vanilla<br>
# # <input type=radio name=flavor value=strawberry>Strawberry<br>
# # <input type=radio name=flavor value=chocolate>Chocolate<br>
$text .= "<p>Which is your favorite?\n" .
"<input type=radio name=flavor value=vanilla checked>Vanilla<br>\n" .
"<input type=radio name=flavor value=strawberry>Strawberry<br>\n" .
"<input type=radio name=flavor value=chocolate>Chocolate<br>\n" ;
#
# item {
# name flavor
# visible "Which is your favorite?"
# type radio
# value {
# name vanilla
# visible "Vanilla"
# checked
# }
# value {
# name strawberry
# visible "Strawberry"
# }
# value {
# name chocolate
# visible "Chocolate"
# }
# }
#
#
return $text;
}
sub radio_result{
my $text;
$text .= $cgi->param('flavor') . "<br>" ;
return $text;
}
sub image {
my $text;
# # Image Pixel: INPUT TYPE=IMAGE
#
# # <input type=image name=point value=map.gif>
# $text .= "<input type=image name=point value=\"./1.gif\">\n" ;
$text .= "<img alt=\"gif not found\" src=\"/ossp-cgi/test/1.gif\">\n";
#
# item {
# name point
# visible "Choose a point on the map:"
# type image
# value {
# name "map.gif"
# }
# }
#
#
return $text;
}
sub hidden {
my $text;
# # Hidden Field: INPUT TYPE=HIDDEN (FIXME do we really need this?)
#
# # <input type=hidden name=context value="l2k3j4l2k3j4l2k3j4lk23">
$text .= "<input type=hidden name=context value=\"l2k3j4l2k3j4l2k3j4lk23\">\n" ;
#
# item {
# name context
# type hidden
# value {
# name "l2k3j4l2k3j4l2k3j4lk23"
# }
# }
#
#
return $text;
}
sub submit {
my $text;
# # Submit Button: INPUT TYPE=SUBMIT
#
# # <input type=submit name=recipient value=internal><br>
# # <input type=submit name=recipient value=world>
$text .= "<input type=submit name=recipient value=internal><br>\n" .
"<input type=submit name=recipient value=world>\n" ;
#
# item {
# name recipient
# type submit
# value {
# name internal
# }
# value {
# name world
# }
# }
#
return $text;
}
sub submit_result{
my $text;
$text .= $cgi->param('recipient') . "<br>" ;
return $text;
}
sub reset {
my $text;
#
# # Reset Button: INPUT TYPE=RESET
#
# # <input type=reset>
$text .= "<input type=reset>\n" ;
#
# item {
# description "You may clear the form and start over at any time:"
# type reset
# }
return $text;
}
sub select {
my $text;
# # Selection: SELECT
# # Option: OPTION
#
# # <SELECT NAME="flavor" SIZE="2">
# # <OPTION>Vanilla
# # <OPTION>Strawberry
# # <OPTION value="RumRasin">Rum and Raisin
# # <OPTION selected>Peach and Orange
# # </SELECT>
#
$text .= "<SELECT NAME=\"flavor\" SIZE=\"2\">\n" .
"<OPTION>Vanilla\n" .
"<OPTION>Strawberry\n" .
"<OPTION value=\"RumRasin\">Rum and Raisin\n" .
"<OPTION selected>Peach and Orange\n" .
"</SELECT>\n" ;
# item {
# name flavor
# type select[2] //or type selectmultipe[2]
# value {
# name "Vanilla"
# }
# value {
# name "Strawberry"
# }
# value {
# name RumRasin
# visible "Rum and Raisin"
# }
# value {
# name "Peach and Orange"
# selected
# }
#
# }
#
#
return $text;
}
sub select_result{
my $text;
$text .= $cgi->param('flavor') . "<br>" ;
return $text;
}
sub textarea {
my $text;
# # Text Area: TEXTAREA
#
# # <TEXTAREA NAME="address" ROWS=6 COLS=64>
# # HaL Computer Systems
# # 1315 Dell Avenue
# # Campbell, California 95008
# # </TEXTAREA>
#
$text .= "<TEXTAREA NAME=\"address\" ROWS=6 COLS=64>\n" .
"HaL Computer Systems\n" .
"Dell Avenue\n" .
"Campbell, California 95008\n" .
"</TEXTAREA>\n" ;
# item {
# name "address"
# type textarea[64][6]
# value {
# name "HaL Computer Systems\n1315 Dell Avenue\nCampbell, California 95008"
# }
# }
#
return $text;
}
sub textarea_result{
my $text;
$text .= $cgi->param('address') . "<br>" ;
return $text;
}
# read configuration
sub config_read {
my ($file) = @_;
# read file into memory
my $fh = new IO::File "<$file" || die;
my $config = '';
$config .= $_ while (<$fh>);
$fh->close();
## Class method usage
my $cf = TESTPM::Cfg->parsit($config);
## Object method usage
#my $te=new PM2::Cfg();
#my $cf=$te->parsit($config);
return $cf;
}
