#!/usr/bin/perl require "/home/httpd/grainnet4/ssjs/info/functions.pl"; if ($request::type eq "cem") { getDirectory("cem", null); } else { write('\n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write('
\n'); print getIncludeFile("sponsors_area"); write(' \n'); write(' \n'); if ($request::type ne "assoc") { write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); write(' \n'); } write(' \n'); write(' \n'); write(' \n'); write('
Directories
'); if(!$request::type){$type='tollfree';}else{$type=$request::type;} if(!$request::set && $type eq 'tollfree'){$set=1;}else{$set=$request::set;} print getDirectory($type, $set); write('
\n'); write('
\n'); }