#!/usr/bin/perl
print "Content-type: text/html \n\n";

# get the old data in an array
open(IN, "links.db") || &error("unable to open data file. Reason: $!");
@data = <IN>;
close(IN);

# open the new data file..
open(NEW, "links.db.new") || &error("unable to open data file. Reason: $!");

foreach (@data) {

chomp;

my ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14) = split("|", $_);

if ($7 =~ /.gif/) { $15 = "|gif"; }
if ($7 =~ /.swf/) { $15 = "|flash"; }

print NEW "$_$15\n";

print "Added: $_$15 <BR>";

}

# shut the new data file...
close(NEW);


sub error() {

my $error = shift;

print $error;

}