ossp-pkg/tabea/tabea.cgi 1.4 -> 1.5
--- tabea.cgi 2002/04/16 08:51:02 1.4
+++ tabea.cgi 2002/04/16 12:09:46 1.5
@@ -1,4 +1,4 @@
-#!/cw/bin/perl -w
+#!/usr/opkg/bin/perl -w
##
## OSSP tabea - Web Configuration Editor
## Copyright (c) 2001-2002 The OSSP Project <http://www.ossp.org/>
@@ -43,14 +43,48 @@
$MY->{TEMPLATE} .= $_ while (<$fh>);
$fh->close();
+
# establish CGI query object
my $Q = new CGI;
my $page = '';
$page .= "fuck";
+my $page2 ='';
+$page2 .= "Welcher auch";
my $out = $MY->{TEMPLATE};
$out =~ s|%%BODY%%|$page|s;
+$out =~ s|%%TITLE%%|$page2|s;
+
+
+
+ # generate "ADD" form
+ $out .= $Q->startform( -method => "POST", -action => $Q->url()) .
+ "<tr bgcolor=\"#9999cc\">\n" .
+# "<td align=right>" .
+# "<b>" . $Q->submit(-name => 'form', -value => 'Add') . "</b>" .
+# "</td>" .
+ "<td>" .
+ "Username:" .
+ $Q->textfield(
+ -name => 'username',
+ -default => '',
+ -size => 20,
+ -maxlength => 80
+ ) .
+ "<td>" .
+ "<p>
</p>" .
+ "</td>" .
+ "Password:" .
+ $Q->textfield(
+ -name => 'password',
+ -default => '',
+ -size => 20,
+ -maxlength => 80
+ ) .
+ "</td>" .
+ $Q->endform;
+
print $Q->header(-expires => '+1s') . $out;
exit (0);
|
|
