Well.. Reason why I send this source here is that I can't see neither
passwordfield nor submit button. There might be some problems further,
but I haven't got as far. Source ain't long so I hope you find my
mistakes fast.
hlservu is executable on server which runs CS-server with paladin.
#!/usr/bin/perl
#cs.cgi
use CGI qw(:standard);
$passu='password';
$exe='hlservu';
if (!param)
{
print header('text/html'),
start_html(
-title=>'Serverin hallintaa',
-author=>'Mikael Haapakoski'),
start_form(-method=>'GET'),
h1('Datakommuunin CS-serverin paalle kytkenta'),
h5('Salasana'),
print password_field(
-name=>'salasana',
-size => 20),
submit('ON'),
end_form(),
end_html(),
}
else
{
$salasana = param('salasana');
if ($passu eq $salasana)
{
exec $exe;
print header('text/html'),
start_html(
-title=>'Serverin hallintaa',
-author=>'Mikael Haapakoski'),
h1('toimaa'),
end_html(),
}
else
{
print header('text/html');
start_html(
-title=>'Serverin hallintaa',
-author=>'Mikael Haapakoski');
h1('Ei toimi');
end_html;
}
}
__
T�m�n ilmaisen suomalaisen s�hk�postin tarjosi http://www.jippii.fi/
K�y tutustumassa netin parhaaseen pelipaikkaan Pasimaailmaan.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
