#!/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;

$|++;


#   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);
};




my $username;


my $form = '';
my $page;


if ($form eq '') {
    $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();
}
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 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 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 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 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 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 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;
}