#!/usr/bin/perl
# By MerXorcist
# hnn.pl and hns.pl inspired by Cruciphux

$url = "http://www.net-security.org/";

$tmp = `lynx -dump -source $url`;
@data = split(/\n/, $tmp);

while(@data){
$tmp=shift(@data);
    if($tmp =~ m/newsitem/){
	$tmp=shift(@data);
        @file[$i] .= $tmp . "\n";
    $i++;
    }
}

while(@file){

$tmp = shift(@file);
$today .= $date;
$today .= $tmp, "\n";
$tmp =~ tr/<>="/\n/;
@urls = split(/\n/, $tmp);

    while(@urls){
    $url = shift(@urls);
        if($url =~ m/http/){
        $today .= $url . "<br>";
        }
    }
$today .= "<p><center>-------------------</center><p>"; 
}

open(HNS,"> hns.html");
(print HNS $today);
close(HNS);
print `lynx -dump -nolist hns.html`;