#! /usr/bin/perl use LWP::Simple; $IP = $ENV{'REMOTE_ADDR'}; $REFERER = $ENV{'HTTP_REFERER'}; $url = "http://affiliates.jeanharris.com/cgi-bin/clickthru.cgi?pid=ND&sid=nouveauvision&page=https://secure.jeanharris.com/cgi-bin/startorder.cgi"; $html = get $url; $startoforderid = (index $html, "input name=orderid type=hidden value=")+37; $endoforderid = (index $html, ">", $startoforderid); $lenoforderid = $endoforderid - $startoforderid; $orderid = substr $html, $startoforderid, $lenoforderid; $startofrid = (index $html, "rid")+12; $startofrid = (index $html, "rid", $startofrid)+12; $endofrid = (index $html, ">", $startofrid); $lenofrid = ($endofrid - $startofrid)-1; $rid = substr $html, $startofrid, $lenofrid; print "Content-type: text/html\n\n"; #print "\