";
print " Incorporated Village of Rockville Centre
";
print "Water Billing Inquiry - Current Balance
";
} elsif ( index($cdata[1],"E") > 0 ) {
print "";
print " ";
print " ";
print " Incorporated Village of Rockville Centre
";
print "Electric Billing Inquiry - Current Balance
";
} else {
print "";
print " ";
print " ";
print " Incorporated Village of Rockville Centre
";
print " Billing Inquiry - Current Balance
"; }
print "$vheader | ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " ";
print " | ";
print " | ";
print " ";
print " ";
print " | Account";
print " Number | ";
print " $cdata[0] | ";
print " ";
print " ";
print " | Service";
print " Location | ";
print " $cdata[3] | ";
print " ";
print " ";
print " | Account ";
print "Balance";
$tempf = $cdata[4] / 100;
$tempa = "\$".sprintf("%6.2f",$tempf);
$tempp = sprintf("%6.2f",$tempf);
print " | $tempa | ";
print " ";
print " ";
print " | Due";
print " Date";
print " | $cdata[5] | ";
print " ";
#----Leav- out a big space------
#print " ";
#print " | ";
#print " | ";
#print " ";
#-----EVO Payment------------------
print " ";
#print " | ";
print " | ";
#--- Break out Last Name and First from billing field----------
my ($a,$b)=split(' ',reverse($cdata[2]),2); # reverse and split.
$a = reverse($a); # reverse each piece.
$b = reverse($b);
($a,$b) = ($b,$a); # swap a and b
#print "$b";
#print "$a";
if ( index($cdata[1],"W") > 0 ) {
print "";
print " | ";
print " ";
#----------------------------------
#----Leav- out a big space------
#print " ";
#print " | ";
#print " | ";
#print " ";
if ($cdata[6] gt 0) {
# print "
";
$tempf = $cdata[6] / 100;
$tempa = "\$".sprintf("%6.2f",$tempf);
print "\n";
print " ";
print " | Last";
print " Payment Posted";
print " | $tempa | ";
print " ";
print " ";
print " | Last";
print " Posted Date";
print " | $cdata[7] | ";
print " ";
} #end if cdata[6] gt 0
#-----Online Payments------------------
$kickme = "0";
$CSVFILE = '/usr/home/poker/usr/local/etc/httpd/vhosts/rvc/it/public.csv';
open(CSVFILE) or die("Could not open file.");
##open(DATA,'<',"$csvfile"); # < read only
###unlink($csvfile); # Remove Temp File
while () {
# foreach $line () {
$line = $_; #Eliminate memory hog
@chline = split(/\|/,$line); # ORIGINAL 062403
$searchword=$account;
$findv = $chline[2];
$findv =~tr/a-z/A-Z/; #convert to upper case
if ( $findv eq $searchword )
{
#print "| Online Payments: | ";
#print "| $chline[0] | ";
if ($kickme eq "0")
{
print " ";
print " | Online Payments: | ";
print " | ";
print " ";
print "";
print " | Date | Payment Method | Bill Amount Paid | Site Fee | Total Paid | ";
$kickme = "1";
}
$temp3 = sprintf("%-8.2f\n\n", $chline[3]);
$temp5 = sprintf("%-8.2f\n\n", $chline[5]);
$temp6 = sprintf("%-8.2f\n\n", $chline[6]);
$dispdt1 = substr $chline[0], 5, 2;
$dispdt2 = substr $chline[0], 8, 2;
$dispdt3 = substr $chline[0], 2, 2;
$dispdt4 = substr $chline[0], 11, 8;
$dispf = $dispdt1."/".$dispdt2;
$dispf = $dispf."/".$dispdt3;
$dispf = $dispf." ".$dispdt4;
print " | $dispf | $chline[1] | $temp3 | $temp5 | $temp6 | ";
}
chomp($line);
$line = ();
}
## BOTTOM TOTAL LINE
close(CSVFILE);
if ($kickme eq "1") { print " "; }
#-----Online Payments END--------------
print " ";
print " | ";
print " ";
print " ";
print " ";
print " | NOTE: Payments that do not clear may be subject to penalties.";
print " | ";
print " ";
print " ";
print " ";
#-------------------End Insert--------------------------
print "";
print "";
print "";
print "";
#----------------------------------------------------------------------------------
} # end foundline eq1
if ($foundline ne 1) {
#---------------Start Billing Error Page-------------------------------------------
print <
Village of Rockville Centre Billing Inquiry
 
|
Payment Information
|
|
| Terms
for payment
In order for the
Village to continue to provide its customers with the lowest possible rates,
we seek your cooperation in remitting payments within 15 days after you receive
your bill. Failure to make payment by the Due Date will place your account
in arrears and subject to further action.
Questions - Call the Billing Department (516) 678-9323 between the hours of 8:00 A.M. - 3:30 P.M. Monday through Friday.
Pay Online
Please fill in your account number and meter number in the appropriate fields and follow the directions provided.
If you do not wish to pay online, you may continue to pay by mail or in person.
Pay By Mail
Please write your account number on your check. Make your check payable to:
Incorporated Village of Rockville Centre. Mail the top portion of your
bill and check in the window envelope that came with your bill. (Do not mail
cash.)
Mail payments to:
Inc.
Village of Rockville Centre
Att:
Cashiers Office
P.O.
Box 950
Rockville
Centre, NY 11571-0950
When mailing your bill stub and check, use the courtesy reply envelope
provided with your bill.
Pay In
Person
Please
bring in your entire bill with you. You may pay your bill at: Customer
Service Counter, Municipal Building, 1 College Place, Rockville Centre, N.Y.
between the hours of 8:00 A.M. - 3:00 P.M. Monday through Friday. After 3:00
P.M. use the mail slot by Customer Service Counter or Village Hall mail drop
located near front door of Municipal Building (24 hours a day).
|
| |
