#!/usr/bin/perl

use DBI;

&parseForm;
&loadCookie;

my $docroot = "$ENV{DOCUMENT_ROOT}";
my $hostname = "sqlc0e.megasqlservers.com";
my $db = "focl_friendsofclearlake_com";
my $user = "dbm.friendsofclearlake.com";
my $password = "tslv01"; #pass for ssh is laurie
my $senQuery = "SELECT * FROM senator ORDER BY lname";
my $repQuery = "SELECT * FROM representative ORDER BY lname";
my $dsn = "DBI:mysql:database=$db;host=$hostname";

$dbh = DBI->connect($dsn, $user, $password);


if ($dbh) {
    print "Content-type: text/html\n\n";
    &pageHeader;
    &mainDisplay;
    &pageFooter;
    $dbh->disconnect();
    exit;
}
else {
    print "Content-type: text/html\n\n";
    $legislator = 0;
    &pageHeader;
    print "<h4>Sorry,</h4><p>This section is under maintenance, please try again later.</p>";
    &pageFooter;
    exit;
}

sub mainDisplay {
    $moreInfo = qq~
        <p>
            You can also find out more information about your legislators at <a href="http://www.legis.state.ia.us" target="_blank">www.legis.state.ia.us</a>.
        </p>
    ~;
    if ($input{wd} eq "sen") {
        $query = qq~
            SELECT
                *
            FROM
                senator
            ORDER BY
                home_county ASC, lname ASC
        ~;
        $bgcolor = 0;
        $sth = $dbh->prepare_cached($query);
        $sth->execute();
        while (my $senator = $sth->fetchrow_hashref()) {
            if (!$bgcolor) {
                $bg = qq~ bgcolor="#eeeeee"~;
                $bgcolor = 1;
            }
            else {
                $bg = qq~ bgcolor="#ffffff"~;
                $bgcolor = 0;            
            }
            $senList .= qq~
                <tr$bg>
                    <td valign="top" align="left">
                        $senator->{lname}, $senator->{fname}
                    </td>
                    <td valign="top" align="left">
                        $senator->{home_county}
                    </td>
                    <td valign="top" align="center">
                        $senator->{district}
                    </td>
                    <td valign="middle" align="center">
                        <img src="/images/~.lc($senator->{party}).qq~_logo.gif" width="20" height="20" alt="$senator->{party}">
                    </td>
                </tr>
            ~;
        }
        $sth->finish;
        print qq~
            $moreInfo
            <p>
            <b>List of Senators:</b><br>
            The list below is sorted by Senators\' Home County and Last Name.
            </p>
            <table cellpadding="5" cellspacing="0" border="0" width="100%">
                <tr>
                    <td valign="top" align="left" width="45%">
                        <b>Last Name, First Name</b>
                    </td>
                    <td valign="top" align="left" width="25%">
                        <b>Home County</b>
                    </td>
                    <td valign="top" align="center" width="15%">
                        <b>District</b>
                    </td>
                    <td valign="middle" align="center" width="15%">
                        <b>Party</b>
                    </td>
                </tr>
                $senList
            </table>
            <p><a href="#top">Back to top</a></p>
            <p>&nbsp;</p>
        ~;
    }
    elsif ($input{wd} eq "rep") {
        $query = qq~
            SELECT
                *
            FROM
                representative
            ORDER BY
                home_county ASC, lname ASC
        ~;
        $bgcolor = 0;
        $sth = $dbh->prepare_cached($query);
        $sth->execute();
        while (my $senator = $sth->fetchrow_hashref()) {
            if (!$bgcolor) {
                $bg = qq~ bgcolor="#eeeeee"~;
                $bgcolor = 1;
            }
            else {
                $bg = qq~ bgcolor="#ffffff"~;
                $bgcolor = 0;            
            }
            $senList .= qq~
                <tr$bg>
                    <td valign="top" align="left">
                        $senator->{lname}, $senator->{fname}
                    </td>
                    <td valign="top" align="left">
                        $senator->{home_county}
                    </td>
                    <td valign="top" align="center">
                        $senator->{district}
                    </td>
                    <td valign="middle" align="center">
                        <img src="/images/~.lc($senator->{party}).qq~_logo.gif" width="20" height="20" alt="$senator->{party}">
                    </td>
                </tr>
            ~;
        }
        $sth->finish;
        print qq~
            $moreInfo
            <p>
            <b>List of Representatives:</b><br>
            The list below is sorted by Representatives\' Home County and Last Name.
            </p>
            <table cellpadding="5" cellspacing="0" border="0" width="100%">
                <tr>
                    <td valign="top" align="left" width="45%">
                        <b>Last Name, First Name</b>
                    </td>
                    <td valign="top" align="left" width="25%">
                        <b>Home County</b>
                    </td>
                    <td valign="top" align="center" width="15%">
                        <b>District</b>
                    </td>
                    <td valign="middle" align="center" width="15%">
                        <b>Party</b>
                    </td>
                </tr>
                $senList
            </table>
            <p><a href="#top">Back to top</a></p>
            <p>&nbsp;</p>
        ~;
    }
    else {
        print qq~
            <p>
                You can view the list of all Senators or Representatives by clicking on the corresponding link below:
            </p>
            <ul>
                <li><a href="?wd=sen">View all Senators</a></li>
                <li><a href="?wd=rep">View all Representatives</a></li>
            </ul>
            $moreInfo
        ~;
    }
}

