#! /usr/bin/perl $form= < EOF if ($ENV{"REQUEST_METHOD"} eq "GET") { print <)); $source="$ac-$prefix"; $found=0; open(FILE,"pops"); while () { chomp; /^$/ and next; if (/^([A-Za-z].*)$/) { $found and last; $desc=$1; } ($_ eq $source) and $found=1; /^[0-9]{3}-[0-9]{3}-[0-9]{4}.*$/ and ($found==1) and s/^000-000-0000\s*//, push(@numbers,"$_
"); } close(FILE); print <News & Announcements EOF if (!$found) { ### Numbers Not Found ### print `cat /var/www/stdhdr.html`; print <Local POPs

Note: All of our current customers do have a local access number to use after the switch. If you notice that your phone number is not a local call to any of the new POPs please call our office A.S.A.P.

We currently do not have a point of presence (POP) in your area. Before you use any dial-up number, we recommend that you contact your local phone service provider, and verify if the number in question has a toll charge. To reach your local operator, just dial "0", give them the telephone number that you are dialing from and the number that you are dialing to, and the operator will verify whether or not the number is a toll-charge call for you. It only takes a few moments, and can save you hundreds of dollars in toll-call charges. It is the customer's sole responsibility to verify this information. Access Internet is not responsible for any charges you incur.

Please check back with us as we plan in the near future to expand our POPs to cover the entire Bay area from Santa Rosa to Livermore. You may still sign-up with us but using any of our dial-up numbers would result in toll charges.

The Dial-Up Numbers for the POPs will be:

EOF print `cat /var/www/system/pops-list.html`; print < $form

EOF print `cat /var/www/stdftr.html`; exit(0); } ### Numbers Found ### print `cat /var/www/stdhdr.html`; print <Local POPs

The POPs listed below are local to you.

Calling Area: $desc

Prefix: $prefix

POPs: @numbers

$form

Note: Before you use any dial-up number, we recommend that you contact your local phone service provider, and verify if the number in question has a toll charge. To reach your local operator, just dial "0", give them the telephone number that you are dialing from and the number that you are dialing to, and the operator will verify whether or not the number is a toll-charge call for you. It only takes a few moments, and can save you hundreds of dollars in toll-call charges. It is the customer's sole responsibility to verify this information. Access Internet is not responsible for any charges you incur.

EOF print `cat /var/www/stdftr.html`;