#!/usr/local/bin/perl
use CGI qw/:all/;

##</code><code>##

  print "
  </select>
  </td>
  </tr>

  <tr>
  <td colspan=2 valign=top>
  <font face=Arial size=2 color=#000000>
  <br>
  <b>Search by postal code.</b>
  <br><br>
  </font>
  </td>
  </tr>

  <tr>
  <td valign=top>
  <font face=Arial size=2 color=#000000>
  Postal Code: 
  </font>
  </td>
  <td valign=top>
  <input type=text name=zip size=5>
  </td>
  </tr>
  <tr>
  <td>
  &nbsp;
  </td>
  <td valign=top>
  <br><br>
  <input type=submit name=Search value=Search onClick=\"return validate()\">
  </td>
  </tr>
  </table>
  </font>
  </form>
  </body>
  </html>
  ";

##</code><code>##

## yes, the naming convention sucks, but hey, you didn't program it, I did

## come on now, I wrote the code, like there would ever be a problem. he he he

## well genius, you probably figured that since they have not entered anything, that we need to ask them for something
## I should not have to explain the following to you cause if I did, you should not be programming - moron.

##</code><code>##

if ($file1[0] eq $dealerno)
{
  @file2[$cnts++] = $file1[0];
  @file2[$cnts++] = $file1[1];
  @file2[$cnts++] = $file1[2];
  @file2[$cnts++] = $file1[3];
  @file2[$cnts++] = $file1[4];
  @file2[$cnts++] = $file1[5];
  @file2[$cnts++] = $file1[6];
  @file2[$cnts++] = $file1[7];
  @file2[$cnts++] = $file1[8];
  @file2[$cnts++] = $file1[9];
  @file2[$cnts++] = $file1[10];
}

##</code><code>##

$_ = $phone;
substr($_,3,0) = "/";
substr($_,7,0) = "-";
$phone = $_;

##</code><code>##

$dealer1 = chop ($city);
$dealer2 = chop ($city);
$dealer3 = chop ($city);
$dealer4 = chop ($city);
$dealer5 = chop ($city);
$dealercode = $dealer5 . $dealer4 . $dealer3 . $dealer2 . $dealer1;