#!/usr/bin/perl
require 'dr-lib.pl';
require 'ctime.pl';
my $now = &ctime(time);

srand unpack("%32L*", $ENV{'SERVER_NAME'});

open (FILE, '> /tmp/links.'.$ENV{'UNIQUE_ID'});
print FILE "Content-type: text/html\n\n";

open (LINKS, '/home/dr/links.txt');
my @rawlinks = <LINKS>;
close (LINKS);
my @links = ();
foreach $link (&random_list(@rawlinks)) {
  $link =~ s/^\s+//;
  $link =~ s/\s+$//;
  next unless $link;
  next if $link=~ /$ENV{'HTTP_HOST'}/;
  push @links, $link;
}

my $mode = int(rand 6) + 1;
my $data;
if (rand() < 0.5) {
  my $links1 = '';
  my $links2 = '';
  my $flipflop = 1;
  foreach $link (@links) {
    ($url, $title, $desc) = split("\t", $link);
    if ($mode == 1) {
      $link = "<LI>$title:<BR>&nbsp;&nbsp;&nbsp;<A HREF=\"http://$url\">$url</A>";
    } elsif ($mode == 2) {
      $link = "<LI><A HREF=\"http://$url\">$url</A><BR>&nbsp;&nbsp;&nbsp;$desc";
    } elsif ($mode == 3) {
      $link = "<LI><A HREF=\"http://$url\">$title</A><BR>&nbsp;&nbsp;&nbsp;$desc";
    } elsif ($mode == 4) {
      $link = "<LI><A HREF=\"http://$url\">$title</A><BR>&nbsp;&nbsp;&nbsp;$url";
    } elsif ($mode == 5) {
      $link = "<LI>$title:<BR>&nbsp;&nbsp;&nbsp;<A HREF=\"http://$url\">$desc</A>";
    } else {
      $link = "<LI><A HREF=\"http://$url\">$desc</A><BR>&nbsp;&nbsp;&nbsp;$url";
    }
    if ($flipflop) {
      $links1 .= $link;
    } else {
      $links2 .= $link;
    }
    $flipflop = !$flipflop;
  }
  $data =<<END
<TABLE WIDTH='100%'><TR><TD VALIGN='top'>
<UL>
$links1
</UL>
</TD><TD VALIGN='top'>
<UL>
$links2
</UL>
</TD></TR></TABLE>
END
} else {
  my $flipflopflap = 1;
  foreach $link (@links) {
    ($url, $title, $desc) = split("\t", $link);
    if ($mode == 1) {
      $link = "$title:<BR>&nbsp;&nbsp;&nbsp;<A HREF=\"http://$url\">$url</A>";
    } elsif ($mode == 2) {
      $link = "<A HREF=\"http://$url\">$url</A><BR>&nbsp;&nbsp;&nbsp;$desc";
    } elsif ($mode == 3) {
      $link = "<A HREF=\"http://$url\">$title</A><BR>&nbsp;&nbsp;&nbsp;$desc";
    } elsif ($mode == 4) {
      $link = "<A HREF=\"http://$url\">$title</A><BR>&nbsp;&nbsp;&nbsp;$url";
    } elsif ($mode == 5) {
      $link = "$title:<BR>&nbsp;&nbsp;&nbsp;<A HREF=\"http://$url\">$desc</A>";
    } else {
      $link = "<A HREF=\"http://$url\">$desc</A><BR>&nbsp;&nbsp;&nbsp;$url";
    }
    if ($flipflopflap == 1) {
      $data .= "<TR><TD VALIGN=top>$link</TD>";
      $flipflopflap = 2;
    } elsif ($flipflopflap == 2) {
      $data .= "<TD VALIGN=top>$link</TD>";
      $flipflopflap = 3;
    } else {
      $data .= "<TD VALIGN=top>$link</TD></TR>\n<TR><TD COLSPAN=3>&nbsp;</TD></TR>\n";
      $flipflopflap = 1;
    }
  }
  $data .= "<TD></TD><TD></TD></TR>\n" if ($flipflopflap == 2);
  $data .= "<TD></TD></TR>\n" if ($flipflopflap == 3);
  $data =<<END
<HR>
<CENTER>
<TABLE>
$data
</TABLE>
</CENTER>
<HR>
END
}

my @titles = ('Digital Routes Website Directory', 'Digital Routes Websites', 'Digital Routes Network', 'Digital Routes Clients', 'Digital Routes Customers', 'Digital Routes Scotland', 'Digital Routes Hosting', 'Digital Routes');
my $title1 = $titles[rand(@titles)];
my $title2 = $titles[rand(@titles)];
if (rand() < 0.33) {
  $line1 = "Digital Routes is a Scottish web design, programming and hosting company with a large portfolio.\n";
} elsif (rand() < 0.5) {
  $line1 = "Digital Routes has created a large number of websites for clients in Scotland and beyond.\n";
} else {
  $line1 = "Digital Routes has built and hosts many websites for clients in Scotland and around the world.\n";
}
if (rand() < 0.33) {
  $line2 = "If you liked <A HREF='/'>$ENV{'SERVER_NAME'}</A>, you will probably find our other website of interest.\n";
} elsif (rand() < 0.5) {
  $line2 = "In&nbsp;addition to <A HREF='/'>$ENV{'SERVER_NAME'}</A>, we invite you to browse the websites listed below which are also hosted on our network.\n";
} else {
  $line2 = "<A HREF='/'>$ENV{'SERVER_NAME'}</A> is just one of these sites, please take look at some of the others.\n";
}
if (rand() < 0.33) {
  $line3 = "Or&nbsp;take a look at <A HREF='http://digitalroutes.co.uk/'>what we can offer&nbsp;you</A>.\n";
} elsif (rand() < 0.5) {
  $line3 = "Or&nbsp;find out more <A HREF='http://digitalroutes.co.uk/'>about&nbsp;us</A>.\n";
} else {
  $line3 = "Or&nbsp;visit <A HREF='http://digitalroutes.co.uk/'>our&nbsp;website</A> for more information.\n";
}

print FILE <<END;
<HTML>
<HEAD>
<link REL="icon" HREF="http://digitalroutes.co.uk/favicon.ico" TYPE="image/x-ico">
<link REL="SHORTCUT ICON" HREF="http://digitalroutes.co.uk/favicon.ico">
<title>$title1 ($ENV{'SERVER_NAME'})</title>
<style TYPE="text/css">
<!--
div.navStyle {font-family: Tahoma, Arial, sans-serif; font-weight: bold;}
//-->
</STYLE>
<link href="http://digitalroutes.co.uk/dr.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY topmargin=4>
<body BGCOLOR="#ffffff" BACKGROUND="../../common/linksbg.jpg" STYLE="background-repeat: no-repeat">

<div ID="navContainer" CLASS="navStyle"><FONT COLOR="#ffffff">
&nbsp; &nbsp; &nbsp; $title2
</font></div>
<BR><BR>
<A HREF="http://digitalroutes.co.uk/"><IMG SRC="../../common/linkslogo.gif" HSPACE=5 HEIGHT=44 WIDTH=120 ALT="[Digital Routes]" BORDER=0 ALIGN="right"></A>

$line1
$line2
$line3

$data

<SMALL>$now</SMALL>

</BODY>
</HTML>
END

close(FILE);

system('/usr/bin/python /home/dr/highlighter/highlighter.py < /tmp/links.'.$ENV{'UNIQUE_ID'});
unlink ('/tmp/links.'.$ENV{'UNIQUE_ID'});