#!/usr/bin/perl

use CGI qw/:standard/;
print header,
start_html('Mothership Connection'),
h1('Mothership Connection Configuration'),
        start_form,
        "Server Name ",textfield('name'),p,
        "IP Address ",textfield('ip'),p,
        "Port Number",textfield('port'),p,
        checkbox_group(-name=>'proto',
                       -values=>['tcp','udp']),p,
        "Description",textfield('desc'),p,
        submit('submit'),
        end_form,
hr;
open (CFGFILE,">>mothership.cfg") || die;
if (param()) {
        print CFGFILE (param('name')),",",
        (param('ip')),",",
        (param('port')),",",
        (param('proto')),",",
        (param('desc')),
        "\n";
}
close CFGFILE;