#!/usr/bin/perl

require 'common.pl';
require 'parseex.pl';

print "Content-type: text/html\n\n";

&get_stub('header');
if ($ENV{'QUERY_STRING'} eq "") {
        &get_stub('restaurants');
}
else {
   %form = &parse_params($ENV{'QUERY_STRING'});
   if(!&get_stub("rest_$form{'city'}_$form{'cat'}")) {
        &get_stub('rest_unknown');
   }
}
&get_stub('footer');