#!/usr/local/bin/perl ########################## # Partner Framemaker # # 8/10/99 by Scott Rizzo # # For Sportsline # ########################## require 'parse-lib.pl'; $config_file = "/html/u/partners/config.txt"; @scroll = qw(NO AUTO); @framename = qw(nav content); &parse_form_data(*input); $source = $input{'source'}; $page = $input{'page'}; open (CONFIG, "$config_file")|| die $!; while () { if (/$source/) { chomp; s/\r//g; ($partner, $nav_url, $rows)=split /::/; print "Content-type: text/html\n\n"; print " "; @frame_urls = ($nav_url, $page); for ($i=0; $i<2; $i++) { print ""; } print ""; print ""; exit; }#end of if loop } #end of while loop print "Location: $page\n\n"; close CONFIG;