=**************************************
= Name: SecurityTracker.com Affiliate News Updater
= Description:Will update your website with the most recent Security Advisories from your affiliate URL. To signup and get your own URL, go here: http://www.securitytracker.com/affiliate/affiliate_signup.html
***Note***
This only works with the HTML version, so be sure to select HTML when signing up.
= By: cYon
=
= Inputs:Your SecurityTracker.com Affiliate URL
=
= Returns:Current Security Advisories
=
=This code is copyrighted and has= limited warranties.Please see http://www.PlanetSourceCode.com/vb/scripts/ShowCode.asp?txtCodeId=213&lngWId=6=for details.=**************************************

#!/usr/bin/perl
#Author: Phillip Dunn
#Email: z3hp@yahoo.com
#Website: http://secure.daemon.sh/
#Description: Updates website with current security advisories from SecurityTrack.com's
# affiliate program by using SSI.
use IO::Socket;
autoflush STDOUT 1;
$count = 0;
$host = "news.securitytracker.com";
#Enter your URL issued to you by SecurityTracker.com
#Enter in the following form /server/affiliate?XXXXXXXXXXXXXXXX
$url = "";
$sock = IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>80,Proto=>"tcp")
or die "Can't establish a connection with $host.\n";
print $sock "GET $url\n";
while(<$sock>){
 $line = $_;
 chomp $line;
 if($line =~ /size='-1'><a href='(.*\.html)'>(.*)<\/a>/){
 push(@link, $1);
 push(@news, $2);
 }
}
print "Content-Type: text/html\n\n";
foreach $link (@link){
 if ($count == 4) {
print "<a href=\"$link\"> @news[$count] </a>\n";
$count++;
 } else {
print "<a href=\"$link\"> @news[$count] </a> <br>-<br>\n";
$count++;
 }
}