#!/usr/bin/perl

use CGI;
use DBI;
use strict;
unshift (@INC, '.');
use ipac_cfg;

my $q = new CGI;
my $path="https://" . $q->server_name();
my $cgi=$path . "/cgi-bin";
my $net_id;
my $net_name;

my $user = $ENV{REMOTE_USER};

if ($ENV{HTTPS} ne "on" || $user ne "admin") {
    print $q->header(-type=>"text/html;", -status=>'403 Forbidden'),
	    $q->start_html('Forbidden'),
	    $q->h1('You dont have permission to access this script'),
	    $q->end_html;
    exit;
}

if ($q->param('net') eq "") {
	exit;
}
$net_id = $q->param('net');
$net_name = $q->param('net_name');

print  $q->header,
       $q->start_html(-title=>"Browse network \'$net_name\'");

print "<STYLE type=\"text/css\"><!-- a.noneline {text-decoration: none;} --></style>";

print "<table><tr><td>".
	"<IMG BORDER=0 ALT=\"ipac-ng logo\"".
	"SRC=\"$path/poweredby.png\"></td><td>".
	"<center><font color=\"#ff0000\" size=6>ipac-ng browse network \'$net_name\'</font></center>".
	"</td></tr></table><A HREF=\"http://sf.net/projects/ipac-ng\">".
    	"ipac-ng home page</A>&nbsp;&nbsp;";
print "<A HREF=\"$path/stat\">Go to main page</A>&nbsp;&nbsp;";
print "<A HREF=\"$cgi/new_net?net=$net_id\">Add new host/net to a network</A>";
print $ipac_cfg::menu;

my $dbh = DBI->connect("dbi:Pg:dbname=$ipac_cfg::pg_dbname", 
		    $ipac_cfg::pg_login, $ipac_cfg::pg_pwd,
                             { RaiseError => 1, AutoCommit => 0 });
my $sth = $dbh->prepare("select ip_net from nets where net_id = ? ".
			"order by ip_net asc");
$sth->execute($net_id) or die $sth->errstr;
my @row;
print "<table align=center CELLPADDING=2 CELLSPACING=1 BORDER=1>";
print "<tr><td>&nbsp;$net_name &nbsp;</td><td colspan=2>&nbsp;</td></tr>";
while (@row = $sth->fetchrow_array) {
	print "<tr>";
	print "<td>&nbsp;$row[0]</td>";
	print "<td><A HREF=\"$cgi/edit_net?ip=$row[0]&net=$net_id\" onMouseOver=\"window.status='Edit network $row[0]';return true;\" onMouseOut=\"window.status=\'\';return true;\" CLASS=\"noneline\">edit</A></td>";
	print "<td><A HREF=\"$cgi/dele_net?ip=$row[0]&net=$net_id\" onMouseOver=\"window.status='Delete network $row[0]';return true;\" onMouseOut=\"window.status=\'\';return true;\" CLASS=\"noneline\">delete</A></td>";
	print "</tr>";
}
print "</table>";

$dbh->disconnect  or warn $dbh->errstr;
print $q->end_html;
