#!/usr/bin/perl -w

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 $user = $ENV{REMOTE_USER};
my $sort;
my $sort_by;
my $login_ord;
my $ip_ord;
my $name_ord;
my $sname_ord;


if ($ENV{HTTPS} ne "on") {
    print "Location: $cgi/br_customers\n\n";
    exit;
}


if ($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;
}

print  $q->header,
       $q->start_html(-title=>'Browse customers');
$sort=$q->param('sort');
$sort_by="login asc";
$login_ord="login_d";
$ip_ord="ip_a";
$name_ord="name_a";
$sname_ord="sname_a";

if (!defined($sort)) {
	$sort = "login_a";
}

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 customers</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 $ipac_cfg::menu;

if ($sort eq "login_d") {
	$sort_by="login desc";
	$login_ord="login_a";
} elsif ($sort eq "login_a") {
	$sort_by="login asc";
	$login_ord="login_d";
} elsif ($sort eq "name_d") {
	$sort_by="name desc";
	$name_ord="name_a";
} elsif ($sort eq "name_a") {
	$sort_by="name asc";
	$name_ord="name_d";
} elsif ($sort eq "sname_d") {
	$sort_by="sname desc";
	$sname_ord="sname_a";
} elsif ($sort eq "sname_a") {
	$sort_by="sname asc";
	$sname_ord="sname_d";
} elsif ($sort eq "ip_d") {
	$sort_by="ip_addr desc";
	$ip_ord="ip_a";
} elsif ($sort eq "ip_a") {
	$sort_by="ip_addr asc";
	$ip_ord="ip_d";
}

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 cust_id,login,ip_addr,name,sname,phone,e_mail,".
			"address,comment,pause from customers order by $sort_by");
$sth->execute() or die $sth->errstr;
my @row;
print "<table align=center CELLPADDING=2 CELLSPACING=1 BORDER=1><tr>";
print $q->td(['id', "<a href=$cgi/br_customers?sort=$login_ord>login</a>", 
		    "<a href=$cgi/br_customers?sort=$ip_ord>ip address</a>",
		    "<a href=$cgi/br_customers?sort=$name_ord>name</a>",
		    "<a href=$cgi/br_customers?sort=$sname_ord>surname</a>",
		    'phone', 
		    'email', 
		    'address', 
		    'comment', 
		    'pause',
		    'cash left',
		]), "<td colspan=3>&nbsp;</td></tr>";
while (@row = $sth->fetchrow_array) {
	print "<tr>";
	foreach(@row){
		if (!defined($_)) {
			print "<td>&nbsp;</td>";
		} else {
			print "<td>&nbsp;$_</td>";
		}
	}
	my $sth1 = $dbh->prepare("SELECT cash from cash where cust_id='$row[0]'");
	$sth1->execute() or die $sth1->errstr;
	my @row1 = $sth1->fetchrow_array;
	printf "<td>&nbsp;%.2f</td>", $row1[0];
	print "<td><A HREF=\"$cgi/edit_cust?cust=$row[0]\" onMouseOver=\"window.status='Edit customer';return true;\" onMouseOut=\"window.status=\'\';return true;\" CLASS=\"noneline\">edit</A></td>";
	print "<td><A HREF=\"$cgi/dele_cust?cust=$row[0]\" onMouseOver=\"window.status='Delete customer';return true;\" onMouseOut=\"window.status=\'\';return true;\" CLASS=\"noneline\">delete</A></td>";
	print "<td><a href=\"$cgi/make_pay?cust=$row[0]\" onMouseOver=\"window.status='Payment';return true;\" onMouseOut=\"window.status=\'\';return true;\"class=\"noneline\">payment</a></td>";
	print "</tr>";
}
print "</table>";

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