Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.4' '-r1.5' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- 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>&#013</p>" .
+          "</td>" .
+          "Password:" .
+          $Q->textfield(
+              -name => 'password',
+              -default => '',
+              -size => 20,
+              -maxlength => 80
+           ) .
+          "</td>" .
+         $Q->endform;
+
 print $Q->header(-expires => '+1s') . $out;
 
 exit (0);