Initial commit

55 files changed, 3340 insertions, 0 deletions

diff --git a/README b/README
new file mode 100644
index 0000000..72a1e39
--- /dev/null
+++ b/README
@@ -0,0 +1,15 @@
+Distroplat installation instructions.
+
+1. Install a web server, and perl
+
+2. Mount the /cgi-bin dir as 'distroplat' on your webserver. Make sure the perl scripts within can be executed via the web. You can also set the default index page as 'front.plx' to shorten your URL if you like
+
+3. Mount the /html dir as 'platdoc'. This needs only to be a normal document directory.
+
+4. Edit /data/distroplat.conf. Fill things in.
+
+5. Change /data/servers.txt to point to each platter server you want to mount. The root URLs specified should point to mounts containing artist folders, which must have 'directory browsing' turned on.
+
+6. Set your permissions to allow the web server to write to the /inventory directory. It needs to create, write to, and delete files. Open http://yourserver/distroplat/front.cgi and use the 'Content Trawler' page to index your servers. You must do that each time a server's content changes.
+
+7. For platter directory structure guidelines, see the online documentation.
diff --git a/cgi-bin/Globals.pm b/cgi-bin/Globals.pm
new file mode 100644
index 0000000..c4695b2
--- /dev/null
+++ b/cgi-bin/Globals.pm
@@ -0,0 +1,229 @@
+# Utils package
+# Loads all config files, and supplies common functions
+
+package Globals;
+use strict;
+use URI::Escape;
+use URI::URL;
+use HTML::Entities ();
+use CGI;
+use LWP::UserAgent;
+require LWP;
+use URI;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use vars qw(@MUSIC @VIDEO @CUSTOM @SHORTCUT $CGIROOT $APPNAME $MINTRAWL %PLATTERS %ALLPLATTERS $VERSION
+        $debug $delim $target $tracklink $audioRocketman $videoRocketman $bgcolour);
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(makeUnNice makeNice makeHTML getFile openTemplate getABCs makeJs getArtistString makeTrackPlaylist makeTrackURL getPlatterStats);
+@EXPORT_OK = qw(@MUSIC @VIDEO @CUSTOM @SHORTCUT $CGIROOT $APPNAME $MINTRAWL %PLATTERS %ALLPLATTERS $VERSION
+        $delim $debug $target $audioRocketman $videoRocketman $bgcolour);
+
+$CGIROOT = "localhost";
+$APPNAME = "distroplat";
+$VERSION = "£3 6s 0d";
+$MINTRAWL = 30;
+$debug = 0;
+$delim = chr(255);
+
+open(CONF, "../data/distroplat.conf") or die "No config file found";
+my $list;
+while (<CONF>) {
+    s/#.*//;
+    chomp;
+    my $line = $_;
+    if (length($line) == 0) { next }
+    if ($line =~/^\s*\[music\]/i) { $list = \@MUSIC; next }
+    if ($line =~/^\s*\[video\]/i) { $list = \@VIDEO; next }
+    if ($line =~/^\s*\[shortcut\]/i) { $list = \@SHORTCUT; next }
+    if ($line =~/^\s*\[customfolders\]/i) { $list = \@CUSTOM; next }
+    if ($line =~/^\s*cgiroot\s*=\s*(.*)/i) { $CGIROOT = $1; next }
+    if ($line =~/^\s*appname\s*=\s*(.*)/i) { $APPNAME = $1; next }
+    if ($line =~/^\s*colour\s*=\s*(.*)/i) { $bgcolour = $1; next }
+    if ($line =~/^\s*mintrawl\s*=\s*(.*)/i) { $MINTRAWL = $1; next }
+    if ($line =~/^\s*audioRocketman\s*=\s*(.*)/i) { $audioRocketman = $1; next }
+    if ($line =~/^\s*videoRocketman\s*=\s*(.*)/i) { $videoRocketman = $1; next }
+    if ($line =~/^\s*debug/i) { $debug = 1; next }
+
+    push @$list, $line;
+}
+
+if ($debug) { print "HTTP/1.0 200 OK\nContent-type: text/plain\n\n"; }
+
+close CONF;
+
+# Init CGI
+my $query         = CGI::new();
+
+# Load server file
+my $exclude = $query->cookie('exclude');
+
+open ( SERVERS, "../data/servers.txt" ) or die "No servers file found";
+while ( <SERVERS> )
+{
+  chomp;
+  my @INLINE    = split ( / /, $_ );
+  my $NAME      = $INLINE[ 0 ];
+  my $URL       = $INLINE[ 1 ];
+  if ($URL =~ /\/$/) { chop $URL; }
+  unless ($exclude =~ /$NAME,/) { $PLATTERS{ $NAME } = $URL; }
+  $ALLPLATTERS{ $NAME } = $URL;
+}
+close SERVERS;
+
+# target makes users with small screens open searches and artists full frame
+# instead of in a window
+
+$target = $query->cookie('target');
+$target = 'iframe' unless $target;
+
+# abcs are loaded in a function because it's expensive and not used much
+sub getABCs {
+    my %ABCS;
+    open (ABC, "../inventory/abcs.txt");
+    while (<ABC>) {
+        chop;
+        my @thisabc = split($delim);
+        $ABCS{$thisabc[0]} = $thisabc[1];
+    }
+    close(ABC);
+    return %ABCS;
+}
+# Unified MakeNice/UnNice
+
+sub makeUnNice( @_ )
+{
+  my $UNNICE = $_[ 0 ];
+
+  $UNNICE = uri_escape($UNNICE);
+  # These things break reglier expressions
+  $UNNICE =~ s/\(/%28/g;
+  $UNNICE =~ s/\)/%29/g;
+  $UNNICE =~ s/\&/%26/g;
+  $UNNICE =~ s/\+/%2B/g;
+  $UNNICE =~ s/%2F/\//gi; # some versions of uri_escape escape forward slashes
+  return $UNNICE;
+}
+
+sub makeNice( @_ )
+{
+  my $NICE;
+  $NICE = uri_unescape($_[0]);
+  $NICE =~ s/([^\/]*),\sThe$/The $1/gi;
+  $NICE =~ s/(^|\/)\d{2} - /$1/g;
+
+  $NICE =~ s/\.($_)$/ (Video)/gi foreach ( @VIDEO ) ;
+  $NICE =~ s/\.($_)$//gi foreach ( @MUSIC ) ;
+  $NICE =~ s/\.($_)$//gi foreach ( @SHORTCUT ) ;
+  $NICE =~ s/^Singles\//Single - /;
+  return $NICE;
+}
+
+sub makeJs( @_ )
+{
+    my ($NICE) = @_;
+    $NICE =~ s/'/\\'/g;
+    return $NICE;
+}
+
+sub makeHTML( @_ )
+{
+  my ($NICE) = @_;
+  $NICE = $NICE;
+  $NICE = HTML::Entities::encode($NICE);
+  $NICE =~ s/\s(\(.*\))$/ <\/a> <i>$1<\/i>/;
+  return $NICE;
+}
+
+sub getFile( @_ )
+{
+  my ($INURL) = @_;
+
+  my $INFO;
+  my $HEADER    = new HTTP::Headers( 'Accept' => 'text/plain', 'User-Agent' => 'PlatterTwaartter/1.0' );
+  my $URL       = new URI::URL( $INURL );
+  my $REQUEST   = new HTTP::Request( 'GET', $URL, $HEADER );
+  my $UAGENT    = new LWP::UserAgent;
+  my $RESPONSE  = $UAGENT -> request( $REQUEST );
+
+  # Did we get a 200?
+  #
+  if ( $RESPONSE -> is_success )
+  {
+    return $RESPONSE -> content;
+  }
+
+  return "Error fetching ".$INURL;
+}
+
+# opens a template file and returns it as a string
+#
+sub openTemplate( @_ )
+{
+  my $TEMPLATE;
+
+  open FILE, "../templates/".$_[ 0 ].".template" or die "Could not find template ".$_[0];
+
+  while( <FILE> )
+  {
+    $TEMPLATE .= $_;
+  }
+
+  close FILE;
+
+  return $TEMPLATE;
+}
+
+sub getArtistString( @_ ) {
+    my ($folder, $trackartist) = @_;
+    my $artist;
+    foreach (@CUSTOM) { $folder = undef if /^$folder$/ }
+    if ($folder && $trackartist) { $artist = "$folder & $trackartist" }
+    elsif ($folder) { $artist = $folder }
+    elsif ($trackartist) { $artist = $trackartist }
+    else {$artist = 'Unknown'};
+
+    return $artist;
+}
+
+sub makeTrackPlaylist( @_ ) {
+    my ($folder, $trackartist, $album, $track, $platter) = @_;
+
+    my $linkartist = $folder;
+    $linkartist= $trackartist if (length $trackartist > 0);
+    $album= 'Miscellany' if (length $album == 0);
+    return "search.plx?artist=".makeUnNice($linkartist)."&album=".makeUnNice($album)."&title=".makeUnNice($track)."&exact=1&searchFor=track&inv=$platter&filter=music,video,shortcut";
+}
+
+sub makeTrackURL( @_ ) {
+    my ($platter, $url, $folder, $trackartist, $title) = @_;
+
+    foreach (@SHORTCUT) {
+        if ($url =~ /$_$/) { # is a shortcut
+            my $thisartist = $trackartist;
+            $thisartist = $folder unless (length $trackartist);
+            return "http://$CGIROOT/$APPNAME/search.plx?artist=".makeUnNice($thisartist)."&title=".makeUnNice($title)."&exact=1&output=redir";
+        }
+    }
+
+    return 'http://'.$platter.$url;
+}
+
+sub getPlatterStats( @_ ) {
+    my ($platter) = @_;
+    my $artists=0;
+    my $tracks=-1;
+    open (INV, "../inventory/".$platter.".inv");
+    my $line;
+    while ($line = <INV>) {
+        $tracks++ unless($line =~ /^http/);
+    }
+    $tracks = 0 if $tracks < 1;
+    close INV;
+    open (ARTIST, "../inventory/".$platter.".artist");
+    $artists++ while (<ARTIST>);
+    close ARTIST;
+    return ($tracks, $artists);
+}
+
diff --git a/cgi-bin/Search.pm b/cgi-bin/Search.pm
new file mode 100644
index 0000000..af6b3fd
--- /dev/null
+++ b/cgi-bin/Search.pm
@@ -0,0 +1,307 @@
+# included script to provide platter search
+# artist, album, song, date, number of random tracks to take,
+# scope (misc or album), inventory
+#
+# returns list of matching lines
+
+package Search;
+use Globals;
+use Globals qw(@CUSTOM);
+use Globals qw($delim);
+use Globals qw($debug);
+use Globals qw(%PLATTERS);
+
+use strict;
+
+my $artist    = undef;
+my $title     = undef;
+my $album     = undef;
+my $dateFrom  = undef;
+my $dateTo    = undef;
+my $scope     = undef;
+my $random    = undef;
+my $exclTypes = undef;
+my $exact     = 0;
+my $searchFor = undef; #artist|album|track
+my @inv       = ();
+my @filter    = ();
+my %ABCS;
+
+
+return 1;
+
+sub setArtist {
+    my ($thisartist) = @_;
+    $thisartist =~ s/^The //i;
+    $thisartist =~ s/, The$//i;
+    $artist = $thisartist;
+}
+
+sub setTitle {
+    $title = $_[0];
+}
+
+sub setAlbum {
+    $album = $_[0];
+}
+
+sub setDateFrom {
+    ($dateFrom) = @_ unless ($_[0] =~ /^1900$/);
+}
+
+sub setDateTo {
+    ($dateTo) = @_ unless ($_[0] =~ /^2525$/);
+}
+
+sub setScope {
+    ($scope) = @_;
+    $scope = 'all' if (!$scope);
+}
+
+sub setRandom {
+    ($random) = @_;
+}
+
+sub setInv {
+    @inv = @_;
+}
+
+sub setExact {
+    ($exact) = @_;
+}
+
+sub setFilter {
+    @filter = @_;
+}
+
+sub setExclTypes {
+    ($exclTypes) = @_;
+}
+
+sub searchFor {
+    ($searchFor) = @_;
+}
+
+sub go {
+
+    my @result = ();
+
+    #load abcs
+    if ($searchFor eq 'artist') { %ABCS = getABCs() }
+
+    # decide if we can skip opening the inventories
+    my $pureArtistSearch = ($searchFor eq 'artist' && !$title && !$album && !$dateFrom && !$dateTo && $scope eq 'all');
+
+    # loop through each platter
+    @inv = keys %PLATTERS if (!defined @inv);
+
+    foreach (@inv) {
+        my $platter = $_;
+        my $base;
+
+       # Check the artist cache
+       if (open (ARTIST, "../inventory/".$platter.".artist")) {
+           my $useplatter;
+           while (<ARTIST>) {
+                chomp;
+                my $thisArtist = $_;
+                if (!$artist ||
+                    ($exact && # want exact match
+                        $thisArtist =~ /^\Q$artist\E$/i) ||
+                    (!$exact && # not exact
+                        $thisArtist =~ /\Q$artist\E/i)) {
+                        if (!$exact && # but we weren't doing an exact search
+                            $thisArtist =~ /^\Q$artist\E$/i &&
+                            $searchFor eq 'artist' && $artist) { # bail out just returning the artist name for redirect
+                            return (makeNice($thisArtist));
+                        }
+                        if ($pureArtistSearch) { # store in result
+                            push (@result, makeABC($thisArtist));
+                        }
+                        else { # examine this platter further
+                            $useplatter = 1;
+                            print "Using $platter\n" if ($debug);
+                            last;
+                        }
+                }
+            }
+           next if !$useplatter;
+       }
+
+       if (!$pureArtistSearch) { # Only continue with full inv search if artist cache didn't populate the results
+
+           # Open the inventory
+
+            open (PLATTER, "../inventory/".$platter.".inv");
+            while (<PLATTER>) {
+                chomp;
+                my $raw = $_;
+                if ($raw =~ /^http\:\/\//) { # is the base url
+                    $base = $raw;
+                    next;
+                }
+
+                my ($folder, $trackartist, $trackalbum, $year, $track, $url) = split ($delim, $raw);
+
+                # apply filter
+                my $filetype = substr($url, rindex($url, '.')+1);
+                next if ($exclTypes =~ /$filetype,/);
+                if ($#filter > -1) {
+                    my $match = 0;
+                    #print "$filetype\n";
+                    foreach( @filter ) {
+                        if (/^$filetype$/i) { $match = 1; last; }
+                    }
+                    if (!$match) { next; }
+                }
+
+
+                # Match Scope
+
+                if ($scope && $scope ne "all") {
+                    if (length ($trackalbum) == 0) {
+                        next if ($scope eq 'album');
+                    }
+                    else {
+                        next if ($scope eq 'misc');
+                    }
+                }
+
+                # Match Track Title
+                if ($title) {
+                    unless (($exact && # want exact match
+                             $track =~ /^(\d{2} - |)\Q$title\E(\.[^\.]*|)$/i)
+                        ||
+                        (!($exact) && # not exact
+                            $track =~ /\Q$title\E/i)) {
+                        next;
+                    }
+                }
+
+                # Match Artist
+                if ($artist) {
+                    unless ($exact && # want exact match
+                            ($folder =~ /^\Q$artist\E$/i || # artist folder
+                            ($trackartist =~ /^\Q$artist\E$/i ))
+                            # track artist (not on album searches)
+                        ||
+                        (!($exact) && # not exact
+                            ($folder =~ /\Q$artist\E/i || # artist folder
+                            $trackartist =~ /\Q$artist\E/i))) { # track artist
+                        next;
+                    }
+                }
+
+                # Set the album to misc if needed
+                if (!$trackalbum) {
+                        $trackalbum = 'Miscellany';
+                }
+
+                # Match Album Title
+                if ($album) {
+                    unless (($exact && # want exact match
+                            ($trackalbum =~ /^\Q$album\E\//i ||
+                            $album =~ /^\Q$trackalbum\E(\/|$)/i)) # allow subfolders and parents
+                        ||
+                        (!$exact && # not exact
+                            $trackalbum =~ /\Q$album\E/i)) {
+                        next;
+                    }
+                }
+
+                # Match Dates
+
+                if (($dateFrom || $dateTo)) {
+                    if (defined $year && (($dateFrom && $year < $dateFrom )
+                        || ($dateTo && $year > $dateTo ))) {
+                        next;
+                    }
+                }
+
+                # Store Result
+                if ($searchFor eq 'artist') {
+                    if ($folder) {
+                        foreach (@CUSTOM) {
+                            $folder = undef if (/^$folder$/)
+                        }
+                        if ($folder &&
+                            !($trackartist
+                                && $scope eq 'misc')) {push(@result, makeABC($folder))}
+                    }
+                    if ($trackartist &&
+                        $trackartist ne $folder &&
+                        !($scope eq 'album')) { push(@result, makeABC($trackartist)); }
+                }
+                elsif ($searchFor eq 'album') {
+                    my $partalbum = $trackalbum;
+                    while ($partalbum =~ s/(.*)\/.+/$1/) {
+                        my $parentalbum = $1; my $parentyear;
+                        if ($parentalbum =~ / \((\d{4})\)(\/|)/) {
+                            $parentyear = $1;
+                        }
+                        push(@result, "$parentyear$delim$parentalbum$delim$platter");
+                    }
+                    # misc is always merged
+                    my $albumline = "$year$delim$trackalbum$delim";
+                    $albumline.=$platter unless ($trackalbum eq "Miscellany");
+                    push(@result, $albumline);
+                }
+                elsif ($searchFor eq 'track')  {
+                    push(@result, "$raw$delim$platter");
+                }
+            }
+            close PLATTER;
+        }
+    }
+    # remove duplicates from artist and album searches
+    #print join ("\n", keys %ABCS);
+
+    @result = removeDup(@result) if ($searchFor ne 'track');
+    # take random selection of results
+    if ($random>0) {
+        my %done;
+        my @randomlist;
+
+        if ($random > $#result+1) {
+            $random = $#result+1;
+        }
+
+        while ($random > 0) {
+            my $index;
+            do {
+                $index = int(rand($#result+1));
+            } while (exists $done{$index});
+            push(@randomlist, $result[$index]);
+            $done{$index} = 1;
+            $random--;
+        }
+        return @randomlist;
+    }
+    else {
+        return @result;
+    }
+}
+
+sub removeDup( @_ ) {
+    my @result = sort( @_ );
+
+    my $last;
+    my $i=0;
+    while ($i<=$#result) {
+        if ($last eq $result[$i]) {
+            splice @result, $i, 1;
+        }
+        else {
+            $last = $result[$i];
+            $i++;
+        }
+    }
+    return @result;
+}
+
+sub makeABC( @_ ) {
+    my ($entry) = @_;
+    $entry =~ s/^\W*//;
+    if ($ABCS{$entry}) { $entry = ucfirst($ABCS{$entry}.$delim.$entry); }
+    return $entry;
+}
diff --git a/cgi-bin/abcmanager.plx b/cgi-bin/abcmanager.plx
new file mode 100644
index 0000000..409b822
--- /dev/null
+++ b/cgi-bin/abcmanager.plx
@@ -0,0 +1,33 @@
+#!c:/perl/bin/perl
+
+use CGI;
+use strict;
+use URI::Escape;
+use HTML::Entities ();
+use Globals;
+use Globals qw($delim);
+
+my $QUERY     = CGI::new();
+my $ACTION    = $QUERY->param( "action" );
+my $ARTIST    = makeNice($QUERY->param( "artist" ));
+my $ABC    = makeNice($QUERY->param( "abc" ));
+my %ABCS = getABCs();
+
+print "<html><head>";
+
+if ($ACTION eq "remove") {
+    delete $ABCS{$ARTIST};
+    }
+elsif ($ACTION eq "add") {
+    $ABCS{$ARTIST} = $ABC.".abc"
+    }
+
+print "</head><script>location.replace(document.referrer);</script></html>\n";
+
+open ( ABC, ">../inventory/abcs.txt" );
+my @abckeys = sort {uc($a) cmp uc($b)} keys %ABCS;
+my $key;
+foreach $key (@abckeys) {
+    print ABC $key.$delim.$ABCS{$key}."\n";
+    }
+close ABC;
diff --git a/cgi-bin/artist.plx b/cgi-bin/artist.plx
new file mode 100644
index 0000000..cb6ea29
--- /dev/null
+++ b/cgi-bin/artist.plx
@@ -0,0 +1,141 @@
+#!c:/perl/bin/perl
+
+use CGI;
+use strict;
+use Search;
+use Globals;
+use Globals qw($delim);
+use Globals qw($debug);
+use Globals qw(%PLATTERS);
+use Globals qw($target);
+use Globals qw($bgcolour);
+
+my $query     = CGI::new();
+my $artist    = $query->param( "name" );
+$artist =~ s/(The |)(.*?)(, The|)/$2/;
+my $reqAlbum  = $query->param( "album" );
+my $inv       = $query->param( "inv" );
+my $target    = $query->cookie("target");
+my $webpage;
+
+if ( $target =~ /narrow/ )
+{
+  $webpage = openTemplate("artistNarrow");
+}
+else
+{
+  $webpage = openTemplate("artist");
+}
+
+Search::setArtist($artist);
+Search::searchFor('album');
+Search::setExact(1);
+if (length $inv > 0) { Search::setInv(split(',', $inv)) }
+else { Search::setInv(keys %PLATTERS) }
+
+my @albums = Search::go() unless !$artist;
+
+my $albumlist;
+my $hasMisc;
+my $init;
+my $index;
+my $albumcount;
+my $countreport;
+my $firstAlbum;
+foreach( @albums ) {
+    my ($year, $album, $platter) = split($delim);
+    my $selected;
+    print "$year, $album, $platter\n" if ($debug);
+    my $link = 'search.plx?artist='.makeUnNice($artist).'&album='.makeUnNice($album).
+        '&exact=1&searchFor=track&inv='.$platter;
+
+    if ($album =~ /^\Q$reqAlbum\E$/) {
+        $init = $link.'&output=album';
+        $selected = ' selected'; $reqAlbum = 'found';
+        }
+
+    $albumcount++;
+
+    if ($album =~ /^Miscellany$/) {
+        if (!$hasMisc) {
+            $index = $link.'&output=album';
+            $hasMisc = 1;
+        }
+    }
+    else {
+
+        $firstAlbum = $link.'&output=album' if (!$firstAlbum);
+        $albumlist .= "\n<option value=\"$link\&output=album\"$selected>".makeNice($album);
+
+    }
+}
+
+if ($hasMisc) {
+    $albumlist = "<option value=\"$index\">Info & Miscellany\n$albumlist";
+}
+else {
+    $index = '/platdoc/emptyAlbum.html' ;
+    if ($firstAlbum && !$init) {
+        $init = $firstAlbum;
+    }
+}
+$albumlist = "$albumlist\n<option value=\"search.plx?artist=".makeUnNice($artist)."&exact=1&searchFor=track&output=album\">Show all";
+
+if ($albumlist) {
+    $albumlist = '<select onChange="switchAlbum(this.options[this.selectedIndex].value)">">'.$albumlist."</select></br>";
+    $countreport = "$albumcount found";
+}
+else {
+    $countreport = "None";
+}
+
+$init = $index if (!$init);
+
+# abcmanager links
+my $rejig;
+my %ABCS = getABCs();
+my $thisabc = $ABCS{$artist};
+if ($artist =~ / / || defined $thisabc) {
+
+    $rejig = '<img src="/platdoc/img/editbutton.png" width=32 height=32 alt="Edit" align="left"><nobr><small>Currently indexed as <br><strong>';
+
+    if (defined $thisabc ) {
+        $thisabc =~ s/\.abc.*//;
+        $rejig .= makeHTML($thisabc).'</strong><br>'.
+            '<a href="abcmanager.plx?artist='.makeUnNice($artist).'&action=remove">Clear</a></small></nobr>';
+    }
+    else {
+        my $newabc = $artist;
+        $newabc =~ s/(.*) (.*?)$/$2 $1/;
+        $rejig .= makeHTML($artist).'</strong><br>'.
+            '<a href="abcmanager.plx?artist='.makeUnNice($artist).'&abc='.makeUnNice($newabc).'&action=add">Index as '.makeHTML($newabc).'</a></small></nobr>';
+    }
+}
+$webpage =~ s/%INDEX%/$index/g;
+$webpage =~ s/%SECTIONS%/$albumlist/g;
+$webpage =~ s/%COUNT%/$countreport/g;
+$webpage =~ s/%ABC%/$rejig/g;
+
+$init =~ s/'/\\'/g;
+$webpage =~ s/%INIT%/$init/g;
+
+$webpage =~ s/%ARTIST%/$artist/g;
+
+my $urlartist =  makeUnNice($artist);
+$webpage =~ s/%URLARTIST%/$urlartist/g;
+
+$artist =~  s/'/\\'/g;
+$webpage =~ s/%JSARTIST%/$artist/g;
+
+$webpage =~ s/%BGCOLOUR%/$bgcolour/g;
+
+print $webpage;
+
+
+
+
+
+
+
+
+
diff --git a/cgi-bin/front.plx b/cgi-bin/front.plx
new file mode 100644
index 0000000..6c64cc0
--- /dev/null
+++ b/cgi-bin/front.plx
@@ -0,0 +1,109 @@
+#!c:/perl/bin/perl
+
+use CGI;
+use Globals;
+use Globals qw(@CUSTOM);
+use Globals qw($VERSION);
+use Globals qw($target);
+use Globals qw($bgcolour);
+use strict;
+
+my $QUERY         = CGI::new();
+
+my $WEBPAGE;      # Source for the webpage will be written here
+my $CUSTOM;
+
+# Screw with the $target variable
+#
+$target =~ s/narrow/iframe/g;
+
+# Gather current user info
+#
+my $USER;
+my $HOST = $QUERY->remote_host();
+open USERS, "../data/users.txt" or die;
+while( <USERS> )
+{
+  if ( $_ =~ /$HOST/ )
+  {
+    chomp;
+    my @THISUSER = split (';');
+    
+    $USER = "<b>$THISUSER[1]</b> ($THISUSER[0]/$THISUSER[2])";
+  }
+}
+close USERS;
+if (!defined $USER) { $USER = $HOST }
+
+# fill in custom folders
+
+foreach (@CUSTOM) {
+    my $folder = $_;
+    if ( length $CUSTOM > 0 )
+    {
+      $CUSTOM .= ", ";
+    }
+    
+    $CUSTOM.='<a href="artist.plx?name='.makeUnNice($folder).'"  target="'.$target.'"><b>'.$folder."</b></a>";
+}
+
+# decide the start page
+my $start;
+if (defined $QUERY->param('artist')) {
+    if (defined $QUERY->param('album')) {
+    	$start="artist.plx?name=".makeUnNice($QUERY->param('artist'))."&album=".makeUnNice($QUERY->param('album'));
+    }
+    else 
+    {
+    	$start="search.plx?artist=".makeUnNice($QUERY->param('artist'))."&exact=0&searchFor=artist&output=tracks&filter=music,video,shortcut&scope=all";
+    }
+}
+else 
+{
+    $start = "news.plx";
+    $start = "servernews.plx" if ($QUERY->cookie('start') eq 'servernews');
+}
+
+# load the headlines
+
+my $NEWS;
+if (open(NEWS, '../data/news.txt')) {
+    while(<NEWS>) {
+        chomp;
+        if (/^\[*(.*)\]$/) {
+            $NEWS .= ', ' if ($NEWS);
+            $NEWS.= '<a href="news.plx#'.$1.'" target="iframe">'.$1.'</a>';
+        }
+    }
+}
+
+# put the iframe in if we're not small screen
+my $iframe = '';
+if ($target ne '_top') {
+	$iframe = '<iframe src="%START%" name="iframe" id="iframe" width="100%" height="100%" frameborder="0"></iframe>';
+}
+
+# open the template file
+#
+$WEBPAGE = openTemplate("front");
+
+# Put in what we know
+#
+$WEBPAGE =~ s/%IFRAME%/$iframe/g;
+$WEBPAGE =~ s/%TARGET%/$target/g;
+$WEBPAGE =~ s/%VERSION%/$VERSION/g;
+$WEBPAGE =~ s/%USER%/$USER/g;
+$WEBPAGE =~ s/%HOST%/$HOST/g;
+$WEBPAGE =~ s/%CUSTOM%/$CUSTOM/g;
+$WEBPAGE =~ s/%START%/$start/g;
+$WEBPAGE =~ s/%HEADLINES%/$NEWS/g;
+$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
+
+# Display the finished Web page
+#
+print $WEBPAGE;
+
+# Fin
+#
+close TEMPLATE;
+exit;
diff --git a/cgi-bin/hosts.plx b/cgi-bin/hosts.plx
new file mode 100644
index 0000000..a37cc41
--- /dev/null
+++ b/cgi-bin/hosts.plx
@@ -0,0 +1,45 @@
+#!c:/perl/bin/perl
+
+# UNIX shebang line
+#
+#!/usr/local/bin/perl -w
+
+# Use me
+#
+use CGI;
+use strict;
+use Globals;
+use Globals qw($bgcolour);
+my $counter = 0;
+
+my $WEBPAGE;
+my $SERVERS;
+my $USERS;
+
+# Start the page.
+#
+open TEMPLATE, "../templates/hosts.template" or die;
+
+while ( <TEMPLATE> )
+{
+  $WEBPAGE .= $_;
+}
+
+# Build a list of hosts and IPs
+#
+open (USERFILE, "../data/users.txt");
+
+while (<USERFILE>)
+{
+  chomp;
+  my @thisuser = split(';');
+    
+  $USERS .= "<tr><td><span style=\"color:white;font-weight:bold;\">$thisuser[1]</span></td><td>$thisuser[0]</td><td>$thisuser[2]</td></tr>";
+}
+close( HOSTFILE );
+
+$WEBPAGE =~ s/%USERLIST%/$USERS/g;
+$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
+
+print $WEBPAGE;
+exit;
diff --git a/cgi-bin/news.plx b/cgi-bin/news.plx
new file mode 100644
index 0000000..cf42681
--- /dev/null
+++ b/cgi-bin/news.plx
@@ -0,0 +1,47 @@
+#!c:/perl/bin/perl
+
+use CGI;
+use strict;
+use Globals;
+use Globals qw($audioRocketman);
+use Globals qw($videoRocketman);
+use Globals qw($bgcolour);
+
+my $WEBPAGE;      # Source for the webpage will be written here
+
+# get the template
+#
+$WEBPAGE = openTemplate("news");
+
+# get news
+
+my $NEWS;
+my $SHATNER;
+if (open(NEWS, '../data/news.txt')) {
+    $SHATNER = <NEWS>;
+    while(<NEWS>) {
+        chomp;
+        if (/^\[*(.*)\]$/) {
+            $NEWS.="<p><b>".$1."</b><a name=\"".$1."\">&nbsp;</a><br>\n";
+        }
+        else {
+            $NEWS.=$_;
+        }
+    }
+}
+
+# Put in what we know
+#
+$WEBPAGE =~ s/%AUDROCKET%/$audioRocketman/g;
+$WEBPAGE =~ s/%VIDROCKET%/$videoRocketman/g;
+$WEBPAGE =~ s/%SHATNER%/$SHATNER/g;
+$WEBPAGE =~ s/%NEWS%/$NEWS/g;
+$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
+
+# Display the finished Web page
+#
+print $WEBPAGE;
+
+# Fin
+#
+exit;
diff --git a/cgi-bin/playlists/album.pm b/cgi-bin/playlists/album.pm
new file mode 100644
index 0000000..89f9273
--- /dev/null
+++ b/cgi-bin/playlists/album.pm
@@ -0,0 +1,197 @@
+package album;
+
+use Globals;
+use CGI;
+use Globals qw(%PLATTERS);
+use Globals qw(@CUSTOM);
+use Globals qw($delim);
+use strict;
+
+sub new {
+    my $self = {
+        mime   => "text/html",
+        playlist => undef, 
+        artist => undef,
+        coverCount => 0,
+        info => undef,
+        platter => undef,
+        currentAlbum => undef,
+        playlink => undef,
+        custom => undef,
+        foreign => undef
+    };
+    
+    my $query  = CGI::new();
+    my $target = $query->cookie("target");
+
+    if ( $target =~ /narrow/ )
+    {
+      $self->{playlist} = openTemplate("albumNarrow");
+    }
+    else
+    {
+      $self->{playlist} = openTemplate("album");
+    }
+    
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Used internally to build album views";
+    }
+    
+sub header {
+    my $self = shift;
+    my ($artist, $album) = @_;
+    $self->{artist} = $artist;
+    $self->{album} = $album;
+    #print $artist;
+    foreach ( @CUSTOM ) {
+        if ($artist eq $_) {
+            $self->{custom} = 1;
+            last;
+        }
+    }
+    # make a nice display for the albums
+    $album =~ /(\d{2} - |)(.*?)( \((\d{4})\)|)$/;
+    my $albumname = $2; my $year = $4;
+    my $htmlalbum = '<a href="front.plx?artist='.makeUnNice($artist).'&album='.makeUnNice($album).'" class="heading" target="_top" title="Platter link to '.$album.'"><span class="title">'.makeHTML($2).'</span></a>';
+    $htmlalbum = '' if ($albumname eq 'Miscellany');
+
+    # initialise the playlist
+    $self->{playlist} =~ s/%ALBUM%/$album/g;
+    $self->{playlist} =~ s/%HTMLALBUM%/$htmlalbum/g;
+    $self->{playlist} =~ s/%ARTIST%/$artist/g;
+    $self->{playlist} =~ s/%YEAR%/<br>&nbsp;<b>$year<\/b>/g;
+    $self->{playlink} = 'search.plx?artist='.makeUnNice($artist).'&album='.makeUnNice($album).'&exact=1&searchFor=track&inv=%INV%&filter=music,video,shortcut';
+    $self->{currentAlbum} = makeNice($album);
+
+}
+
+sub track {
+    my $self = shift;
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+
+    if ($track =~ /(cover|artist).*\.(gif|jpg|png)$/i) {
+        # put the image and label in if not there yet
+        if (!($self->{coverCount})) {
+            my $cover = '<p><a href="javascript:nextCover()"><img border=0 name="cover" id="cover" alt="Click for next image"></a><br>'.
+                '<small>Image from <strong name="coversource" id="coversource">Nobody</strong>&nbsp;(<span name="coverno" id="coverno">0</span> of %TOTALCOVERS%)</small><script>nextCover();</script>';
+    
+            $self->{playlist} =~ s/%COVER%/$cover/;
+        }
+
+        # insert into the javascript arrays
+        
+        my $coverLoc = "locations[$self->{coverCount}] = '".makeJs('http://'.$PLATTERS{$platter}.$url)."';\n    ";
+        $self->{playlist} =~ s/%LOCATIONS%/$coverLoc%LOCATIONS%/;    
+        my $coverSource = "sources[$self->{coverCount}] = '$platter';\n    ";
+        $self->{playlist} =~ s/%SOURCES%/$coverSource%SOURCES%/;
+        
+        $self->{coverCount}++;
+        
+    }
+    elsif ($track =~ /info\.txt$/i) {
+        $self->{info} .= '<p><i>'.$platter.' says:</i><br>'.getFile('http://'.$PLATTERS{$platter}.$url)."\n";
+    }
+    else { # add the track
+
+        # look to see if we're on a child album and report it
+        my $trackhtml;
+        my $nicealbum = makeNice($album);
+
+        if ($self->{currentAlbum} ne $nicealbum) {
+            my $albumstub = $nicealbum;
+            $albumstub =~ s/^\Q$self->{album}\E\///;
+            $trackhtml = '<br><b>'.makeHTML($albumstub)."</b>\n";
+        }
+       
+        $self->{currentAlbum} = $nicealbum;
+
+        # link to other folder if present
+        my $foreigner;
+        foreach (($folder, $trackartist)) {
+            my $thisArtist = $_;
+            my $thisNiceArtist = makeNice($thisArtist);
+            if ($thisArtist && !($thisNiceArtist =~ /^$self->{artist}$/i) && !($thisNiceArtist =~ /^$folder$/i) ) {
+                $foreigner = '<br><small><i>';
+                $foreigner .= 'with ' if (!$self->{custom});
+                $foreigner .= '<a href="artist.plx?name='.makeUnNice($thisArtist).'&exact=1" target="_parent">'.makeHTML($thisArtist).'</a></i></small>' ;
+            }
+        }
+
+        # paste the track in  
+        $trackhtml .= '<li><a href="'.makeTrackURL($PLATTERS{$platter}, $url, $folder, $trackartist, $track ).'"><img src="/platdoc/img/filebutton_s.png" border=0 align="top"></a><a href="'.makeTrackPlaylist($folder, $trackartist, $album, $track, $platter).'"><img src="/platdoc/img/playbutton_s.png" border=0 align="top"> '.makeHTML($track)."</a>$foreigner</li>\n%TRACKS%";
+        
+        $self->{playlist} =~ s/%TRACKS%/$trackhtml/;
+        
+        # check if extract of another album
+        if (!$self->{foreign} && $self->{album} ne 'Miscellany') {
+            my $artistlink = makeNice($folder);
+            if ($artistlink && $artistlink ne $self->{artist}) { # link to proper artist page
+                $self->{foreign} = "&nbsp;<i>from <a href=\"artist.plx?name=".makeUnNice($artistlink)."&album=".$album."\" target=\"_parent\">$artistlink</a>";
+            }
+            else {
+                $self->{foreign} = " "; # don't check again
+            }
+        }
+
+        # update the host
+        if ($self->{platter} eq "") {
+            $self->{platter} = $platter;
+        }
+        elsif ($self->{platter} ne $platter && $self->{platter} ne 'Various') {
+            $self->{platter} = 'Various';
+        }        
+
+    }
+}
+    
+sub dump {
+    my $self = shift;
+    # remove any unused placeholders
+    $self->{playlist} =~ s/%COVER%//;
+    $self->{playlist} =~ s/%TRACKS%//;
+    $self->{playlist} =~ s/%SOURCES%//;    
+    $self->{playlist} =~ s/%LOCATIONS%//;    
+    $self->{playlist} =~ s/%TOTALCOVERS%/$self->{coverCount}/g;        
+
+    # info
+    my $info = $self->{info};
+    my $infolink;
+    if (!$info) {
+        $info = '<p><i>No further info available</i>' ;
+    }
+    else {
+        $infolink = '<a href="#info"><img src="/platdoc/img/infobutton.png" width=32 height=32 border=0 alt="Information"></a>';
+    }
+    
+    my $playbutton; my $hostreport;
+    
+    # playbutton
+    if ($self->{platter}) {
+        $playbutton = '<a href="'.$self->{playlink}.'">'.
+        '<img src="/platdoc/img/playbutton.png" width=32 height=32 border=0 alt="Play"></a>';
+        $hostreport = 'Hosted by <strong>%SOURCE%</strong>';
+    }
+    $self->{playlist} =~ s/%PLAYBUTTON%/$playbutton/;
+    $self->{playlist} =~ s/%HOST%/$hostreport/;
+    
+    
+    #all other vars
+    my $source = $self->{platter};
+    $self->{playlist} =~ s/%SOURCE%/$source/;
+    
+    $source = '' if ($source eq 'Various');
+    $self->{playlist} =~ s/%INV%/$source/;
+    
+    $self->{playlist} =~ s/%INFO%/$info/;
+    $self->{playlist} =~ s/%INFOBUTTON%/$infolink/;
+    
+    my $link = $self->{foreign};
+    $self->{playlist} =~ s/%FOREIGN%/$link/;        
+    return $self->{playlist}; 
+    }
+
+return 1;
diff --git a/cgi-bin/playlists/artistlist.pm b/cgi-bin/playlists/artistlist.pm
new file mode 100644
index 0000000..5c419c7
--- /dev/null
+++ b/cgi-bin/playlists/artistlist.pm
@@ -0,0 +1,78 @@
+package artistlist;
+
+use strict;
+use Globals;
+use Globals qw(%PLATTERS);
+use Globals qw(@MUSIC);
+use Globals qw(@VIDEO);
+use Globals qw($target);
+use Globals qw($delim);
+use Globals qw($bgcolour);
+
+sub new {
+    my $self = {
+        mime   => "text/html",
+        playlist => openTemplate("search"),
+        artistSearch => 0,
+        section => undef,
+        shortcuts => '<br>',        
+        count => 0};
+        
+    # show the logo if this is a new page
+    my $logo;
+    $logo = '<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0></a>' if ($target eq '_top');
+    $self->{playlist} =~ s/%LOGO%/$logo/;
+    $self->{playlist} =~ s/%BGCOLOUR%/$bgcolour/;
+    
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Artist Search Results";
+    }
+    
+sub header {
+    my $self = shift;
+}
+
+sub track {
+    my ($self, $abc, $artist) = @_;
+    $artist = $abc if !$artist;
+    my $firstletter = substr($abc, 0, 1);
+    if ($firstletter ne $self->{section}) {
+        $self->{playlist} .= '<hr style="color:white; clear:both" align="left">' if ($self->{section});
+        $self->{playlist} .= '<span class="title">'.$firstletter."</span><a name=\"".uc($firstletter)."\">\n</a><p>";
+        $self->{section} = $firstletter;
+        $self->{shortcuts} .= '<a href="#'.$firstletter.'"><b>'.$firstletter.'</b></a>&nbsp;';
+    }
+    my $realength = $artist; 
+    $realength=~s/&[^;]*;/x/g;
+    $realength = (int(length($realength) / 20) +1)*120;
+    $self->{playlist} .= "<div style=\"float:left; width:".$realength."px\">".
+        "<a href=\"artist.plx?name=".makeUnNice($artist)."&exact=1\">".makeHTML($artist)."</a>&nbsp;</div>";
+    $self->{count}++;
+}
+    
+sub dump {
+    my $self = shift;
+    $self->{playlist} .= "\n<br style=\"clear:both\">";
+    my $shortcuts = $self->{shortcuts};
+    $self->{playlist} =~ s/%SHORTCUTS%/$shortcuts/;
+    
+    if ($self->{count} > 0)
+    {
+      my $REPORT = "Found ".$self->{count}." artists.";
+      $self->{playlist} =~ s/%COUNT%/$REPORT/;
+      return $self->{playlist}."</ol><p>$REPORT</body></html>";
+    }
+    else
+    {
+      $self->{playlist} =~ s/%COUNT%/<p>Sorry, no-one found./;
+
+      return $self->{playlist}."</ol></body></html>";
+    }
+}
+
+return 1;
+
diff --git a/cgi-bin/playlists/extm3u.pm b/cgi-bin/playlists/extm3u.pm
new file mode 100644
index 0000000..01d7eee
--- /dev/null
+++ b/cgi-bin/playlists/extm3u.pm
@@ -0,0 +1,36 @@
+package extm3u;
+
+use Globals;
+use Globals qw(%PLATTERS);
+use strict;
+use Globals qw($delim);
+
+sub new {
+    my $self = {
+        mime   => "audio/x-mpegurl",
+        playlist => "#EXTM3U\n" };
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Standard format for mp3 playlists";
+    }
+    
+sub header {
+}
+
+sub track {
+    my $self = shift;
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+    my $artist = getArtistString($folder, $trackartist);
+    $self->{playlist} .= 
+        "#EXTINF:180,".makeNice($artist)." - ".makeNice($track)."\n".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."\n";
+    }
+    
+sub dump {
+    my $self = shift;
+    return $self->{playlist};
+    }
+
+return 1;
diff --git a/cgi-bin/playlists/extpls.pm b/cgi-bin/playlists/extpls.pm
new file mode 100644
index 0000000..9cc048c
--- /dev/null
+++ b/cgi-bin/playlists/extpls.pm
@@ -0,0 +1,39 @@
+package extpls;
+
+use strict;
+use Globals;
+use Globals qw(%PLATTERS);
+use Globals qw($delim);
+
+sub new {
+    my $self = {
+        mime   => "audio/scpls",
+        playlist => "[playlist]\n",
+        count => 0};
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Very common audio playlist format";
+}
+    
+sub header {
+}
+
+sub track {
+    my $self = shift;
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+    my $artist = getArtistString($folder, $trackartist); 
+    $self->{count}++;
+    $self->{playlist} .= "File".$self->{count}."=".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."\n".
+               "Title".$self->{count}."=".makeNice($track)."\n".
+               "Length".$self->{count}."=-1\n";
+    }
+
+sub dump {
+    my $self = shift;
+    return $self->{playlist}."NumberOfEntries=".$self->{count}."\nVersion=2\n";
+    }
+
+return 1;
diff --git a/cgi-bin/playlists/extrmp.pm b/cgi-bin/playlists/extrmp.pm
new file mode 100644
index 0000000..f17eb82
--- /dev/null
+++ b/cgi-bin/playlists/extrmp.pm
@@ -0,0 +1,53 @@
+package extrmp;
+
+use strict;
+use Globals;
+use Globals qw(%PLATTERS);
+use Globals qw($delim);
+
+sub new {
+    my $self = {
+        mime   => "application/vnd.rn-rn_music_package",
+        playlist => "<PACKAGE>\n".
+        "<ACTION>import,play,replace</ACTION>\n".
+        '<SERVER><LOCATION>%f</LOCATION></SERVER>',
+        count => 0};
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "RealOne Player";
+    }
+    
+sub header {
+    my $self = shift;
+    my ($artist, $album) = @_;
+    $self->{playlist} .= "<TITLE>".makeNice($album)."</TITLE>".
+    "<SERVER><LOCATION>%f</LOCATION></SERVER>".
+    "<TARGET>".makeNice($album)."</TARGET>".
+    "<TRACKLIST>\n";
+
+}
+
+sub track {
+    my $self = shift;
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+    my $artist = getArtistString($folder, $trackartist);
+    $self->{count}++;
+    $self->{playlist} .= "<TRACK>\n".
+            "<TRACKID>".$self->{count}."</TRACKID>\n".
+            "<TITLE>".makeNice($track)."</TITLE>\n".
+            "<ARTIST>".makeNice($artist)."</ARTIST>\n".
+            "<ALBUM>".makeNice($album)."</ALBUM>\n".
+            "<FILENAME>".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."</FILENAME>\n".
+            "</TRACK>\n";
+        
+    }
+
+sub dump {
+    my $self = shift;
+    return $self->{playlist}."</TRACKLIST></PACKAGE>";
+    }
+
+return 1;
diff --git a/cgi-bin/playlists/extwvx.pm b/cgi-bin/playlists/extwvx.pm
new file mode 100644
index 0000000..7decaee
--- /dev/null
+++ b/cgi-bin/playlists/extwvx.pm
@@ -0,0 +1,64 @@
+package extwvx;
+
+use strict;
+
+use Globals;
+use Globals qw($CGIROOT);
+use Globals qw($APPNAME);
+use Globals qw(%PLATTERS);
+use Globals qw($delim);
+use Globals qw(@VIDEO);
+
+sub new {
+    my $self = {
+        mime => "video/x-ms-wvx",
+        playlist => "<Asx Version = \"3.0\" >\n"};
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Windows Media Player Playlist";
+    }
+
+sub header {
+    my $self = shift;
+    my ($artist, $album) = @_;
+    $album =~ /(\d{2} - |)(.*)(\((\d{4})\)|)/;
+    $self->{playlist} .= "<Title>$2</Title>".
+     "<Author>$artist</Author>".
+     "<Param Name = \"AllowShuffle\" Value = \"yes\" />\n";
+}
+
+sub track {
+    my $self = shift;
+
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+    my $artist = getArtistString($folder, $trackartist);
+    
+    my $mediatype  = "audio";
+    $track =~ /.*\.(.*?)/i;
+    my $filetype = $1;
+    foreach (@VIDEO) {
+        $mediatype = "video" if (/^$filetype$/i);
+    }
+    
+    $self->{playlist} .= "<Entry>\n".
+        "<Title>".makeNice($track)."</Title>\n".
+        "<Ref href = \"".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."\"/>\n".
+        "<Param Name = \"Artist\" Value = \"".$artist."\" />\n".
+        "<Param Name = \"Album\" Value = \"".makeNice($album)."\" />\n".
+        "<Param Name = \"MediaType\" Value = \"".$mediatype."\" />\n".
+        "<Banner Href = \"http://$CGIROOT/platdoc/img/banner.png\">\n".
+        "<Abstract>Click to go to the ".makeNice($folder)." page</Abstract>\n".
+        "<Moreinfo Href=\"http://$CGIROOT/$APPNAME/front.plx?artist=".makeUnNice($folder)."&album=".makeUnNice($album)."\" />\n".
+        "</Banner>\n".            
+        "</Entry>\n";
+    }
+
+sub dump {
+    my $self = shift;
+    return $self->{playlist}."</Asx>";
+    }
+
+return 1;
diff --git a/cgi-bin/playlists/playlist.pm b/cgi-bin/playlists/playlist.pm
new file mode 100644
index 0000000..5ee280e
--- /dev/null
+++ b/cgi-bin/playlists/playlist.pm
@@ -0,0 +1,33 @@
+package playlist;
+use strict;
+use Globals;
+
+return 1;
+
+sub new { 
+    my ($proto, $playlist) = @_;
+    my $playlister = eval("use playlists::".$playlist."; ".$playlist."->new();");
+    if (!defined $playlister) {
+        $playlister = {
+            mime => "text/html",
+            playlist => openTemplate("error"),
+            };
+        $playlister->{playlist} =~ s/%NAME%/$playlist/g;
+        bless ($playlister);
+    }
+
+    return $playlister;
+}
+
+sub desc { return "Not Currently Working"; }
+
+sub header {    
+    }
+
+sub track {
+    }
+
+sub dump {
+    my $self = shift;
+    return $self->{playlist};
+    }
diff --git a/cgi-bin/playlists/tracks.pm b/cgi-bin/playlists/tracks.pm
new file mode 100644
index 0000000..5e73766
--- /dev/null
+++ b/cgi-bin/playlists/tracks.pm
@@ -0,0 +1,85 @@
+package tracks;
+
+use strict;
+use Globals;
+use Globals qw(%PLATTERS);
+use Globals qw(@MUSIC);
+use Globals qw(@VIDEO);
+use Globals qw($target);
+use Globals qw($delim);
+use Globals qw($bgcolour);
+
+sub new {
+    my $self = {
+        mime   => "text/html",
+        playlist => openTemplate("search"),
+        artistSearch => 0,
+        count => 0};
+        
+    # show the logo if this is a new page
+    my $logo;
+    $logo = '<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0></a>' if ($target eq '_top');
+    $self->{playlist} =~ s/%LOGO%/$logo/;
+    $self->{playlist} =~ s/%BGCOLOUR%/$bgcolour/g;
+    
+    bless ($self);
+    return $self;
+}
+
+sub desc {
+    return "Track Search Results";
+    }
+    
+sub header {
+    my $self = shift;
+    $self->{playlist} .= '<ol>';
+}
+
+sub track {
+    my $self = shift;
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
+    
+    $self->{count}++;
+
+    $self->{playlist} .=  "<li>";
+
+    #prepare urls
+    
+	$self->{playlist} .= '<a href="'.makeTrackURL($PLATTERS{$platter}, $url, $folder, $trackartist, $track ).'"><img src="/platdoc/img/filebutton_s.png" border=0 align="middle"></a><a href="'.makeTrackPlaylist($folder, $trackartist, $album, $track, $platter).'"><img src="/platdoc/img/playbutton_s.png" border=0 align="middle"> &quot;'.makeHTML($track)."</a>&quot;<br>";
+
+    # prepare artist info
+    foreach(  ($folder, $trackartist) ) {
+
+        $self->{playlist} .= "<a href=\"artist.plx?name=".makeUnNice($_)."&exact=1\">".makeHTML($_)."</a>," if (/.+/);
+    }
+    chop $self->{playlist}; # remove trailing comma
+    
+    if (length $album > 0) { # album
+        $self->{playlist} .= "<br>from <a href=\"artist.plx?name=".makeUnNice($folder)."&album=".makeUnNice($album)."&exact=1\">";
+        $album =~ s/\(\d{4}\)(\/|$)/$1/;
+        $self->{playlist} .=  makeHTML($album)."</a>";
+        if ($year > 0) { $self->{playlist} .= " <small>($year)</small>" }
+    }
+
+    $self->{playlist} .= "<span style=\"font-size:4pt;\"><br>&nbsp;</span></li>\n";
+}
+    
+sub dump {
+    my $self = shift;
+    $self->{playlist} =~ s/%SHORTCUTS%//;
+    if ($self->{count} > 0)
+    {
+      my $REPORT = "Found ".$self->{count}." matches.";
+      $self->{playlist} =~ s/%COUNT%/$REPORT/;
+      return $self->{playlist}."</ol><p>$REPORT</body></html>";
+    }
+    else
+    {
+      $self->{playlist} =~ s/%COUNT%/<p>Sorry, nothing found./;
+
+      return $self->{playlist}."</ol></body></html>";
+    }
+}
+
+return 1;
+
diff --git a/cgi-bin/search.plx b/cgi-bin/search.plx
new file mode 100644
index 0000000..ce1513a
--- /dev/null
+++ b/cgi-bin/search.plx
@@ -0,0 +1,127 @@
+#!c:/perl/bin/perl
+
+# UNIX shebang line
+#
+#!/usr/local/bin/perl -w
+
+# Use me
+#
+use CGI;
+use strict;
+use Globals;
+use Globals qw(%PLATTERS);
+use Globals qw(@MUSIC);
+use Globals qw(@VIDEO);
+use Globals qw(@SHORTCUT);
+use Globals qw($delim);
+use Globals qw($debug);
+use playlists::playlist;
+use Search;
+
+my $QUERY = CGI::new();
+my $artist        = $QUERY->param( "artist" );
+my $title         = $QUERY->param( "title" );
+my $album         = $QUERY->param( "album" );
+my $dateFrom      = $QUERY->param( "dateFrom" );
+my $dateTo        = $QUERY->param( "dateTo" );
+my $scope         = $QUERY->param( "scope" );
+my $random        = $QUERY->param( "random" );
+my $output        = $QUERY->param( "output" );
+my $filter        = $QUERY->param( "filter" );
+my $exact         = $QUERY->param( "exact" );
+my $inv           = $QUERY->param( "inv" );
+my $searchFor     = $QUERY->param( "searchFor" );
+
+$searchFor = 'track' unless ($searchFor);
+
+# platter shortcut here
+if ($output eq 'redir') {
+    $searchFor = 'track';
+    $filter = 'music,video';
+    $random = 1; # in case the search returns more than one track
+}
+
+
+# fill in search params
+
+Search::setArtist($artist);
+Search::setTitle($title);
+Search::setAlbum($album);
+Search::setDateFrom($dateFrom);
+Search::setDateTo($dateTo);
+Search::setScope($scope);
+Search::setExact($exact);
+Search::setRandom($random);
+Search::searchFor($searchFor);
+
+# set inventories
+my @invs = split(',', $inv);
+if (scalar(@invs) == 0) {
+    @invs = keys %PLATTERS;
+}
+Search::setInv(@invs);
+
+# find the right file filters
+my @filters = split(',', $filter);
+my @allfilters = ();
+foreach (@filters) {
+    tr/a-z/A-Z/;
+    my @newfilter = eval("@".$_.";");
+    push (@allfilters, @newfilter);
+}
+    
+Search::setFilter(@allfilters);
+my $exclTypes = $QUERY->cookie('exclTypes');
+Search::setExclTypes($exclTypes);
+
+my @result = Search::go();
+
+# redirect when there is only one match
+if ($searchFor eq 'artist' && scalar(@result)==1) { # Exact match
+    $result[0] = substr( $result[0], rindex( $result[0] , $delim)+1); # chop off the abc if there
+    print "HTTP/1.0 302 Found\nLocation: artist.plx?name=".makeUnNice($result[0])."&exact=1\nContent-Type:text/html\n\n";
+    exit;
+}
+
+# redirect platter shortcuts
+if ($output eq 'redir') {
+    if (length($result[0]) == 0) { print "HTTP/1.0 404 Not Found\n\n"; exit; }
+    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = split($delim, $result[0]);
+    print "HTTP/1.0 302 Found\nLocation: http://".$PLATTERS{$platter}.$url."\nContent-Type:text/html\n\n";
+    exit;
+    
+}
+
+# artist searches must return an artistlist
+if ($searchFor eq 'artist') {
+    $output = 'artistlist';
+}
+    
+# if the output format was not specified, get the playlist format from the cookie
+if (length $output == 0) {
+    my $cookie = $QUERY->cookie("format");
+    if (length $cookie == 0) { # default to m3u
+        $cookie = 'extm3u';
+    }
+    $output = $cookie;
+}
+
+my $playlist = playlist->new($output);
+
+unless ($artist) { $artist = "Various" }
+if ($title && !$album) {$album = makeNice($title) }
+if ($random > 0) { $album = "Random ".$album }
+$playlist->header($artist, $album);
+
+foreach( @result) {
+    my @line = split($delim);
+    #print join(',', @line)."\n" if ($debug);
+    $playlist->track(@line);
+}
+
+print "HTTP/1.0 200 OK\nContent-type: ".$playlist->{mime}."\n";
+if ($playlist->{mime} ne "text/html" && $output =~ /^ext(.*)/) {
+	print "Content-Disposition: attachment; filename=\"$artist - $album.$1\";\n";
+	}
+print "\n";
+print $playlist->dump();
diff --git a/cgi-bin/searchplugin.plx b/cgi-bin/searchplugin.plx
new file mode 100644
index 0000000..01ff41f
--- /dev/null
+++ b/cgi-bin/searchplugin.plx
@@ -0,0 +1,25 @@
+# Use me
+#
+use CGI;
+use strict;
+use Globals;
+use Globals qw($CGIROOT);
+use Globals qw($APPNAME);
+
+my $WEBPAGE;
+
+# Start the page.
+#
+open TEMPLATE, "../templates/searchplugin.template" or die;
+
+while ( <TEMPLATE> )
+{
+  $WEBPAGE .= $_;
+}
+
+
+$WEBPAGE =~ s/%CGIROOT%/$CGIROOT/g;
+$WEBPAGE =~ s/%APPNAME%/$APPNAME/g;
+
+print $WEBPAGE;
+exit;
diff --git a/cgi-bin/servernews.plx b/cgi-bin/servernews.plx
new file mode 100644
index 0000000..d7ae9ce
--- /dev/null
+++ b/cgi-bin/servernews.plx
@@ -0,0 +1,72 @@
+#!c:/perl/bin/perl
+
+use CGI;
+use strict;
+use Globals;
+use Globals qw(%ALLPLATTERS);
+use Globals qw($bgcolour);
+
+my $QUERY         = CGI::new();
+my $exclude       = $QUERY->cookie("exclude");
+my $emptytime     = 0;
+my %servers;
+
+# Generate server exclusion form
+#
+my $server; my $totartists; my $tottracks;
+foreach $server ( keys %ALLPLATTERS )
+{
+    chomp $server;
+
+
+    my $newsfile = '../inventory/'.$server.".news";
+    my $thistime = $emptytime++;
+    my $thisnews = '<p><a href="search.plx?searchFor=artist&inv='.$server.'&output=artistlist"><b><i>'.$server.'</i></b></a><br>';
+    my ($tracks,$artists) = getPlatterStats($server);
+    $totartists+=$artists; $tottracks+=$tracks;
+    $thisnews .= '<small>'.$tracks.' tracks by '.$artists.' artists.<br>';
+    # open the news file
+    if (open NEWS, $newsfile) {
+        $thistime = <NEWS>; chomp $thistime;
+        $thisnews .= 'News last updated: '.localtime($thistime).' CET</small><br>';
+        while ( <NEWS> ) { $thisnews .= $_; }
+        close NEWS;
+    }
+    else {
+    # add to 'hidden' servers list
+        $thisnews .= 'No news found.</small><br>';
+    }
+    # check the box if it's a selected server
+    my $checked = 'checked';
+    if ($exclude =~ /$server/) { $checked = ''; }
+
+
+    # write the selection box
+    $thisnews.= '<br clear=left><small><input type="checkbox" name="'.$server.'" onClick="setServers()" '.$checked.'>Include <b><i>'.$server.'</i></b> in your selected servers.</small>';
+
+    $servers{ $thistime } = $thisnews;
+
+}
+
+my $serverlist = '<h5>Today the platter contains '.$tottracks.' tracks by '.$totartists.' artists</h5>';
+
+foreach (sort {$b <=> $a} keys %servers) {
+    $serverlist.= $servers{$_};
+}
+
+# get the template
+#
+my $WEBPAGE = openTemplate("servernews");
+
+# Put in what we know
+#
+$WEBPAGE =~ s/%SERVERS%/$serverlist/g;
+$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
+
+# Display the finished Web page
+#
+print $WEBPAGE;
+
+# Fin
+#
+exit;
diff --git a/cgi-bin/settings.plx b/cgi-bin/settings.plx
new file mode 100644
index 0000000..dffc8cb
--- /dev/null
+++ b/cgi-bin/settings.plx
@@ -0,0 +1,92 @@
+#!c:/perl/bin/perl
+
+use strict;
+use Globals;
+use CGI;
+use playlists::playlist;
+use Globals qw(%ALLPLATTERS @MUSIC @VIDEO @SHORTCUT $bgcolour);
+
+# Scripting variables
+#
+my $WEBPAGE      = openTemplate("settings");
+my $FORMATS;
+my $SERVERS;
+my $QUERY         = CGI::new();
+my $exclude       = $QUERY->cookie("exclude");
+my @AVAILABLE;
+
+# Playlist formats form
+opendir(DIR, "./playlists/");
+while (my $file = readdir(DIR)) {
+    if ($file =~ /^ext(.*)\.(pm)$/) {
+        push (@AVAILABLE, $1);
+        }
+    }
+closedir DIR;
+
+my $thisformat;
+my $desc;
+foreach ( @AVAILABLE ) {
+    if (/playlist/) { next }
+    $thisformat = $_;
+    $desc = playlist->new("ext$thisformat")->desc();
+    $FORMATS.="<tr valign=\"top\"><td><input type=\"radio\" name=\"playlist\" value=\"ext$thisformat\" ".
+        "onClick=\"setCookie('format', 'ext$thisformat'); \">".
+        "</td><td><b>$thisformat</b></td><td>$desc</td></tr>\n";
+}
+
+$WEBPAGE =~ s/%FORMATS%/$FORMATS/;
+$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
+
+# filetype form
+
+my $query         = CGI::new();
+my $currExts = $query->cookie('exclTypes');
+my $EXTS = createExtForm("Audio", $currExts, @MUSIC).createExtForm("Video", $currExts, @VIDEO).createExtForm("Shortcut", $currExts, @SHORTCUT);
+
+$WEBPAGE =~ s/%EXTS%/$EXTS/;
+
+# server exclusion form
+#
+
+foreach( keys %ALLPLATTERS )
+{
+  chomp;
+  my @THISSERVER = split;
+  my $CHECKED = 'checked';
+  if ($SERVERS =~ /"$THISSERVER[0]"/) { next;}
+  if ($exclude =~ /$THISSERVER[0]/)
+  {
+    $CHECKED = '';
+  }
+
+ $SERVERS.= '<input type="checkbox" name="'.$THISSERVER[0].'" onClick="setServers()" '.$CHECKED.'><a href="search.plx?searchFor=artist&inv='.$THISSERVER[0].
+  '&output=artistlist"><b><i>'.$THISSERVER[0].'</i></b></a><br>';
+}
+
+# Put in what we know
+#
+$WEBPAGE =~ s/%SERVERS%/$SERVERS/g;
+
+
+# Display the finished Web page
+#
+
+print $WEBPAGE;
+
+# Fin
+#
+close TEMPLATE;
+exit;
+
+sub createExtForm() {
+	my ($TITLE, $CURR, @EXTS) = @_;
+	my $FORM = "<br><strong>$TITLE:</strong>";
+	my $ext;
+	foreach $ext ( @EXTS ) {
+		my $CHECKED = ' checked';
+		$CHECKED = '' if ($CURR =~ /$ext,/);
+		$FORM.='&nbsp;<input type="checkbox" name="'.$ext.'" onClick="setExts()"'.$CHECKED."><b><i>$ext</i></b>&nbsp;\n";
+	}
+	return $FORM."\n";
+}
\ No newline at end of file
diff --git a/cgi-bin/trawler.plx b/cgi-bin/trawler.plx
new file mode 100644
index 0000000..9d755d2
--- /dev/null
+++ b/cgi-bin/trawler.plx
@@ -0,0 +1,393 @@
+#!c:/perl/bin/perl
+
+use strict;
+use LWP::UserAgent;
+require LWP;
+use URI;
+use LWP::RobotUA;
+require LWP::RobotUA;
+use Globals;
+use Globals qw(%ALLPLATTERS);
+use Globals qw($MINTRAWL);
+use Globals qw($delim);
+use Globals qw(@MUSIC);
+use Globals qw(@VIDEO);
+use Globals qw(@SHORTCUT);
+use Globals qw($debug);
+use Globals qw($bgcolour);
+
+use CGI qw(:standard);
+$|=1;
+
+my $QUERY     = CGI::new();
+my $NAMELIST    = $QUERY->param( "hosts" );
+my $NAME;
+my $HOST;
+my $BASE;
+my %ABCS;
+my $HEADER = new HTTP::Headers( 'Accept' => 'text/plain', 'User-Agent' => 'PlatterTwaartter/3.0.0', 'Dixon' => 'Am-Hammy-Twaart' );
+my $ROBOT_NAME = "PlatterTwaartter";
+my $ROBOT_OWNER = "chris.dixon\@hammytwaart.com";
+my $USERAGENT;
+my $RECURSE=0; # Stop weird parent links setting us up the bomb
+my $LINECOUNT = 0;
+my $QUICKEXT = $delim.join($delim, (@MUSIC, @VIDEO, @SHORTCUT)).$delim;
+# Print the header
+#
+my $TEMPLATE = openTemplate ("trawl");
+$TEMPLATE =~ s/%MINTRAWL%/$MINTRAWL/g;
+$TEMPLATE =~ s/%BGCOLOUR%/$bgcolour/g;
+print $TEMPLATE;
+
+if ( defined $NAMELIST ) {
+
+  # Lock the inventory against meddling by pesky kids
+  if (-e "../inventory/trawl.lock") {
+    print '<p>The Distroplat inventory is currently locked by another user. Please <a href="javascript:location.reload()">try again</a> in a bit. Bye.</p>';
+    exit(0);
+    }
+
+  open (LOCK, ">../inventory/trawl.lock");
+  close(LOCK);
+
+  # Load the ABCs
+
+  %ABCS = getABCs();
+
+  #Set up the user agent
+
+  $USERAGENT = new LWP::RobotUA $ROBOT_NAME, $ROBOT_OWNER;
+  # go as fast as you can
+  $USERAGENT->delay(0);
+  $USERAGENT->timeout(15); # seconds - doesn't seem to work though
+
+  # Deal with each server in turn
+  my @SPLITNAME = split(',', $NAMELIST);
+
+  print "<h2>Attempting to trawl ".scalar(@SPLITNAME)." servers</h2>\n";
+
+  foreach $NAME (@SPLITNAME) {
+
+    print "<h4>Trawling $NAME  . . </h4>";
+    open (INVENTORY, ">../inventory/$NAME.inv");
+    open (ARTISTS, ">../inventory/$NAME.artist");
+    # Find the host
+    my $found=0;
+    my @RESULT;
+    foreach $HOST (keys %ALLPLATTERS) {
+      if ($HOST eq $NAME) {
+        $found = 1;
+
+        $BASE = $ALLPLATTERS{$HOST};
+
+        print "Trawling ".$NAME."'s server @ http://$BASE\n";
+        print INVENTORY "http://$BASE\n";
+        my $TIME = time;
+        @RESULT = parse_page( 'http://'.$BASE.'/', $NAME);
+
+        my $INVENTORY = shift (@RESULT);
+        if ( length $INVENTORY > 0 ) {
+          print INVENTORY $INVENTORY;
+          my $count = shift @RESULT;
+
+          # remove duplicate artists
+          @RESULT = sort @RESULT;
+          my $i=0; my $last;
+          while ($i<=$#RESULT) {
+              if ($last eq $RESULT[$i]) {
+                  splice @RESULT, $i, 1;
+              }
+              else {
+                  $last = $RESULT[$i];
+                  $i++;
+              }
+          }
+
+          print ARTISTS join("\n", @RESULT)."\n";
+          print "<p id=\"$NAME\">Indexed $count tracks in ".(time-$TIME)." seconds.<script>document.getElementById(\"$NAME\").scrollIntoView(false);</script>";
+
+        }
+      }
+    }
+    close INVENTORY;
+    close ARTISTS;
+    unless ($found) {
+      print "<br>Host $NAME is not registered platter host.";
+    }
+  }
+
+# Re-write the abcs file
+
+open ( ABC, ">../inventory/abcs.txt" );
+my @abckeys = sort {uc($a) cmp uc($b)} keys %ABCS;
+my $key;
+foreach $key (@abckeys) {
+    print ABC $key.$delim.$ABCS{$key}."\n";
+    }
+close ABC;
+
+print "<h4 id=\"end\">All done</h4><script>document.getElementById(\"end\").scrollIntoView(false);</script></body></html>";
+unlink "../inventory/trawl.lock";
+}
+else
+{
+  # Generate form
+  #
+  print q{ <form name="twatsource">
+          <table border=0 cellpadding=1 cellspacing=0>
+            <tr>
+              <td>&nbsp;</td>
+              <td><b>User</b></td>
+              <td><b>Last Trawled</b></td>
+            </tr>
+            <tr><td colspan=3><hr size=1 color=white></td></tr>
+          };
+
+  my %TIMES;
+
+  foreach $HOST (keys %ALLPLATTERS)
+  {
+    my $HOSTFILE = '../inventory/'.$HOST.".inv";
+    my $thistime = 0;
+
+    if (-e $HOSTFILE)
+    {
+      my @stats = stat(_);
+      $thistime = $stats[9];
+    }
+
+    $TIMES{ $thistime.";".$HOST } .= $ALLPLATTERS{$HOST}."<br>";
+  }
+
+  my $TIME;
+  my $LASTMOD;
+
+  foreach $TIME (sort {$b <=> $a} keys %TIMES)
+  {
+    my ($THISTIME, $HOST) = split (/;/, $TIME);
+    my $URL = $TIMES{$TIME};
+    my $TRAWLABLE = 1;
+
+    if ($TIME > 0)
+    {
+      $LASTMOD = localtime($TIME)." CET";
+      if (time - $TIME < (60*$MINTRAWL))
+      {
+        $TRAWLABLE = 0;
+      }
+    }
+    else
+    {
+      $LASTMOD = "Not trawled yet";
+    }
+
+    print "<tr><td>";
+
+    if ($TRAWLABLE)
+    {
+      print "<input type=\"checkbox\" name=\"".$HOST."\">";
+    }
+    else
+    {
+      print "&nbsp;";
+    }
+  print "</td>";
+  print "<td nowrap valign=bottom><b>".$HOST."</b></td>";
+  print "<td nowrap valign=bottom>&nbsp;<small>".$LASTMOD."</small></td></tr>\n";
+
+}
+
+print qq{  </tr>
+           <tr><td colspan=3><hr size=1 color=white></td></tr></table>
+         </form>
+         <form><input type="button" onClick="twat()" value="Trawl"></form>
+      </body>
+      </html>
+      };
+
+}
+exit 0;
+
+
+
+# sub to recursively trawl http directories for A tags
+# should store all the recognised files it can find.
+#
+# should be called with 1 parameter
+#  - path
+#
+sub parse_page
+{
+     my($URL, $NAME) = @_;
+     my $INVENTORY = "";
+     my @ARTISTS = ();
+     my $localcount = 0;
+     $RECURSE++;
+
+     if ($RECURSE < 3) {
+        my $FOLDER;
+        if ($RECURSE == 1) {
+             $FOLDER = $NAME."'s platter";
+         }
+         else {
+             $URL =~ /.*\/([^\/]+)\/*$/;
+             $FOLDER = makeNice($1);
+         }
+         print "<br><span id=\"line".$LINECOUNT."\">Indexing <b>".$FOLDER.":</b></span><script>document.getElementById(\"line".$LINECOUNT++."\").scrollIntoView(false);</script>\n";
+     }
+
+
+     #request page
+     my $REQUEST = HTTP::Request->new('GET', $URL , $HEADER);
+     my $RESPONSE = $USERAGENT->request($REQUEST);
+     #if response is successful
+     if ($RESPONSE->is_success)
+     {
+          #parse page that is returned
+      require HTML::Parse;
+      my $HTML = HTML::Parse::parse_html($RESPONSE->content);
+      my $base = $RESPONSE->base;
+      for ( @{ $HTML->extract_links } )
+      {
+           my($LINK, $elem) = @$_;
+           my $TAG = $elem->tag;
+
+           my $LINK = URI->new($LINK)->abs($base)->as_string;
+           #$LINK = makeUnNice($LINK);
+           $LINK =~ s/%25/%/g;
+           my $OUTPUT = $LINK;
+           $OUTPUT =~ s/(.*?)$BASE//;
+           my $EXT;
+           if ($OUTPUT =~ /\.(\w*)$/) { $EXT = $1;}
+
+           if ($TAG =~ /[Aa]/ && $URL !~ /\Q$LINK\E\/?.*/ && $LINK !~ /\?.*/)
+           {
+          		if ($debug) { print "<br>$LINK\n" }
+                if (
+                     $QUICKEXT =~ /$delim$EXT$delim/i
+                   ||
+                     $OUTPUT =~ /(artist|cover)[^\/]*\.(jpg|gif|png)$/i
+                   ||
+                     $OUTPUT =~ /.+\/info\.txt$/i
+                   )
+                {
+                     #if the file is recognised then
+
+                     #add link to inventory
+                     my @entry = makeInvLine($OUTPUT);
+
+                     $INVENTORY .= join($delim, @entry)."$delim$OUTPUT\n";
+                     push (@ARTISTS, $entry[0]) if $entry[0];
+                     push (@ARTISTS, $entry[1]) if $entry[1];
+
+                     if ($QUICKEXT =~ /$delim$EXT$delim/i) {$localcount++; }
+                }
+                elsif ($OUTPUT =~ /.abc$/i)
+                {
+                     if ($OUTPUT =~ /([^\/]+)\/([^\/]+\.abc)$/)
+                     {
+                       my $PATH = makeNice($1); my $ARTIST = makeNice($2);
+                       $ABCS{$PATH} = $ARTIST;
+                     }
+                }
+                elsif ($OUTPUT =~ /^\/info\.txt$/i)
+                {    # news page
+                    my $NEWSREQUEST = HTTP::Request->new('GET', $LINK, $HEADER);
+                    my $NEWSRESPONSE = $USERAGENT->request($NEWSREQUEST);
+                    if ($NEWSRESPONSE->is_success)
+                    {
+                        my $lastmod = $NEWSRESPONSE->headers()->last_modified;
+                        open(NEWS, ">../inventory/$NAME.news");
+                        print NEWS $lastmod."\n";
+                        print NEWS $NEWSRESPONSE->content;
+                        close(NEWS);
+                        print "<br>Fetched news page from $NAME";
+                    }
+                    else
+                    {
+                        print '<br><b  style="color: red">Code '.$RESPONSE->code()." error  fetching news page from $NAME: ".$RESPONSE->message().'</b>';
+                    }
+                }
+                else
+                {
+                  #print "<br>$LINK\n";
+                  if ($LINK =~ /\Q$URL\E/i # previous link is a substring of the new one
+                  && !($LINK=~ /\.\w{3}$/)) # do not retrieve anything with a dot and three chars at the end
+                  {
+           if ($RECURSE < 5) # limit navigation to 5 folders deep - and that's taking the piss
+             {
+               my @CHILD = parse_page($LINK);
+               $INVENTORY.= shift(@CHILD);
+               $localcount += shift(@CHILD);
+               push(@ARTISTS, @CHILD);
+             }
+           else
+             {
+               print "<h3>Recursion limit hit, will not trawl child folders.<br>".
+               "Please check the format of your platter and contact Platter Support</h3>";
+             }
+
+                  }
+                }
+           }
+          }
+     }
+     else {
+        print '<br><b  style="color: red">Code '.$RESPONSE->code().' error indexing '.makeNice($URL).': '.$RESPONSE->message().'</b>';     }
+
+     if ($RECURSE == 2) {
+        print " $localcount tracks found.";
+        }
+     $RECURSE--;
+     return ($INVENTORY, $localcount, @ARTISTS);
+}
+
+sub makeInvLine( @_ ) {
+    my @items = split('/', $_[0]);
+    shift @items; # remove leading slash
+
+    # get artist folder
+    my $folder;
+    if ($#items > 0) {
+        $folder = shift @items;
+        $folder =~ s/^(The%20|)(.*?)(,%20The|)$/$2/i;
+    }
+
+    # get track
+
+    my $track = pop(@items);
+    
+    # square brackets weren't seen for 6 years, but when they arrived they broke it
+    $track =~ s/\[/%5B/g;
+    $track =~ s/\]/%5D/g;
+
+
+    # get track artist
+    my $trackartist;
+    if ($track =~ /^(\d{2}%20-%20|)(The%20|)([^\/]*?)(,%20The|)%20-%20/i
+        && !($3 =~ /^\d{2}$/)
+        && length $3 > 0) {
+        $trackartist = $3;
+        $track =~ s/(The%20|)$trackartist(,%20The|)%20\-%20(.*?)/$3/;
+    }
+
+
+    # get album
+    my $album; my $year;
+    if ($#items > -1) {
+        $album = join('/', @items);
+
+        # get year
+        if ($album =~ /%20(\(|%28)(\d{4})(\)|%29)(\/|$)/) {
+            $year = $2;
+        }
+    }
+
+    return (
+        makeNice($folder),
+        makeNice($trackartist),
+        makeNice($album),
+        $year,
+        makeNice($track));
+
+}
diff --git a/data/distroplat.conf.example b/data/distroplat.conf.example
new file mode 100644
index 0000000..6b2b529
--- /dev/null
+++ b/data/distroplat.conf.example
@@ -0,0 +1,50 @@
+# Distroplat configuration file
+
+# Set this to your server hostname
+cgiroot = localhost
+appname = distroplat
+
+# background colour of your platter.
+colour = 5959AB
+# original green eye death
+# colour = 00c000
+
+# number of minutes between trawls of a server
+mintrawl = 0
+
+
+# links to various rocketman media. later versions may crash catastrophically if these are not defined
+audioRocketman = http://localhost/platter/William%20Shatner%20-%20Rocketman.mp3
+videoRocketman = http://localhost/platter/William%20Shatner%20-%20Rocketman.mpg
+
+# uncomment the line below to get debug messages, and output all pages as text/plain
+# debug
+
+# all music filetypes
+[music]
+mp3
+wma
+wav
+ogg
+aac
+ram
+rm
+
+# video filetypes
+[video]
+mpg
+mpeg
+rv
+qt
+mov
+avi
+
+# and the shortcut
+[shortcut]
+psc
+
+# special folders not counted as artists
+[customfolders]
+Compilations
+Soundtracks
+Theme Tunes
diff --git a/data/news.txt.example b/data/news.txt.example
new file mode 100644
index 0000000..493aba3
--- /dev/null
+++ b/data/news.txt.example
@@ -0,0 +1,6 @@
+Caption under picture . . .
+[News Headline]
+Some news about<br>
+your platter
+[More News]
+Some more.
diff --git a/data/servers.txt.example b/data/servers.txt.example
new file mode 100644
index 0000000..87d1e11
--- /dev/null
+++ b/data/servers.txt.example
@@ -0,0 +1,2 @@
+Test localhost/platter
+
diff --git a/data/users.txt.example b/data/users.txt.example
new file mode 100644
index 0000000..1c791fb
--- /dev/null
+++ b/data/users.txt.example
@@ -0,0 +1 @@
+localhost;You;10.0.0.1
diff --git a/html/emptyAlbum.html b/html/emptyAlbum.html
new file mode 100644
index 0000000..9c878d9
--- /dev/null
+++ b/html/emptyAlbum.html
@@ -0,0 +1,8 @@
+<html>
+<head>
+    <link rel="stylesheet" href="/platdoc/platter.css">
+</head>
+<body background="/platdoc/img/bars.png" >
+    <p><i>No artist info available</i>
+</body>
+</html>
\ No newline at end of file
diff --git a/html/img/audioRocketman.gif b/html/img/audioRocketman.gif
new file mode 100644
index 0000000..71da3a3
--- /dev/null
+++ b/html/img/audioRocketman.gif
diff --git a/html/img/banner.png b/html/img/banner.png
new file mode 100644
index 0000000..fc8fef4
--- /dev/null
+++ b/html/img/banner.png
diff --git a/html/img/bars.png b/html/img/bars.png
new file mode 100644
index 0000000..ddd56c4
--- /dev/null
+++ b/html/img/bars.png
diff --git a/html/img/black.png b/html/img/black.png
new file mode 100644
index 0000000..88c9319
--- /dev/null
+++ b/html/img/black.png
diff --git a/html/img/editbutton.png b/html/img/editbutton.png
new file mode 100644
index 0000000..795a948
--- /dev/null
+++ b/html/img/editbutton.png
diff --git a/html/img/filebutton_s.png b/html/img/filebutton_s.png
new file mode 100644
index 0000000..eaeee8d
--- /dev/null
+++ b/html/img/filebutton_s.png
diff --git a/html/img/infobutton.png b/html/img/infobutton.png
new file mode 100644
index 0000000..2a6bb94
--- /dev/null
+++ b/html/img/infobutton.png
diff --git a/html/img/linkbutton.png b/html/img/linkbutton.png
new file mode 100644
index 0000000..45de42d
--- /dev/null
+++ b/html/img/linkbutton.png
diff --git a/html/img/logo.gif b/html/img/logo.gif
new file mode 100644
index 0000000..c108fad
--- /dev/null
+++ b/html/img/logo.gif
diff --git a/html/img/playbutton.png b/html/img/playbutton.png
new file mode 100644
index 0000000..f72fb89
--- /dev/null
+++ b/html/img/playbutton.png
diff --git a/html/img/playbutton_s.png b/html/img/playbutton_s.png
new file mode 100644
index 0000000..2222402
--- /dev/null
+++ b/html/img/playbutton_s.png
diff --git a/html/img/searchplugin.png b/html/img/searchplugin.png
new file mode 100644
index 0000000..0d62658
--- /dev/null
+++ b/html/img/searchplugin.png
diff --git a/html/img/shatner.gif b/html/img/shatner.gif
new file mode 100644
index 0000000..6175855
--- /dev/null
+++ b/html/img/shatner.gif
diff --git a/html/img/videoRocketman.gif b/html/img/videoRocketman.gif
new file mode 100644
index 0000000..ff3c388
--- /dev/null
+++ b/html/img/videoRocketman.gif
diff --git a/html/loading.html b/html/loading.html
new file mode 100644
index 0000000..722e30d
--- /dev/null
+++ b/html/loading.html
@@ -0,0 +1,8 @@
+<html>
+<head>
+    <link rel="stylesheet" href="/platdoc/platter.css">
+</head>
+<body background="/platdoc/img/bars.png">
+    <p><i>Please wait, loading . . .</i>
+</body>
+</html>
\ No newline at end of file
diff --git a/html/platter.css b/html/platter.css
new file mode 100644
index 0000000..a7c2255
--- /dev/null
+++ b/html/platter.css
@@ -0,0 +1,53 @@
+BODY {
+  color: white;
+  font-family: helvetica;
+  font-size: smaller;
+}
+FORM,H3 {
+  margin:0;
+}
+TD,TH {
+  font-family: helvetica;
+  font-size: smaller;
+}
+INPUT,SELECT {
+  font-family: helvetica;
+}
+SMALL
+{
+  font-size: 80%;
+}
+A {
+  color: #ffff00;
+  text-decoration:none;
+}
+A:visited {
+  color: #ffff00;
+  text-decoration:none;
+}
+A:hover {
+  color: #ffffff;
+}
+A:photolink {
+  color: #000000;  
+}
+
+.title {
+  font-size: 140%;
+  font-weight: bold;
+}
+
+.hasalbum {
+  font-weight: bold;
+}
+.noalbum {
+  font-weight: normal;
+}
+
+.heading, A:visited.heading {
+  color: white;
+}
+
+A:hover.heading {
+  color: lightblue;
+}
\ No newline at end of file
diff --git a/templates/album.template b/templates/album.template
new file mode 100644
index 0000000..f623c7e
--- /dev/null
+++ b/templates/album.template
@@ -0,0 +1,58 @@
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <script language="javascript">
+  <!--
+    var sources = new Array( %TOTALCOVERS% );
+    var locations = new Array( %TOTALCOVERS% );
+    %SOURCES%
+    %LOCATIONS%
+
+    var coverIndex = Math.round(Math.random()*(locations.length-1));
+
+    function nextCover() {
+        var cover = document.getElementById("cover");        
+        var coverno = document.getElementById("coverno");   
+        var coversource = document.getElementById("coversource");   
+        cover.src = locations[coverIndex];
+        coverno.firstChild.data = coverIndex+1;
+        coversource.firstChild.data = sources[coverIndex];
+        coverIndex++;
+        if (coverIndex >= locations.length) coverIndex = 0;
+    }
+    //-->
+  </script>
+</head>
+
+<body background="/platdoc/img/bars.png" topmargin=0 leftmargin=0 rightmargin=0 >
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+    <table>
+      <tr valign="top">
+       <td height="100%">%PLAYBUTTON%%INFOBUTTON%</td>
+       <td width="100%">&nbsp;%HTMLALBUM%%FOREIGN%%YEAR%</td></tr></table>
+    <table width="100%">
+      <tr valign="top">
+        <td>
+          <ol>%TRACKS%</ol>
+        </td>
+        <td align="right" rowspan=2>
+          %COVER%
+        </td>
+      <tr valign="bottom">
+       <td>
+         <small>%HOST%</small>
+       </td>
+      </tr>
+      <tr>
+        <td colspan=2>
+          <hr size=1 align=left color=white>
+          <a name="info" style="color: white"><i class="title">Info</i>
+          %INFO%
+        </td>
+      </tr>
+    </table>
+</body>
+</html>
diff --git a/templates/albumnarrow.template b/templates/albumnarrow.template
new file mode 100644
index 0000000..9c9e378
--- /dev/null
+++ b/templates/albumnarrow.template
@@ -0,0 +1,46 @@
+<html>
+<head>
+    <link rel="stylesheet" href="/platdoc/platter.css">
+    <script language="javascript">
+    <!--
+    var sources = new Array(%TOTALCOVERS%);
+    var locations = new Array(%TOTALCOVERS%);
+    %SOURCES%
+    %LOCATIONS%
+
+    var coverIndex = Math.round(Math.random()*(locations.length-1));
+
+    function nextCover() {
+        var cover = document.getElementById("cover");        
+        var coverno = document.getElementById("coverno");   
+        var coversource = document.getElementById("coversource");   
+        cover.src = locations[coverIndex];
+        coverno.firstChild.data = coverIndex+1;
+        coversource.firstChild.data = sources[coverIndex];
+        coverIndex++;
+        if (coverIndex >= locations.length) coverIndex = 0;
+    }
+    //-->
+    </script>
+</head>
+<body background="/platdoc/img/bars.png" topmargin=1 leftmargin=1 rightmargin=1>
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+
+<table>
+  <tr valign="top">
+    <td height="100%">%PLAYBUTTON%%INFOBUTTON%</td>
+    <td width="100%">&nbsp;%HTMLALBUM%%FOREIGN%%YEAR%</td>
+  </tr>
+</table>
+<table align=center><tr><td>%COVER%</td></tr></table>
+<ol>%TRACKS%</ol>
+<small>%HOST%</small>
+<hr size=1 color=white width=66%>
+<a name="info" style="color: white"><i class="title">Info</i>
+%INFO%
+
+</body>
+</html>
diff --git a/templates/artist.template b/templates/artist.template
new file mode 100644
index 0000000..a5adf18
--- /dev/null
+++ b/templates/artist.template
@@ -0,0 +1,59 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <meta value="platter" content="lots of lovely music and it's all free!">
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - %ARTIST%</title>
+  <meta value="dixon" content="am hammy twaart">
+  <script language="javascript">
+  <!--
+    function switchAlbum(newURL) {
+        if (newURL.length > 0)
+            album.location.href=newURL;
+    }
+
+    function init() {
+
+        top.document.title = '%JSARTIST% - distroplat';
+        if (album.location.href.indexOf('loading.html') > 0)
+            album.location.replace('%INIT%')
+    }
+
+    //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" topmargin=0 leftmargin=0 rightmargin=0 onLoad="init()">
+<table height="100%" width="100%">
+  <tr valign="top">
+    <td width="100%">
+      <script language="javascript">
+        if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+      </script>
+
+      <h2><a href="front.plx?artist=%URLARTIST%" class="heading" target="_top" title="Platter link to %ARTIST%">%ARTIST%</a></h2>
+    </td>
+    <td>%ABC%</td>
+  </tr>
+  <tr valign="bottom">
+    <td><small>Albums:</small><br>%SECTIONS%<small><i>%COUNT%</i></small>
+    </td>
+    <td>
+        <small>Random&nbsp;Selection:&nbsp;<a href="search.plx?searchFor=track&random=10&filter=music&artist=%URLARTIST%">10</a>,&nbsp;<a href="search.plx?searchFor=track&random=20&filter=music&artist=%URLARTIST%">20</a>,&nbsp;<a href="search.plx?searchFor=track&random=30&filter=music&artist=%URLARTIST%">30</a>
+    </td>
+
+  </tr>
+  <tr valign="bottom">
+    <td width="100%" height="100%" colspan=2>
+      <iframe src="/platdoc/loading.html" name="album" id="album" width="100%" height="100%" frameborder="0"></iframe>
+    </td>
+  </tr>
+</table>
+
+</body>
+</html>
+
+
diff --git a/templates/artistnarrow.template b/templates/artistnarrow.template
new file mode 100644
index 0000000..6853a5e
--- /dev/null
+++ b/templates/artistnarrow.template
@@ -0,0 +1,56 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <meta value="platter" content="lots of lovely music and it's all free!">
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <meta value="dixon" content="am hammy twaart">
+  <script language="javascript">
+  <!--
+    function switchAlbum(newURL) {
+        if (newURL.length > 0) 
+            album.location.href=newURL;
+    }
+    
+    top.document.title = 'distroplat - %JSARTIST%';
+
+    function init() {
+    
+        top.document.title = 'distroplat - %JSARTIST%';
+        if (album.location.href.indexOf('loading.html') > 0)
+            album.location.replace('%INIT%')
+    }
+    //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" topmargin=0 leftmargin=0 rightmargin=0 onLoad="init()">
+<table height="100%" width="100%">
+  <tr valign="top">
+    <td>
+      <script language="javascript">
+        if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+      </script>
+
+      <h2>%ARTIST%</h2>
+      <small><i>%COUNT%</i> - Random&nbsp;Selection:&nbsp;<a href="search.plx?searchFor=track&random=10&filter=music&artist=%URLARTIST%">10</a>,&nbsp;<a href="search.plx?searchFor=track&random=10&filter=music&artist=%URLARTIST%">20</a>,&nbsp;<a href="search.plx?searchFor=track&random=10&filter=music&artist=%URLARTIST%">30</a>
+    </td>
+  </tr>    
+  <tr valign="bottom">
+    <td>
+      %SECTIONS%
+    </td>
+  </tr>
+  <tr valign="bottom">
+    <td width="100%" height="100%" colspan=2>
+     <iframe src="/platdoc/loading.html" name="album" id="album" width="100%" height="100%" frameborder="0"></iframe>
+    </td>
+  </tr>
+</table>
+
+</body>
+</html>
+
+
diff --git a/templates/error.template b/templates/error.template
new file mode 100644
index 0000000..c5eb805
--- /dev/null
+++ b/templates/error.template
@@ -0,0 +1,17 @@
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+</head>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png">
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+<h3>Invalid Renderer: '%NAME%'</h3>
+<p>Distroplat either could find, or couldn't create the track renderer you were looking for. If you were expecting a playlist, please check your selection on the <a href="formats.plx">Formats page</a>. Note: The playlist cookie from distroplat v2 is not compatible with v3. You will just have to quickly check back and choose again.
+<p>Otherwise, someone has been messing about with the '%NAME%' template and it is not working. Shout loudly until someone fixes it.
+<p>
+
+</body>
+</html>
diff --git a/templates/front.template b/templates/front.template
new file mode 100644
index 0000000..c66249f
--- /dev/null
+++ b/templates/front.template
@@ -0,0 +1,216 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <meta value="platter" content="lots of lovely music and it's all free!">
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <meta value="dixon" content="am hammy twaart">
+  <link rel="search" type="application/opensearchdescription+xml" href="searchplugin.plx" title="Distroplat" />
+  <link rel="icon" href="/platdoc/img/searchplugin.png" type="image/png" />
+  <link rel="shortcut icon" href="/platdoc/img/searchplugin.png" type="image/png" />
+  <title>distroplat</title>  
+  <script language="JavaScript">
+  <!--
+    function setCookie( name, value )
+    {
+      date = new Date();
+     
+      date.setFullYear( date.getFullYear() + 1 );
+      newCookie = name + "=" + value + ";path=/; expires=" + date.toGMTString();
+      document.cookie = newCookie;
+    }
+    //-->
+  </script>  
+</head>
+
+<body bgcolor="#%BGCOLOUR%">
+
+<table border=0 cellpadding=2 cellspacing=0 width=100% height=100%>
+  <tr>
+    <td valign=top>
+      <img src="/platdoc/img/logo.gif">
+      <small><b>Headlines:</b>
+      %HEADLINES%
+      </small>
+      <h4>Welcome</h4>
+      <ol>
+        <li><a href="news.plx" target="%TARGET%"><b>Platter News</b></a></li>
+        <li><a href="servernews.plx" target="%TARGET%"><b>Server News</b></a></li>
+        <li><a href="settings.plx" target="%TARGET%"><b>Settings</b></a></li>
+        <li><a href="trawler.plx" target="%TARGET%"><b>Content Trawler</b></a></li>
+      </ol>
+    </td>
+    <td rowspan=3>&nbsp;</td>
+    <td rowspan=3 width="100%">
+      %IFRAME%
+    </td>
+  </tr>
+  <tr>
+    <td height="100%" >
+      <table border=0 cellpadding=2 cellspacing=0 width=100%>
+        <tr valign="top">
+          <td>
+            <h3>Search</h3>
+          </td>
+          <td align="right" valign="bottom">
+            <small><a href="javascript:showSimple()">Simple</a>&nbsp;-&nbsp;<a href="javascript:showAdvanced()">Advanced</a></small>
+          </td>
+        </tr>
+      </table>
+      <table border=0 cellpadding=2 cellspacing=0 align=center>
+        <tr>
+          <td>
+            <form method="get" action="search.plx" target="%TARGET%" name="advanced" style="display:none">
+            <table>
+              <tr title="Enter all or part of an artist's name here">
+                <td>Artist: </td>
+                <td colspan=2><input type="text" name="artist" size=20></td>
+              </tr>
+              <tr title="Enter all or part of a track title here">
+                <td>Title: </td>
+                <td colspan=2><input type="text" name="title" size=20></td>
+              </tr>
+              <tr title="Enter all or part of an album title here">
+                <td>Album: </td>
+                <td colspan=2><input type="text" name="album" size=20></td>
+              </tr>              
+              <tr title="Distroplat can narrow searches to a date range, but only for albums that the host has dated">
+                <td>Date Range: </td>
+                <td colspan=2><input type="text" name="dateFrom" size=4 value="1900">&nbsp;-&nbsp;<input type="text" name="dateTo" size=4 value="2525"></td>
+              </tr>
+              <tr title="Albums only searches from tracks from albums, Misc only everything else">
+                <td>Scope: </td>
+                <td colspan=2><input type="radio" name="scope" value="all" checked>All&nbsp;&nbsp;<input type="radio" name="scope" value="album">Albums&nbsp;&nbsp;<input type="radio" name="scope" value="misc">Misc
+              </tr>
+              <tr title="Choose whether you want a list of matching tracks or artists">
+                <td>Search for: </td>
+                <td colspan=2><input type="radio" name="searchFor" value="artist" checked>Artists&nbsp;&nbsp;<input type="radio" name="searchFor" value="track">Tracks</td>
+              </tr>       
+              <tr title="Choose whether you want your results returned as a web page, or straight to a playlist">
+                <td>Results: </td>
+                <td colspan=2><input type="radio" name="output" value="tracks" checked>Page&nbsp;&nbsp;<input type="radio" name="output" value="">Playlist</td>
+              </tr>              
+              <tr title="Setting a number here will take that many random selections from your search results">
+                <td>Random: </td>
+                <td><select name="random">
+                      <option value="0">
+                      <option>1                      
+                      <option>10
+                      <option>20
+                      <option>30
+                      </select>                
+                </td>
+                <td align="right" title="Search!">
+                  <small>
+                    <input type="hidden" name="filter" value="music,video,shortcut">
+                    <input type="reset" value=" New ">&nbsp;<input type="submit" value="  Go  ">
+                  </small>
+                </td>
+              </tr>
+            </table>
+            </form>
+            <form method="get" action="search.plx" target="%TARGET%" name="simple">
+            <table>
+              <tr title="Enter all or part of an artist's name here">
+                <td>Artist: </td>
+                <td><input type="text" name="artist" size=20></td>
+              </tr>
+              <tr title="Enter all or part of a track title here">
+                <td>Title: </td>
+                <td><input type="text" name="title" size=20></td>
+              </tr>
+              <tr>
+                <td colspan=2 align="right" title="Search!">
+                  <small>
+                    <input type="hidden" name="filter" value="music,video,shortcut">
+                    <input type="hidden" name="scope" value="all">
+                    <input type="hidden" name="output" value="tracks">
+                    <input type="hidden" name="searchFor" value="artist" checked>
+                    <input type="reset" value=" New ">&nbsp;<input type="submit" value="  Go  " onClick="submitSimple()">
+                  </small>
+                </td>
+              </tr>
+            </table>
+            
+            <b>Popular Searches</b><br>
+
+            &nbsp;&#149;&nbsp;<a href="search.plx?searchFor=artist&filter=music,video,shortcut&output=artistlist" target="%TARGET%">Full Directory</a><br>
+            &nbsp;&#149;&nbsp;<a href="search.plx?searchFor=artist&filter=music,video,shortcut&scope=album&output=artistlist" target="%TARGET%">Album Directory</a><br>
+            &nbsp;&#149;&nbsp;<a href="search.plx?searchFor=artist&random=1&filter=music,video,shortcut&output=artistlist" target="%TARGET%">Random Artist</a><br>
+            &nbsp;&#149;&nbsp;<a href="search.plx?searchFor=artist&random=1&filter=music,video,shortcut&scope=album&output=artistlist" target="%TARGET%">Random Artist <small>excluding misc</small></a><br>
+            Random Music Playlist:
+            <a href="search.plx?searchFor=track&random=10&filter=music">10</a>, 
+            <a href="search.plx?searchFor=track&random=20&filter=music">20</a>, 
+            <a href="search.plx?searchFor=track&random=30&filter=music">30</a>
+            </p>
+            </form>                
+           </td>
+        </tr>
+      </table>
+    </td>
+  </tr>   
+  <tr>
+    <td valign=bottom>
+      <small>%CUSTOM%
+      <hr width=90% size=1 color=white align=left>
+      Version: <b>%VERSION%</b><br>
+      User: <b>%USER%</b><br>
+      <a href="javascript:setCookie('target', '_top');location.reload();">Mobile</a></small>
+    </td>
+  </tr>
+</table>
+
+<script language="javascript">
+  <!--
+    
+  ourCookies = document.cookie.split("; ");
+
+  for (var i=0; i < ourCookies.length; i++)
+  { 
+    var ourCrumb = ourCookies[i].split("=");
+
+    if (ourCrumb.length == 2)
+    {
+      if (ourCrumb[0] == 'searchtype')
+      { 
+        searchtype = ourCrumb[1];
+        if (searchtype == 'advanced') showAdvanced();
+      }
+    }
+  }
+  
+  function setCookie( name, value )
+  {
+    date = new Date();
+   
+    date.setFullYear( date.getFullYear() + 1 );
+    newCookie = name + "=" + value + ";path=/; expires=" + date.toGMTString();
+    document.cookie = newCookie;
+  }
+
+  function showSimple() {
+      document.forms[0].style.display="none";
+      document.forms[1].style.display="block";
+      setCookie('searchtype', 'simple');
+  }
+  
+  function submitSimple() {
+    if (document.forms[1].title.value.length > 0)
+        document.forms[1].searchFor.value = 'track';
+    else
+        document.forms[1].searchFor.value = 'artist';
+    document.forms[1].submit();
+  }
+
+  function showAdvanced() {
+      document.forms[1].style.display="none";
+      document.forms[0].style.display="block";
+      setCookie('searchtype', 'advanced');
+  }
+
+  //-->
+  </script>
+
+</body>
+</html>
diff --git a/templates/hosts.template b/templates/hosts.template
new file mode 100644
index 0000000..9d70fa1
--- /dev/null
+++ b/templates/hosts.template
@@ -0,0 +1,38 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - Hosts & Users</title>    
+  <script language="javascript">
+  <!--
+    top.document.title = 'Hosts & Users - distroplat';
+  //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png">
+<h3>Hosts &amp; Users</h3>
+
+<p>
+The following people are those who have been granted access by
+<b>Adminipotato</b>. Also listed are their hostnames and IP addresses
+for reference/firewall configuration purposes. Anyone else who attempts
+to access your platter is a naughty hacker.
+</p>
+
+<table border=0 cellpadding=2 cellspacing=0 width=100%>
+  <tr>
+    <td><b>User name</b></td>
+    <td><b>Hostname</b></td>
+    <td><b>IP address</b></td>
+  </tr>
+  <tr>
+    <td colspan=3><hr color=white size=1></td>
+  </tr>
+%USERLIST%
+</table>
+
+</body>
+</html>
diff --git a/templates/news.template b/templates/news.template
new file mode 100644
index 0000000..19f5ed3
--- /dev/null
+++ b/templates/news.template
@@ -0,0 +1,86 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - News</title>
+  <script language="JavaScript">
+      <!--
+        function setCookie( name, value )
+        {
+          date = new Date();
+
+          date.setFullYear( date.getFullYear() + 1 );
+          newCookie = name + "=" + value + ";path=/; expires=" + date.toGMTString();
+          document.cookie = newCookie;
+        }
+
+        function setServers()
+        {
+          var exclude = '';
+
+          for ( var j = 0; j < document.excludeform.elements.length; j++ )
+          {
+            if ( document.excludeform.elements( j ).checked == false )
+              exclude += document.excludeform.elements( j ).name + ',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+
+        function selectServers(state)
+        {
+          var exclude = '';
+
+          for ( var j = 0; j < document.excludeform.elements.length; j++ )
+          {
+            document.excludeform.elements( j ).checked = state;
+
+            if( !state )
+              exclude+=document.excludeform.elements(j).name+',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+
+        function toggleServers()
+        {
+          var exclude='';
+
+          for (var j=0; j < document.excludeform.elements.length; j++)
+          {
+            document.excludeform.elements( j ).checked = !( document.excludeform.elements( j ).checked );
+
+            if ( document.excludeform.elements( j ).checked == false )
+              exclude += document.excludeform.elements( j ).name + ',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+        top.document.title = 'distroplat';
+      //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png">
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+
+<h3>News</h3>
+
+<p>
+<img border=1 src="/platdoc/img/shatner.gif" alt="Shatner">
+<br>
+<small>%SHATNER%</small>
+</p>
+
+<hr size=1 color=white align=left width=66%>
+<a href="%AUDROCKET%"><img src="/platdoc/img/audioRocketman.gif" border=0></a>&nbsp;<a href="%VIDROCKET%"><img src="/platdoc/img/videoRocketman.gif" border=0></a>
+<hr size=1 color=white align=left width=66%>
+
+%NEWS%
+</body>
+</html>
diff --git a/templates/search.template b/templates/search.template
new file mode 100644
index 0000000..ab04352
--- /dev/null
+++ b/templates/search.template
@@ -0,0 +1,20 @@
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+    <title>distroplat - Search Results</title>    
+    <script language="javascript">
+    <!--
+      top.document.title = 'Search Results - distroplat';
+    //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png">
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+<h3>Search Results</h3>
+<p>%COUNT%
+%SHORTCUTS%
+<p>
diff --git a/templates/searchplugin.template b/templates/searchplugin.template
new file mode 100644
index 0000000..de58135
--- /dev/null
+++ b/templates/searchplugin.template
@@ -0,0 +1,13 @@
+HTTP/1.0 200 OK
+Content-Type:text/xml
+
+<?xml version="1.0" encoding="UTF-8"?>
+<OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/">
+<ShortName>Distroplat</ShortName>
+<Description>Distroplat Artist Search</Description>
+<InputEncoding>utf-8</InputEncoding>
+<Image width="16" height="16">data:image/x-icon;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAXxJREFUeJy1kk1LAmEUhWfecT50Gm0yUTIlzfzAVGgXUSEFEbSLNv2S/kK7lkGrdoVthHZtchlIVovKCkKj7G2GxtGZcfyYeVsECWWRQWd1F+fhcu85OEII60egL/dfAMvHhEyzJgn1qqjUZETQ/mCYHeC+BSQRFnJZeH9Rr6sPFTE0tUgx7Hg42hu4PM+fHWfaTVVvtBAgh90jM/Ppnm4Mw3AIn7c3NygSU7QWMgyKoYCJ7CQ+vbQWiCU5B49MZOUc3Q2lUkmSqy0DSDXF53FaAanrDdxGwavc3ekRaSEQTuuuRDQSs7K2pt60JJOpfGqucnsivDRYK4FhpqqrxbJcuH502hkCAL+Hl2VK05qarifjcRwh9CoK2d0tQYDFMuQ5hiY6HE0+VSRRkqM+Pr2wzMdmx0IRiiQpmsbfk25oSqdjqqp6kNkfRTeBUEJrMyw36J2YHPIGcYLoHv2pGoZhHO7tEIx9ZXW995e+dglCCADmcrl/C/ys/y/fG7qDqJb+EthBAAAAAElFTkSuQmCC</Image>
+<SearchForm>http://%CGIROOT%/%APPNAME%/front.plx</SearchForm>
+<Url type="text/html" method="GET" template="http://%CGIROOT%/%APPNAME%/front.plx?artist={searchTerms}">
+</Url>
+</OpenSearchDescription>
\ No newline at end of file
diff --git a/templates/servernews.template b/templates/servernews.template
new file mode 100644
index 0000000..959cb83
--- /dev/null
+++ b/templates/servernews.template
@@ -0,0 +1,99 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - Server News</title>
+  <script language="JavaScript">
+      <!--
+        function setCookie( name, value )
+        {
+          date = new Date();
+
+          date.setFullYear( date.getFullYear() + 1 );
+          newCookie = name + "=" + value + ";path=/; expires=" + date.toGMTString();
+          document.cookie = newCookie;
+        }
+
+        function setServers()
+        {
+          var exclude = '';
+
+          for ( var j = 0; j < document.excludeform.elements.length; j++ )
+          {
+            if ( document.excludeform.elements[ j ].checked == false )
+              exclude += document.excludeform.elements[ j ].name + ',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+
+        function selectServers(state)
+        {
+          var exclude = '';
+
+          for ( var j = 0; j < document.excludeform.elements.length; j++ )
+          {
+            document.excludeform.elements[ j ].checked = state;
+
+            if( !state )
+              exclude+=document.excludeform.elements(j).name+',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+
+        function toggleServers()
+        {
+          var exclude='';
+
+          for (var j=0; j < document.excludeform.elements.length; j++)
+          {
+            document.excludeform.elements[ j ].checked = !( document.excludeform.elements[ j ].checked );
+
+            if ( document.excludeform.elements[ j ].checked == false )
+              exclude += document.excludeform.elements[ j ].name + ',';
+          }
+
+          setCookie( 'exclude', exclude );
+        }
+        
+        function setStart(state) {
+            if (state == true) setCookie('start', 'servernews');
+            else setCookie('start', 'news');
+        }
+        
+        function loader()
+        {
+          if (document.cookie.indexOf( 'start=servernews' ) > -1)
+            document.startform.elements[ 0 ].checked = true;
+        }
+
+        top.document.title = 'distroplat';
+        
+      //-->
+  </script>
+</head>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png" onLoad="loader()">
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+
+<h3>Server News</h3>
+
+To include the latest news from your own server write some HTML in to a file called
+<b>info.txt</b> and save it to your platters' root folder. Then retrawl.
+<br>
+<form name="startform">
+<input type="checkbox" onClick="setStart(this.checked)"> Start distroplat on this page
+</form>
+
+<form name="excludeform">
+%SERVERS%
+</form>
+
+</body>
+</html>
diff --git a/templates/settings.template b/templates/settings.template
new file mode 100644
index 0000000..b9343e3
--- /dev/null
+++ b/templates/settings.template
@@ -0,0 +1,242 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - Settings</title>
+</head>
+
+<script language="JavaScript">
+<!--
+  top.document.title = 'Settings - distroplat';
+
+  var screenCookieName = 'target';
+  var foundFormat = false;
+  var foundTarget = false;
+  var foundLink   = false;
+  var foundStart  = false;
+  
+  function setup() 
+  {
+    ourCookies = document.cookie.split("; ");
+
+    for (var i=0; i < ourCookies.length; i++)
+    { 
+      var ourCrumb = ourCookies[i].split("=");
+      
+      if (ourCrumb.length == 2)
+      {
+        if (ourCrumb[0] == 'format')
+        { 
+          playformat = ourCrumb[1];
+          
+          for (var j=0; j < document.playerpref.elements.length; j++)
+          {
+            if (document.playerpref.elements[ j ].value == playformat)
+            {
+              document.playerpref.elements[ j ].checked = 'true';
+              foundFormat = true;
+            }
+          }
+        }
+        else if (ourCrumb[0] == 'target') {
+          target = ourCrumb[1];
+          
+          for (var j=0; j < document.targets.elements.length; j++)
+          {
+            if (document.targets.elements[ j ].value == target)
+            {
+              document.targets.elements[ j ].checked = 'true';
+              foundTarget = true;
+            }
+          }
+        }
+        else if (ourCrumb[0] == 'start') {
+          target = ourCrumb[1];
+          
+          for (var j=0; j < document.startform.elements.length; j++)
+          {
+            if (document.startform.elements[ j ].value == target)
+            {
+              document.startform.elements[ j ].checked = 'true';
+              foundStart = true;
+            }
+          }
+        }
+      }
+    }
+    
+    // Set defaults if not found
+
+    if (!foundFormat) {
+        setCookie('format', 'extm3u');
+        for (var k=0; k < document.playerpref.elements.length; k++) 
+        {
+            if (document.playerpref.elements[k].value == 'extm3u')
+                document.playerpref.elements[k].checked = 'true';
+        }
+    }
+
+    if (!foundTarget) {
+        setCookie('target', 'iframe');
+        for (var k=0; k < document.targets.elements.length; k++) 
+        {
+            if (document.targets.elements[k].value == 'iframe')
+                document.targets.elements[k].checked = 'true';
+        }
+    }
+    if (!foundStart) {
+        setCookie('start', 'servernews');
+        for (var k=0; k < document.startform.elements.length; k++) 
+        {
+            if (document.startform.elements[k].value == 'news')
+                document.startform.elements[k].checked = 'true';
+        }
+    }    
+    
+  }
+       
+  function setCookie( name, value )
+  {
+    date = new Date();
+   
+    date.setFullYear( date.getFullYear() + 1 );
+    newCookie = name + "=" + value + ";path=/; expires=" + date.toGMTString();
+    document.cookie = newCookie;
+  }
+  
+    function setServers()
+    {
+      var exclude = '';
+
+      for ( var j = 0; j < document.excludeform.elements.length; j++ )
+      {
+        if ( document.excludeform.elements[ j ].checked == false )
+          exclude += document.excludeform.elements[ j ].name + ',';
+      }
+
+      setCookie( 'exclude', exclude );
+    }
+
+    function setExts()
+    {
+      var exclude = '';
+
+      for ( var j = 0; j < document.extpref.elements.length; j++ )
+      {
+        if ( document.extpref.elements[ j ].checked == false )
+          exclude += document.extpref.elements[ j ].name + ',';
+      }
+
+      setCookie( 'exclTypes', exclude );
+    }    
+
+    function selectServers(state)
+    {
+      var exclude = '';
+
+      for ( var j = 0; j < document.excludeform.elements.length; j++ )
+      {
+        document.excludeform.elements[ j ].checked = state;
+
+        if( !state )
+          exclude+=document.excludeform.elements[ j ].name+',';
+      }
+
+      setCookie( 'exclude', exclude );
+    }
+    
+    function toggleServers()
+    {
+      var exclude='';
+
+      for (var j=0; j < document.excludeform.elements.length; j++)
+      {
+        document.excludeform.elements[ j ].checked = !( document.excludeform.elements[ j ].checked );
+
+        if ( document.excludeform.elements[ j ].checked == false )
+          exclude += document.excludeform.elements[ j ].name + ',';
+      }
+
+      setCookie( 'exclude', exclude );
+    }
+  
+
+  //-->
+</script>
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png" onLoad="setup()">
+<script language="javascript">
+    if (top.location == document.location)
+        document.write('<a href="front.plx"><img src="/platdoc/img/logo.gif" hspace=0 border=0 alt="Front Page"></a>');
+</script>
+
+<p><span class="title">Settings</span>
+<br>
+<small>
+<a href="#servers">Servers</a> - 
+<a href="#playlist">Playlists</a> - 
+<a href="#screen">Screen Size</a> - 
+<a href="#start">Start Page</a>
+</small></p>
+
+<p>
+<form name="excludeform">
+<strong>Servers<a name="servers">&nbsp;</a></strong>
+<br>
+Choose which platters you want to include in your searches and artist views.
+<br>
+%SERVERS%
+<small>All: <a href="javascript:selectServers(true)">[on]</a>&nbsp;
+<a href="javascript:selectServers(false)">[off]</a>&nbsp;
+<a href="javascript:toggleServers()">[toggle]</a></small>
+</form>
+
+<p>
+<form name="playerpref">
+<strong>Playlist Formats<a name="playlist">&nbsp;</a></strong>
+<br>
+These are the playlists currently supported in Distroplat. Choose the one that best suits your
+media application.
+<br>
+<table border=0 cellpadding=0 cellspacing=1>
+%FORMATS%
+</table>
+</form>
+
+<p>
+
+<p>
+<form name="extpref">
+<strong>File Types<a name="ext">&nbsp;</a></strong>
+<br>
+Uncheck any file types you cannot play.
+%EXTS%
+</form>
+
+<p>
+<form name="targets">
+<strong>Screen Size<a name="screen">&nbsp;</a></strong>
+<br>
+If this right hand frame is too small to display artist pages and search results on
+your screen, select <i>'Small screen'</i> below and they will be opened full frame.
+You must <a href="front.plx" target="_top"><b><i>refresh this entire window</i></b></a>
+for the setting to take effect.
+<br>
+<input type="radio" name="screensize" value="iframe" onClick="setCookie('target', 'iframe');" title="Click to direct search and artist pages to the pane on the right"> Big Screen<br>
+<input type="radio" name="screensize" value="narrow" onClick="setCookie('target', 'narrow');" title="Click to direct search and artist pages to the pane on the right but in narrow format"> Big Screen (Narrow Format)<br>
+<input type="radio" name="screensize" value="_top" onClick="setCookie('target', '_top');" title="Click to open search and artist pages full frame"> Small Screen 
+</form>
+
+<p>
+<form name="startform">
+<strong>Start Page<a name="start">&nbsp;</a></strong>
+<br>
+Choose whether you want distroplat to start on platter news or server news.
+<br>
+<input type="radio" name="start" value="news" onClick="setCookie('start', 'news');" title="Click to start on platter news"> Platter News<br> 
+<input type="radio" name="start" value="servernews" onClick="setCookie('start', 'servernews');" title="Click to start on server news"> Server News
+</form>
+</body>
+</html>
diff --git a/templates/trawl.template b/templates/trawl.template
new file mode 100644
index 0000000..7030756
--- /dev/null
+++ b/templates/trawl.template
@@ -0,0 +1,42 @@
+HTTP/1.0 200 OK
+Content-Type:text/html
+
+<html>
+<head>
+  <link rel="stylesheet" href="/platdoc/platter.css">
+  <title>distroplat - Content Trawler</title>
+</head>
+
+<script language="JavaScript">
+<!--
+
+  top.document.title = 'Content Trawler - distroplat';
+  
+  function twat()
+  {
+    var risultato='';
+    
+    for (var j=0; j < document.twatsource.elements.length; j++)
+      if (document.twatsource.elements[ j ].type == 'checkbox' && document.twatsource.elements[ j ].checked == true )
+        risultato += document.twatsource.elements[ j ].name + ',';
+
+    if ( risultato.length>0 )
+    {
+      document.twatform.hosts.value = risultato.slice(0,risultato.length-1);
+      document.twatform.submit();
+    }
+    else
+      alert( 'Please select some hosts to twat' ); 
+    
+  }
+// -->
+</script>       
+
+<body bgcolor="#%BGCOLOUR%" background="/platdoc/img/bars.png">
+<h3>Content Trawler</h3>
+<p>
+Use this to update a server's content. Choose servers from the list below and
+hit the button. Minimum time between trawls of a specific server is <b>%MINTRAWL% minutes</b>
+for the sake of the children.
+</p>
+<form name="twatform" method="GET"><input type="hidden" name="hosts" value=""></form>