Hi,

Just wanted to post a script I wrote for viewing your GoCollect stats, without having to log into the admin panel (saves me a few mins a day :P)

The code is as follows (just name it gocollectadmin.cgi, upload to your server [preferably a protected area ]), and CHMOD 755).

Code:
#!/usr/bin/perl
  
 use strict;
 use WWW::Mechanize;
 use HTML::TokeParser;
 use WWW::Mechanize;
 use Data::Dumper;
 
 use CGI;
 
 my $IN = new CGI;
 
 my $user = qq|2857|; # your ID number
 my $pass = qq|12345|; # password for loggin in
 
 my $gocollect_url = qq|http://www.gocollectaffiliates.com/affiliateadmin.asp?check=1&lost=&idnum=$user&password=$pass|;
 
 my $fields_clean;
 $fields_clean->{'bannerclicks_range'}	 = qq|Banner Clicks - Range (::RANGE::)|;
 $fields_clean->{'PendingSalesCommission'} = qq|Pending Sales Commission|;
 $fields_clean->{'pendingsales_range'}	 = qq|PEnding Sales - Range (::RANGE::)|;
 $fields_clean->{'textclicks_range'}	   = qq|Text Clicks - Range (::RANGE::)|;
 $fields_clean->{'bannerclicks'}		   = qq|Banner Clicks|;
 $fields_clean->{'pendingsales'}		   = qq|Pending Sales|;
 $fields_clean->{'textclicks'}			 = qq|Text Clicks|;
 $fields_clean->{'allclicks_range'}		= qq|All Clicks - Range (::RANGE::)|;
 $fields_clean->{'PendingSalesCommissionRange'} = qq|Pending Commision Sales - Range (::RANGE::)|;
 $fields_clean->{'allclicks'}			  = qq|All Clicks|;
 $fields_clean->{'TotalCommissionDue'}	 = qq|Total Commission Due|;
 
 my $template = qq|
 <html>
 
 <head>
 <meta http-equiv="Content-Language" content="en-gb">
 <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
 <title>GoCollect Report</title>
 <style>
  body {
  margin: 8;
  padding: 10px 0;
  color: #333;
  text-align: left;
  background: #FDFAED;
  font: normal 11px/150% verdana, arial, helvetica, sans-serif;
  }
  .text {
  text-align: left;
  font: normal 11px/150% verdana, arial, helvetica, sans-serif;
  border: 0;
  }
  a:link,a:visited {
 	font-weight: normal;
 	text-decoration: underline;
 	color: #446;
  }
  a:hover {
 	font-weight: normal;
 	text-decoration: underline;
 	color: #404040;
  }
  h2 {
  color: #008000;
  font: bold 15px/140% helvetica, arial, verdana, sans-serif; }
  
 
  table {
 
    border-collapse: collapse; 
    font-family:Tahoma; 
    font-size:10pt; 
    font-variant:small-caps;
   }
 </style>
 </head>
 
 <body>
 
 <h2>GoCollect Report</h2>
 
 <table border="1" style="border-collapse: collapse" width="73%" id="table1">
 	<tr>
 		<td><b>Field</b></td>
 		<td><b>Value</b></td>
 	</tr>
 ::fields::
 </table>
 
 </body>
 
 </html>
 |;
 
 my $browser = WWW::Mechanize->new();
 my (@total, @current, $header);
 
 my $mech = WWW::Mechanize->new();
 
    $mech->get( $gocollect_url );
    $mech->follow_link( text => "View Reports", n => 1);
 
    my $cont = $mech->{res}->content;
 
    my $vals; # hash
   
 
  # click stats
 
    $cont =~ m|\Q<TD><B>All Click-Throughs:</B></td><td>\E(\d+?)\Q</TD><TD>\E(\d+?)\Q</TD>|sig;
    $vals->{allclicks} = $2;
    $vals->{allclicks_range} = $1;
 
    $cont =~ m|\Q<TD><B>Banner Click-Throughs:</B></td><td>(\d+?)\Q</TD><TD>\E(\d+?)\Q</TD>|sig;
    $vals->{bannerclicks} = $2;
    $vals->{bannerclicks_range} = $1;
 
    $cont =~ m|\Q<TD><B>Text Click-Throughs:</B></td><td>(\d+?)\Q</TD><TD>\E(\d+?)\Q</TD>|sig;
    $vals->{textclicks} = $2;
    $vals->{textclicks_range} = $1;
 
 
  # sales stats
 
    if ($cont =~ m|\Q<TD><B>Pending Sales Amount:</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD>|sig) { 
 	  $vals->{pendingsales} = qq|\$$3.$4|;
 	  $vals->{pendingsales_range} = qq|\$$1.$2|;
    }
 
    if ($cont =~ m|\Q<TD><B>Pending Sales Commission:</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD>|sig) { 
 	  $vals->{PendingSalesCommission}	  = qq|\$$3.$4|;
 	  $vals->{PendingSalesCommissionRange} = qq|\$$1.$2|;
    }
 
    if ($cont =~ m|\Q<TD><B>Confirmed Sales:</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD>|sig) { 
 	  $vals->{ConfirmedSales}	  = qq|\$$3.$4|;
 	  $vals->{ConfirmedSalesRange} = qq|\$$1.$2|;
    }
 
    if ($cont =~ m|\Q<TD><B>Pending Sales:</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD><TD>\E\$(\d+?)\.(\d+?)\Q</TD>|sig) { 
 	  $vals->{PendingSales}	  = qq|\$$3.$4|;
 	  $vals->{PendingSalesRange} = qq|\$$1.$2|;
    }
 
    if ($cont =~ m|\Q<TD><B>Total Commission Due:</TD><TD colspan=2 align=center>\E\$(\d+?)\.(\d+?)\Q</b></TD>\E|sig) { 
 	  $vals->{TotalCommissionDue}	  = qq|\$$1.$2|;
    }
 
    print $IN->header();
    my $fields;
    map {  
    
 	  #print qq| $_ ---> $vals->{$_} \n|;
 	  $fields .= qq|
 		 <tr>
 			<td>$fields_clean->{$_}</td>
 			<td>$vals->{$_}</td>
 		</tr>
 	  |;
   
    } keys %$vals;
 
    $template =~ s|\Q::fields::|$fields|;
    print $template;

Enjoy =)

Cheers