#!/usr/bin/perl

# Another add-on to urllist.cgi. This script automatically redirects to the last URL
# catched from the channel which is given as parameter.

# Copyright 2003 by Susanna Winter


# Version history:
# v0.1 - May 2003: Initial version
# v0.2 - May 2003: Getting fed up with having to edit numerous scripts every time I 
# 		   change something in the site layout I've now changed the SSI files to
#		   be read into the scripts rather than have static html code 
# 		   -> flexible for me but, overall, not very portable.
# v0.2.1 - June 2003: Added msgs to the channel list if no parameters.

use strict;
use CGI qw(:standard);
use File::stat;
use Time::localtime;

# globals
my $filename = "lasturl.pl";
my @channel_list = ("#example");
my $path_to_files = "\/path\/to\/files\/";

# addresses from where it's allowed to see addresses sent via msg
my @msgallowedhosts = ("");


# sub's

# check if msg option is allowed
sub check_host
{
  foreach my $host (@msgallowedhosts)
  {
    if ($ENV{'REMOTE_HOST'} eq $host) { return 1; }
  }
} #end of check_host

sub fix_month
{
  my $fixed_month = $_[0];
  $fixed_month =~ s/Jan/01/;
  $fixed_month =~ s/Feb/02/;
  $fixed_month =~ s/Mar/03/;
  $fixed_month =~ s/Apr/04/;
  $fixed_month =~ s/May/05/;
  $fixed_month =~ s/Jun/06/;
  $fixed_month =~ s/Jul/07/;
  $fixed_month =~ s/Aug/08/;
  $fixed_month =~ s/Sep/09/;
  $fixed_month =~ s/Oct/10/;
  $fixed_month =~ s/Nov/11/;
  $fixed_month =~ s/Dec/12/;
  return $fixed_month;
} #end of fix_month

# sub's declared


my $query = "";
$query = param("keywords");

my $no_channel = 1;

foreach (@channel_list)
{
    if ("#" . $query eq $_) { $no_channel = 0; }
}
if (($query eq "msg") && check_host()) { $no_channel = 0; }


# no parameters -> print the main urllist.cgi page
if ( !(param()) || ($no_channel) )
{
    print "Content-type:text/html\n\n";
    print "<title>Lasturl.pl</title>\n\t";
    print "<meta name=\"robots\" content=\"noindex, nofollow\" />\n";
    print "\t<h1>Irkist&auml; ker&auml;ttyj&auml; URLeja</h1>\n\t";
    print "<ul>\n\t";

    my @channels;
    foreach my $chan (@channel_list) { push(@channels, $chan); }
    @channels = sort {uc(my $a) cmp uc(my $b)} @channels;

    foreach (@channels)
    {
      	my $fixed_channel = $_;
      	$fixed_channel =~ s/#//;
	print "<li><a href=\"/~juha/cgi/urllist.cgi?$fixed_channel\">$_</a> - <a href=\"$filename?$fixed_channel\">viimeisin URL</a></li>\n\t";
    }
    if (check_host) { print "<li><a href=\"/~juha/cgi/urllist.cgi?msg\">msg</a> - <a href=\"$filename?msg\">viimeisin URL</a></li>\n\t"; }
    print "</ul>\n\n\t";

    print "<form method=\"get\" action=\"/~winter/cgi/urlsearch.pl\">\n\t";
    print "<table class=\"form\" cellpadding=\"5\" bgcolor=\"#9DABC0\">\n\t<tr>\n\t\t<td>\n\t\t<table>\n\t\t<tr>\n\t\t\t";
    print "<td>Search for <input type=\"text\" class=\"text\" name=\"query\" size=\"10\" /> on channel(s)\n\t\t\t<select name=\"channel\">\n\t\t\t<option selected=\"selected\" value=\"all\">All</option>\n\t\t\t";

    my $channels_left = $#channel_list;
    do
    {
    	print "<option value=\"$channel_list[$channels_left]\">$channel_list[$channels_left]</option>\n\t\t\t";
        $channels_left--;
    }
    while ($channels_left >= 0);

    # if msg option was allowed
    if (check_host) { print "<option value=\"msgs\">msgs</option>\n\t\t\t"; }

    print "</select></td>\n\t\t</tr>\n\n\t\t<tr>\n\t\t\t";
    print "<td><input type=\"submit\" class=\"button\" value=\"Search\" />\n\t\t\t<input type=\"reset\" class=\"button\" value=\"Reset all\" />&nbsp;&nbsp;<a href=\"/~winter/cgi/urlsearch.pl\">Advanced search</a>";
    print "</td>\n\t\t</tr>\n\t\t</table></td>\n\t</tr>\n\t</table>\n\t</form>\n\n";

    #print the rest of the page
    my $last_modified = (ctime(stat($filename)->mtime));
    my ($day_of_week, $month, $day, $time, $year) = split(" ", $last_modified, 5);

    print "<small class=\"footer\"><a href=\"http://www.susannawinter.net/perl/#lasturl\">$filename</a> viimeksi p&auml;ivitetty: $day." . fix_month($month) . ".$year. &copy; $year by Susanna Winter.<br />\n";
    print "Kysymykset ja kommentit osoitteeseen <a href=\"mailto:susanna.winter\@lut.fi\">susanna.winter\@lut.fi</a></small>\n\n</body>\n</html>\n";
}

