1 files changed, 72 insertions, 0 deletions
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;