RegisterServers

From Wsms

See: RemoteViewerProject and RemoteViewerProject01

A perl CGI script for registering remote viewer servers.

Allows user to enter the relevant values, but doesn't save them.

#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
my $cgi = new CGI;

# 1
print
  $cgi->header .
  $cgi->start_html('vnc servers') .
  $cgi->h1('VNC server listing') . "\n";

# 2
if ($cgi->param) {
  print
    "(process new server here)<br />\n" .
    "remote_host = " .  $cgi->remote_host() . "<br />\n" .
    "nickname    = " .  $cgi->param('nickname'). "<br />\n" .
    "comment     = " .  $cgi->param('comment'). "<br />\n" .
    "new_server  = " .  $cgi->param("new_server_IP") . "<br />\n" .
    "port        = " .  $cgi->param("new_server_Port") . "<br />\n" .
    "password    = " .  $cgi->param("new_server_Password") . "<br />\n";
}

# 3
print
  "Active servers:<br />\n";

# 4
print "<HR>\n";
print
  $cgi->start_form .
  "<em>Register a new server:</em><br />\n" .
  "Nickname:" . $cgi->textfield(-name=>'nickname', -size=>20). "<br />\n" .
  "Comment:<br />\n" . $cgi->textarea(-name=>'comment', -size=>10, -columns=>50). "<br />\n" .
  "IP Address:" . $cgi->textfield(-name=>'new_server_IP', -size=>20). "<br />\n" .
  "Port:" . $cgi->textfield(-name=>'new_server_Port', -size=>20). "<br />\n" .
  "Password:" . $cgi->textfield(-name=>'new_server_Password', -size=>20). "<br />\n" .
  $cgi->submit('Action','Submit') . "<br />\n" .
  $cgi->endform;
$cgi->end_html;
exit (0);