#!/usr/bin/perl
$|=1;
use Env;
use DBI;
#use CGI::Fast;
use CGI;
use Time::Local;
my $q = new CGI;
#
# For fastest performance possible, we are going to try a few things
# cache/read login info, usernames, passwords and login times at init
# cache/read all html files to eliminate disk io

$owneremail = 'koreyo@gmail.com';
$hollyemail = 'holly@peakelements.com';
$hostname = `hostname`;
if($hostname !~ /onlinehome/)
{
$hostname = "local";
$dbhost = 'localhost';
$db = "khmarionmontana";
$dblogin = "kodell";
$dbpassword = "0Hunter";
#$dbh = DBI->connect('DBI:mysql:'.$db.':'.$dbhost,
	#				$dblogin, $dbpassword);

#&loadusers();
}
open(LH, ">>/tmp/logfile");
#while($q = new CGI::Fast)
{
	my $login;
	my $t;
	my $page;
	my $subpage;
	#my $cmds = $ARGV[0];
	my $cmds = $ENV{'QUERY_STRING'};
	if($cmds)
	{
		($login, $t, $page, $subpage) = split(/\,/, $cmds);
	}
	$page = "index.html" if ! $page;
	if(1)#! $html{$page})
 {
	 open(FH, $page);
	 @page = <FH>;
	 close FH;
	 $html{$page} = [@page];
 }
	print $q->header;
	&login() if($q->param('submit'));
	&createaccount() if($q->param('createaccount'));
        if($login && ! &checklogin($login,$t))
        {
            print '<script>window.open("marion.go?,,login.html", "_top");</script>';
            exit(0);
        }
	print "<a href=edit.in?$login,$t,$page>[Edit]</a>" if($login);
        foreach my $line(@{$html{$page}})
	{
		if($page eq "index.html")
		{
			if($line =~ /\<!--- index iframe/)
			{                   
				$line =~ s/\<!--- index iframe/\<iframe src=\"marion.go?$login,$t,home.html\"/g;
			}
			elsif($line =~ /\<!--- local events iframe/)
			{
				$line =~ s/\<!--- local events iframe/\<iframe src=\"marion.go?$login,$t,localevents.html\"/g;
			}
		}
		elsif($subpage)
		{
			$line =~ s/\<iframe/\<iframe src=\"marion.go?$login,$t,$subpage\"/g;
		}
		if($line =~ /khfullname/) # menu tag
		{   
			my $fullname = $users{$login}->{"fullname"};
			$line =~ s/\<\!\-\- khfullname \-\-\>/$fullname/g;
		}
		if($line =~ /\<a href=\"marion.go\?(\w*).html\"/)
		{    
			while($line =~ /\<a href=\"marion.go\?(\w*).html\"/)
			{
				my $page = $1;
				$line =~ s/\<a href=\"$page.html\"/\<a href=\"marion.go?$login,$t,$page.html\" target=\"view\"/g;  
			}
			print $line;
		}
		elsif($line =~ /\<a href=\"(\w*).html\"/)
		{    
			while($line =~ /\<a href=\"(\w*).html\"/)
			{
				my $page = $1;
				if($page eq "login" && $login)
				{
					$line = "<tr><td><a href=\"marion.go\" class=\"bolder\">Logout</a></td></tr>";
				}
				#if($line !~ /target\=/)
				{
					$line =~ s/\<a href=\"$1.html\"/\<a href=\"marion.go?$login,$t,$page.html\" target=\"view\"/g;  
				}
				#else
				#{
				#	$line =~ s/\<a href=\"$page.html\"/\<a href=\"marion.go?$login,$t,$page.html\"/g;  
				#}

			}
			print $line;
		}
		elsif($line =~ /khphotogallery/)
		{
			my($jnk, $jnk, $dir) = split(/ /, $line);
			opendir(FH, "images/$dir");
			my @images = grep(/JPG/i, readdir(FH));
			closedir FH;
			foreach my $image (@images)
			{
				if($image !~ /tn\_/ && $image !~ /\.txt/)
				{
					if(! -e "images/$dir/tn_$image")
					{
						`convert images/$dir/$image -thumbnail 240x180 images/$dir/tn_$image`;
						print "creating tn_$image";
					}
					my $title="no caption";
					if(open(FH, "images/$dir/$image.txt"))
					{
						$title = <FH>;
						close FH;
					}
					print "<a href=\"images/$dir/$image\" target=\"new\"><img src=\"images/$dir/tn_$image\" title=\"$title\"></a>";
				}
			}
		}
		elsif($line =~ /khforecast-feed/)
		{
			open(FH, "<forecast.src");
			my @html = <FH>;
			close FH;
			foreach my $line (@html)
			{
				print $line;
			}
		}                       
		elsif($line =~ /khrss-feed-start/)
		{
			my($jnk, $jnk, $file) = split(/ /, $line);
			open(FH, $file);
			my @html = <FH>;
			close FH;
			foreach my $line (@html) 
			{ 
				print $line."<br />";
			}
		}
		elsif($line =~ /khusermenu/ && $login)
		{
			# get all html files for user
			opendir(FH, "users/$login");
			my @files = grep(/html/, readdir(FH));
			closedir FH; 
			print "<tr><td><h2>Usermenu</h1></td></tr>\n";
			foreach my $file (@files)
			{
				my $title = $file;
				$title =~ s/\.\w+//;
				$title =~ s/\_/ /g;
				print "<li><a href=\"marion.go?$login,$t,users/$login/$file\" target=\"view\">$title</a></li>";
			}
		}
		elsif($line =~ /khmarionweather/)
        {
            my ($j,$min,$hour,$day,$mo,$yr,$j,$j,$j) = localtime(time);
            $hour = 0;
            $hour = 2 if($hostname ne "local");
            my $startTime = timelocal(0,0,$hour,$day,$mo,$yr);
#print "$startTime $hour $day $mo $yr";
            $FileName .= "currenttemps.txt,".$startTime;
            open(FH, "temps/$FileName");
            my @temps = <FH>;
            close FH;
            # find high and low temps for the day
            my $high = -199;
            my $low = 199;
            my $hightime, $lowtime;
            foreach (@temps)
            {
                my ($t, $temp) = split(/\|/);
                if($temp < $low)
                {
                    $low = $temp;$lowtime=$t;
                } 
                elsif($temp > $high)
                {
                    $high = $temp;$hightime=$t;
                }
            }
            $low =(9/5 * $low) + 32;
            $high =(9/5 * $high) + 32;
            my ($t, $temp) = split(/\|/, $temps[$#temps]);
            $temp =(9/5 * $temp) + 32;
            my ($hour,$min,$ampm) = &converttime($t);
            print "<h2>Temperatures \@ Marion</h2>";
            print "<h4><li>Currently <strong>$temp &#176;</strong> \@ $hour:$min $ampm</h4>\n";

            my $end = $#temps;
            --$end;
            print "<ul>";
            for(my $i=$end;$i>=0 && $i >= $end-4;--$i)
            {
                my ($t, $temp) = split(/\|/, $temps[$i]);
                $temp =(9/5 * $temp) + 32;
                my ($hour,$min,$ampm) = &converttime($t);
                print "<li><strong> $temp&#176;</strong> \@ $hour:$min $ampm\n";
            }
            print "</li></ul>";
            my ($hour,$min,$ampm) = &converttime($hightime);
            print "<h4><li>High <strong>$high&#176;</strong> \@ $hour:$min $ampm";
            my ($hour,$min,$ampm) = &converttime($lowtime);
            print "<li>Low <strong>$low&#176;</strong> \@ $hour:$min $ampm</h4>\n";
            print "<hr>\n";
        }
		elsif($line =~ /\<\/head\>/)
		{
			print "<meta name=\"description\" content=\"Welcome to Marion Montana!\">\n";
			print "<meta name=\"keywords\" content=\"bitterroot lake, mcgregor lake, pleasant valley, great northern, history, school, peakelements, crazy, mans, castle, lost prairie, little bitterroot river\">\n";
			print $line;
		}
		elsif($line =~ /\<title\>/)
		{
            my ($j,$min,$hour,$day,$mo,$yr,$j,$j,$j) = localtime(time);
            $yr += 1900;
			print "<title>MarionMontana.com $yr</title>\n";
		}
		elsif($line =~ /\<\/body\>/ && $page ne "index.html")
		{
			print "<p><a href=\"?,,index.html\" target=\"top\">Return to MarionMontana.com</a></p>";
		}
		else
		{   
			print $line;
		}
	}
}

sub converttime
{
	my ($t) = @_;
	my ($j,$min,$hour,$day,$mo,$yr,$j,$j,$j) = localtime($t); 
	my $ampm = "am";
	$hour -= 2 if($hostname ne "local");
    if($hour == 0)
    {
		$ampm = "am";
		$hour = 12;
    }
	elsif($hour >= 12)
	{
		$ampm = "pm";
		$hour -= 12 if($hour > 12);
	}
	if(length($min) < 2)
	{
		$min = "0".$min;
	}

	return($hour,$min,$ampm);
}
sub verifylogin
{
	if($login)
	{
		if(! &verifylogin($login,$t))
		{
			$login = $t = "";
			print '<script>window.open("marion.go", "_top");</script>';
		}
	}
	my ($plogin, $pt) = @_;
	if($users{$plogin}->{"t"} < time - 30)
	{
		print LH "login expired for $plogin\n";
		return 0;
	}
	return 1;
}

sub createaccount
{
	my $login = escape($q->param(-name=>"login"));
	my $password = escape($q->param(-name=>"password"));
	my $email = escape($q->param(-name=>"email"));
	my $name = escape($q->param(-name=>"name"));
	my $address = escape($q->param(-name=>"address"));
	my $address2 = escape($q->param(-name=>"address2"));
	my $city = escape($q->param(-name=>"city"));
	my $state = escape($q->param(-name=>"state"));
	my $zip = escape($q->param(-name=>"zip"));
	my $phone = escape($q->param(-name=>"phone"));
	my $newsletter = escape($q->param(-name=>"newsletter"));
	if(! exists $users{$login})
	{
		if($login)# && $password && $email && $name && $address
#                && $city && $state && $zip && $phone) 
		{
			my $t = time;
			my $dbquery = "insert into users values ('$login', '$password', '$email', '$name', '$address', '$address2', '$city', '$state', '$zip', '$phone', '$newsletter', '$t')";
			#$dbquery =~ s/\'\w+\'/\\\'/g;
			my $table_data = $dbh->prepare($dbquery);
			$table_data->execute;
			# reload users since new one added 
			&loadusers();
			my $msg = "Name: $name\nEmail: $email\nAddress: $address $address2\nCity: $city\nState: $state\nZip: $zip\nPhone: $phone\nNewsletter: ";
			if($newsletter eq "checkbox")
			{
				$msg .= "Yes";
			}
			else
			{
				$msg .= "No";
			}
			sendemail($owneremail, $hollyemail, 'A new user has created an account', 'admin@marionmontana.com', $msg);
			print '<script>window.open("?'.$login.','.$t.',,home.html", "_top");</script>';
		}
		else
		{
			print "missing information, please fill in all fields";
		}
	}
	else
	{
		print "desired login is unavailable";
	}
}

sub checklogin
{
return 1;
    my($login,$t) = @_;
    my $t2 = time;
    $t2 -= 1800;
    if($t >= $t2 && $t eq $users{$login}->{"t"})
    {
        return 1;
    }
    return 0;
}

sub login
{
	my $login = $q->param(-name=>"login");
	if(exists $users{$login} && $login 
	   && $users{$login}->{"password"} eq $q->param(-name=>"password"))
	{
		my $t = time;
		my $dbquery = "update users set t='$t' where login='$login';";
		my $table_data = $dbh->prepare($dbquery);
		$table_data->execute;
		$users{$login}->{"t"} = $t;

		print '<script>window.open("?'.$login.','.$t.',,home.html", "_top");</script>';
	}
	else
	{
		print "invalid login or password";
	}
}

sub loadusers
{
	my $dbquery = "select * from users;";
	my $table_data = $dbh->prepare($dbquery);
	$table_data->execute;
	my @row = $table_data->fetchrow_array;
	while(scalar(@row))
	{
		$users{$row[0]}->{"password"} = $row[1];
		$users{$row[0]}->{"email"} = $row[2];
		$users{$row[0]}->{"fullname"} = $row[3];
		$users{$row[0]}->{"t"} = $row[$#row];
		@row = $table_data->fetchrow_array;
	}
}

sub escape
{
    my ($pstring) = @_;
    $pstring =~ s/\'/\\\'/g;
    $pstring =~ s/\"/\\\"/g;
    return $pstring;
}

sub sendemail
{
	my ($to, $cc, $subject, $replyTo, $message) = @_;
	$sendmail = "/usr/lib/sendmail -t -n";
    $gateway = "CGI Mail Gateway [v1.0]";
    open (SENDMAIL, "| $sendmail");
    print SENDMAIL <<Mail_Headers;
From: $replyTo
To: $to 
Reply-To: $replyTo
Subject: $subject 
X-Mailer: $gateway
X-Remote-Host: $ENV{'REMOTE_ADDR'}
Mail_Headers

    print SENDMAIL "Cc: ", $cc, "\n";
    print SENDMAIL "\n", $message, "\n";	
    close (SENDMAIL);
}