#!/usr/old/bin/perl5.004_01

BEGIN { unshift(@INC, "/cgi/more/idiom/icgdata"); };
BEGIN { unshift(@INC, "/cgi/more/idiom/pacwest6"); };
BEGIN { unshift(@INC, "/cgi/more/idiom"); };

use CGI;
use CGI::Out;

use ICG qw();
use PacBell qw();
use PacWest qw();

my (%bank) = (
	'PWBA' => '<a href="mrtg/pm3-1-ba.html">A</a>',
	'PWNC' => '<a href="mrtg/pm3-1-nocal.html">B</a>',
	'PBBK' => '<a href="mrtg/pm3-2.html">C</a>',
	'ICGO' => '<a href="mrtg/pm3-3.html">D</a>',
	'FOCL' => '<a href="mrtg/pm3-4.html">E</a>',
);

my (%usage) = (
	'PWBA' => '<tr><td colspan=3><img width=440 height=135 src="http://www.idiom.com/mrtg/pm3-1-ba-day.gif" 
		></td><td bgcolor=#104030> <a href="mrtg/pm3-1-ba.html">A</a> </td></tr>',
	'PWNC' => '<tr><td colspan=3><img width=440 height=135 src="http://www.idiom.com/mrtg/pm3-1-nocal-day.gif" 
		></td><td bgcolor=#104030> <a href="mrtg/pm3-1-nocal.html">B</a> </td></tr>',
	'PBBK' => '<tr><td colspan=3><img width=440 height=135 src="http://www.idiom.com/mrtg/pm3-2-day.gif" 
		></td><td bgcolor=#104030> <a href="mrtg/pm3-2.html">C</a> </td></tr>',
	'ICGO' => '<tr><td colspan=3><img width=440 height=135 src="http://www.idiom.com/mrtg/pm3-3-day.gif" 
		></td><td bgcolor=#104030> <a href="mrtg/pm3-3.html">D</a> </td></tr>',
	'FOCL' => '<tr><td colspan=3><img width=440 height=135 src="http://www.idiom.com/mrtg/pm3-4-day.gif" 
		></td><td bgcolor=#104030> <a href="mrtg/pm3-4.html">E</a> </td></tr>',
);

my $query = new CGI;

out $query->header();
out $query->start_html(
	-title => 'Idiom access number check',
	-author => 'muir@idiom.com',
	-bgcolor => '#404040',
	-text => '#f8c020',
	'-link' => '#d8d8d8',
	-vlink => '#e0d820',
	),"\n";

my $areacode = $query->param('areacode');
my $prefix = $query->param('prefix');
my $last4 = $query->param('last4');
$last4 = 'xxxx' unless $last4 =~ /^\d\d\d\d$/;

out "<h1>Idiom access number locator</h1>\n";

out "<p>";

out <<'';
	<ul>
	We cannot guarantee the accuracy of the results returned here.  You
	should verify them by calling your local phone company.  
	Idiom accepts no liability for the accuracy of the information
	provided here.
	<p>
	<form method=GET action=numbers.cgi>
	Which phone number should be checked?
	(<input type=text name=areacode size=3 maxlength=3>)
	<input type=text name=prefix size=3 maxlength=3>-<input 
	type=text name=last4 size=4>
	<p>
	<input type=submit name=Check>
	</form>

if ($areacode !~ /^\d\d\d$/ || $prefix !~ /^\d\d\d$/) {
	if ($areacode ne '' || $prefix ne '') {
		out <<"";
			<h1>Invalid data</h1>
			<p>
			You must enter a valid areacode and prefix for your
			number to be checked.

	}
} else {
	out "<table width=90%>\n";
	out "<tr><th colspan=4 bgcolor=#115a49><font size=+1>\n";
	out "\ttoll-free access numbers for $areacode-$prefix-$last4\n";
	my $n = PacWest::lookupcity($areacode, $prefix);
	out "[$n]\n" if $n;
	out "\t</font></th></tr>\n";
	my $td = "td bgcolor=#104030";
	my %use;
	my %shown;
	for $an ((
#		ICG::checknum($areacode, $prefix), 
#		PacBell::checknum($areacode,$prefix),
		PacWest::checknum($areacode,$prefix)
	)) {
		my ($city, $state, $ac, $number, $code, $status) = @$an;
		next if $shown{"$ac-$number"}++;
		$status = "&nbsp;" unless $status;
		out "<tr><$td>$city, $state</td><$td>($ac) $number</td>\n";
		out "\t<$td>$status</td><$td>$bank{$code}</td></tr>\n";
		$use{$code} = $usage{$code};
	}
	if (%use) {
		out "<tr><th colspan=4 bgcolor=#115a49><font size=+1>Line Usage</font></th></tr>\n";
		for my $u (values %use) {
			out $u;
		}
	} else {
		out "<tr><$td colspan=5><bold>none found</bold></th>\n";
	}

	out "</table>\n";
}

out "</ul>\n";
out <<"";
	<hr>
	<a href="/">Home</a>
	|
	<a href="pops.html">POPs</a>
	|
	<a href="hints.html">Hints & How-tos</a>

out $query->end_html();

1;