[new] [mvasp]
");
my $fmt = "%H:%M:%S %D (some time format for y2K, huh...)";
my $time = $Tag->tag( $fmt, { op => 'time' } );
$Document->write ( "The current time is $time
");
%>
Your session ID is $Session->{id}
"); if($Session->{arg}) { HTML "
The argument given is $Session->{arg}
"; HTML "
Return to " . $Tag->page('mvasp') . "no argument.
";
}
else {
HTML "No argument sent, ", $Tag->page('mvasp', 'An arg'), "try one.
";
}
%>
You can loop. Create a select box:
<% = "######################################\n",
"And you can call subroutines with testit('testing'):
",
testit('testing'),
"
\n", %> Compare to ORDERS_TO => __ORDERS_TO__
You can see the source here.