#! /usr/bin/perl -w
#
#
#########################################
#
# this crazy program finds links
# on determined pages of the
# DTN site and puts them into
# a nice file to be able to display them
#
#########################################
@files = ( "whoweare.pl", "resources.pl", "prayer.pl", "travel.pl", "media.pl" );
open( DATA, ">./data/links_data.txt" );
print DATA "\n";
foreach $file ( @files )
{
my @links;
print DATA "\t\n";
open( INFILE, $file ) or print "ERROR: Could not open $file file.";
while( my $fl = )
{
$double = 0;
if( $fl =~ m/(.*)<\/a>/ )
{
my $name = $2;
my $link = $1;
$link =~ s/\\@/@/g;
foreach my $x ( @links ) { if( $x eq $link ) { $double = 1; } }
if( !$double ) { push( @links, $link ); print DATA "\t\t$name=$link\n"; }
}
elsif( $fl =~ m/(.*)<\/a>/ )
{
my $name = $2;
my $link = $1;
foreach my $x ( @links ) { if( $x eq $link ) { $double = 1; } }
if( !$double ) { push( @links, $link ); print DATA "\t\t$name=$link\n"; }
}
elsif( $fl =~ m/(.*)<\/a>/ )
{
my $name = $2;
my $link = $1;
unless( $link =~ m/top/ )
{
foreach my $x ( @links ) { if( $x eq $link ) { $double = 1; } }
if( !$double ) { push( @links, $link ); print DATA "\t\t$name=$link\n"; }
}
}
}
close( INFILE );
print DATA "\t\n";
}
print DATA "";
close( DATA );
print "Content-type: text/html\n\n";
print<<"HTML";
links updated
Links updated!
HTML
exit;