else
{
    my $last_url = "";

    if ($query ne "msg") { $query = "#" . $query; }
    #my $file = $path_to_files . $query . "/" . $query . ".1";

    my $i;
    for ($i = 1; $i <= 8; $i++)
    {
    	my $file = $path_to_files . $query . "/" . $query . ".";
	if ($i < 8) { $file = $file . $i; }
	else { $file = $file . "old"; }

      	if (-e $file)
      	{
	    $last_url = `/usr/bin/tail -1 $file`;
    	    my $junk = ""; my $url = "";
    	    ($junk, $junk, $junk, $junk, $junk, $junk, $junk, $url) = split(/\s+/, $last_url);

	    # Usenet msg-id
	    if ($url =~ /^<.*>$/)
	    {
            	$url =~ s/</\%3A/g;
            	$url =~ s/>/\%3E/g;
	    	$url = "http://groups.google.com/groups?q=msgid$url";
      	    }

	    # Iltalehti
	    elsif ($url =~ /^http:\/\/www\.iltalehti\.fi/ && $url !~ /^http:\/\/www\.iltalehti\.fi\/light\//)
	    {
            	$url =~ s/^http:\/\/www\.iltalehti\.fi\//http:\/\/www\.iltalehti\.fi\/light\//;
	    }
    	    print "Location: $url\n\n";
    	    print "URI: $url\n\n";
        }
	else { next; }
    }

    if ($last_url eq "")
    {
    	print "Content-type:text/html\n\n";
    	print "<title>Lasturl.pl</title>\n\t";
    	print "<meta name=\"robots\" content=\"noindex, nofollow\" />\n";
	print "<h1>Irkist&auml; ker&auml;ttyj&auml; URLeja</h1>\n\t";
	print "<p>Ei uusia URLeja kanavalta $query.</p>\n";

    	my $last_modified = (ctime(stat($filename)->mtime));
    	my ($day_of_week, $month, $day, $time, $year) = split(" ", $last_modified, 5);
    	print "<small class=\"footer\"><a href=\"http://www.susannawinter.net/perl/#lasturl\">$filename</a> viimeksi p&auml;ivitetty: $day." . fix_month($month) . ".$year. &copy; $year by Susanna Winter.<br />\n";
    	print "Kysymykset ja kommentit osoitteeseen <a href=\"mailto:susanna.winter\@lut.fi\">susanna.winter\@lut.fi</a></small>\n\n</body>\n</html>\n";
    }
}