#!/usr/bin/perl
require ('/usr/local/apache/cgi-bin/cgi-lib.pl');
&ReadParse(*input);
$acct=$input{'ac'};
$page=$input{'pg'};

### Non paid accounts will continue to use old system until they update their tags
if ( $ac !~ /^p/ ) {
#  print "Content-type: text/html\n";
#  print "Location: http://www0.webstat.com/cgi/ws.cgi?pg=$page&ac=$acct\n\n";
#  exit(0);
print "Content-type: image/jpeg\n";
print "Location: http://www.webstat.com/images/webstat_but.jpg\n\n";
} else {
  print "Content-type: text/html\n";
  print "Location: http://www.webstat.com/scripts/wsb.php?pg=$page&un=$acct\n\n";
  exit(0);
}