<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
# Unmoronized by CG1H3R0
use LWP::Simple; 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$time = ($mday+1).".".($mon+1).".".($year+1900)." ".$hour.":".$min; 

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

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

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

$today = "&lt;H1&gt;CG1-H3R0 News&lt;/H1&gt;";
$today .= "&lt;H2&gt;$time&lt;/H2&gt;";

while(@file){

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

    while(@urls){
    $url = shift(@urls);
        if($url =~ m/http/){
        $today .= "&lt;a href=\"$url\"&gt;$url&lt;/a&gt;" . "&lt;br&gt;";
        }
    }
$today .= "&lt;p&gt;&lt;center&gt;-------------------&lt;/center&gt;&lt;p&gt;"; 
}

#open HNS,"&gt;hns.html";
#print HNS $today;
#close HNS;
#$today =~ s,\&lt;(.?+)\&gt;,,g;
#$today =~ s,\&lt;(.+?)\&gt;,,g;
print "Content-type: text/html\n";
print "\n"; 
print $today;
#print `lynx -dump -nolist hns.html`;</pre></body></html>