sub pageHeader {
if ($legislator) { $atLeg = qq~class="active"~; $atForm = "";}
if (!$legislator) { $atLeg = qq~~; $atForm = qq~class="active"~;  }
print qq~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
<head>
    <title>Registration Form - How can I help? - Friends of Clear Lake</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <link rel="stylesheet" type="text/css" media="screen" href="css/screen.css" />
    <script type="text/javascript" language="JavaScript" src="js/valid.js"></script>
</head>
<body>
<div id="headerContainer">
    <div id="header">
        <img src="images/focl_logo1.gif" alt="Friends of Clear Lake">
        <ul>
            <li><a href="index.html">Home</a></li>
            <li><a href="clear_project.html">CLEAR Project</a></li>
            <li><a href="register.html">How can I help?</a></li>
            <li><a href="/apcl.html">Assn. for the Preservation of Clear Lake</a></li>
        </ul>
    </div>
</div>
<div style="clear: both">
<table cellpadding="0" cellspacing="0" border="0" width="770" style="margin-top: 10px;">
    <tr>
        <td valign="top" align="left" width="160">
            <div id="navcontainer">
                <ul>
                    <li id="active"><a href="legislator.htm" id="current">Legislators</a></li>
                    <li><a href="good_investment.html">A Good Investment</a></li>
                    <li><a href="press.html">News</a></li>
                    <li><a href="hog_confinement.html">Hog Confinement</a></li>
                    <li><a href="contact.html">Contact Info.</a></li>
                </ul>~;
                if (!$loggedIn) {
                    print qq~
                        <ul>
                            <li><a href="/login/">Log In</a></li>
                        </ul>
                    ~;        
                }
                else {
                    print qq~
                        <ul>
                            <li><a href="/login/manage.htm">Manage Legislators</a></li>
                            <li><a href="/login/?do=Logout">Log Out</a></li>
                        </ul>
                    ~;    
                }
            print qq~</div>
        </td>
        <td valign="top" align="left" style="padding-left: 15px;">
            <h3>Legislators</h3>
~;
}

sub pageFooter {
print qq~
        </td>
    </tr>
</table>
</div>
</body>
</html>
~;
}

sub loadCookie {
    foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
            $_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            ($key,$value) = split(/=/);
            $cookies{$key} = $value;
    }
    if ($cookies{userid} && $cookies{username}) {
        $cuid   = "$cookies{userid}";
        $cuname = "$cookies{username}";
        $loggedIn = 1;
    }
    else {
        $cuid   = "";
        $cuname = "";
        $loggedIn = 0;
    }
}

sub parseForm {
    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
            $buffer = $ENV{'QUERY_STRING'};
    }   
    else {
            read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }

    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
            ($name, $value) = split(/=/, $pair);
            $value =~ tr/+/ /;
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            $input{$name} = $value;
    }

}

exit;