#!/usr/bin/perl -w
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
use DBI;

require("cookie.lib");

my $cgi = new CGI;
my $DBNAME = "jejeno";
my $DBHOST = "sql24.webhuset.no";
my $DBUSERNAME = "jejeno";
my $DBPASSWORD = "lBEvGCx9t";
my $PATH = "/cgi-bin";
my $FILENAME = "jeje.cgi";
my $error = "";
my $error2 = "";

&GetCookies('jeje_id', 'jeje_al');
if ($cgi->param('submit_login')) {
    my $email_tmp = $cgi->param('email');
    my $password_tmp = $cgi->param('password');
    
    if ($password_tmp =~ s/[^a-z0-9\_]//g) {
        $error .= "* Ugyldig tegn i passordet.<br>\n";
    }
    if ($error eq "") {
        my $query = "SELECT id, email, password, access_level FROM users;";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$id, \$email, \$password, \$access_level);
        while($sth->fetch()) {
            if ($email_tmp eq $email && $password_tmp eq $password) {
                $found = 1;
                $v1 = $id;
                $v2 = $access_level;
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
    if($found ne 1) {
        $error .= "* E-post eller passord er feil.\n";
    }
    if($error eq "") {
        &SetCookies('jeje_id', $v1);
        &SetCookies('jeje_al', $v2);
        print "Location: jeje.cgi\n\n";
        exit; 
    } else {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<script>\n");
        print("document.searchbox.sok.focus();\n");
        print("</script>\n");
        setPageHits(1);
        getHtml(-1);
        getBottom();
    }
} elsif ($cgi->param('submit_signup')) {
    my $name_tmp = $cgi->param('name');
    my $email_tmp = $cgi->param('email');
    my $password_tmp = $cgi->param('password');

    if ($password_tmp =~ s/[^a-z0-9\_]//g) {
        $error .= "* Ikke gyldig tegn, bruk a-z, 0-9 og _.<br>\n";
    }
    $len = length($password_tmp);
    if ($len <= 4) {
        $error .= "* Passordet må være minst fem tegn.<br>\n";
    }
    if ($name_tmp eq "") {
        $error .= "* Navn må fylles ut.<br>\n";
    }
    if ($email_tmp =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email_tmp !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
        $error .= "* Vennligst skriv inn en gyldig epost.<br>\n";
    }
    if ($error eq "") {
        my $query = "SELECT email, password FROM users;";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$email, \$password);
        while($sth->fetch()) {
            if ($email_tmp eq $email) {
                $found = 1;
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
    if ($found eq 1){
        $error .= "* Beklager, men denne e-post adressen finnes allerede.<br>\n";
    }

    if($error eq "") {
        my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
        my $year = 1900 + $yearOffset;
        my $month = $month + 1;
        my $date = "$year-$month-$dayOfMonth";

        my $query = "INSERT INTO users VALUES (default, '$name_tmp', '$email_tmp', '$password_tmp', '', '', '', 'nor', '$date', 0, 2);";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $dbh->disconnect;

        my $query = "SELECT id, access_level FROM users where email = '$email_tmp';";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$id, \$access_level);
        $sth->fetch();
        &SetCookies('jeje_id', $id);
        &SetCookies('jeje_al', $access_level);
        $sth->finish();
        $dbh->disconnect;
        print "Location: jeje.cgi\n\n";
        exit;
    } else {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<script>\n");
        print("document.searchbox.sok.focus();\n");
        print("</script>\n");
        setPageHits(1);
        getHtml(-1);
        getBottom();
    }
} elsif ($cgi->param('submit_user')) {
    my $name_tmp = $cgi->param('name');
    my $email_tmp = $cgi->param('email');
    my $gender = $cgi->param('gender');
    my $birthday_day = $cgi->param('birthday_day');
    my $birthday_month = $cgi->param('birthday_month');
    my $birthday_year = $cgi->param('birthday_year');
    my $postal_code = $cgi->param('postal_code');
    my $birthday = "$birthday_year-$birthday_month-$birthday_day";

    if ($name_tmp eq "") {
        $error .= "* Navn må fylles ut.<br>\n";
    }
    if ($email_tmp =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email_tmp !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
        $error .= "* Vennligst skriv inn en gyldig epost.<br>\n";
    }
    if ($error eq "") {
        my $query = "SELECT email, password FROM users WHERE id <> $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$email, \$password);
        while($sth->fetch()) {
            if ($email_tmp eq $email) {
                $found = 1;
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
    if ($found eq 1){
        $error .= "* Beklager, men denne e-post adressen finnes allerede.<br>\n";
    }
    print("Content-type: text/html\r\n\r\n");
    getTop();
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\">\n");
    print("<!-- Left box 1 begins -->");
    print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Rediger bruker / bytt passord</div></div>\n");
    print("<div class=\"left_greybox\">\n");
    if($error eq "") {
        print("På grunn av streng sikkerhet, skriv inn e-post og passord:<br>\n");
        print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
        print("<input type=\"hidden\" name=\"name_tmp\" value=\"$name_tmp\">\n");
        print("<input type=\"hidden\" name=\"email_tmp\" value=\"$email_tmp\">\n");
        print("<input type=\"hidden\" name=\"gender\" value=\"$gender\">\n");
        print("<input type=\"hidden\" name=\"birthday\" value=\"$birthday\">\n");
        if($postal_code eq "") {
            print("<input type=\"hidden\" name=\"postal_code\" value=\"0\">\n");
        } else {
            print("<input type=\"hidden\" name=\"postal_code\" value=\"$postal_code\">\n");
        }
        print("<tr><td>E-post:<td><input type=\"text\" name=\"email\"></td></td></tr>\n");
        print("<tr><td>Passord:<td><input type=\"password\" name=\"password\"></td></td></tr><br>\n");
        print("<td><input type=\"submit\" name=\"submit_security\" value=\"Ok!\"></td></td></td></tr>\n");
        print("</form></table>\n");
    } else { 
        print("<b>Rediger eller legg til nye detaljer:</b>\n");
        print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
        print("<tr><td>Navn:<td><input type=\"text\" name=\"name\" value=\"$name_tmp\"></td></td></tr>\n");
        print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" value=\"$email_tmp\"></td></td></tr><br>\n");
        print("<tr><td>Kjønn:<td><select name=\"gender\" id=\"gender\">\n");
        if($gender eq 0) {
            print("<option selected value=\"0\">Velg kjønn</option>\n");
        } else {
            print("<option value=\"0\">Velg kjønn</option>\n");
        }
        if($gender eq 1) {
            print("<option selected value=\"1\">Mann</option>\n");
        } else {
            print("<option value=\"1\">Mann</option>\n");
        }
        if($gender eq 2) {
            print("<option selected value=\"2\">Kvinne</option>\n");
        } else {
            print("<option value=\"2\">Kvinne</option>\n");
        }
        print("</select></td></tr>\n");
        ($tmp_year,$tmp_month,$tmp_day) = split('-',$birthday);
        print("<tr><td>Fødselsdato:<td><select name=\"birthday_day\" id=\"birthday_day\">\n");
        if(00 eq $tmp_day) {
            print("<option selected value=\"00\">Velg dag</option>\n");
        } else {
            print("<option value=\"00\">Velg dag</option>\n");
        }
        for($day=1;$day<=31;$day++) {
            if($day eq $tmp_day) {
                if($day < 10) {
                    print("<option selected value=\"0$day\">0$day</option>\n");
                } else {
                    print("<option selected value=\"$day\">$day</option>\n");
                }
            } else {
                if($day < 10) {
                    print("<option value=\"0$day\">0$day</option>\n");
                } else {
                    print("<option value=\"$day\">$day</option>\n");
                }
            }
        }
        print("</select>\n");
        print("<select name=\"birthday_month\" id=\"birthday_month\">\n");
        if(00 eq $tmp_month) {
            print("<option selected value=\"00\">Velg måned</option>\n");
        } else {
            print("<option value=\"00\">Velg måned</option>\n");
        }
        for($month=1;$month<=12;$month++) {
            if($month eq $tmp_month) {
                if($month < 10) {
                    print("<option selected value=\"0$month\">0$month</option>\n");
                } else {
                    print("<option selected value=\"$month\">$month</option>\n");
                }
            } else {
                if($month < 10) {
                    print("<option value=\"0$month\">0$month</option>\n");
                } else {
                    print("<option value=\"$month\">$month</option>\n");
                }
            }
        }
        print("</select>\n");
        print("<select name=\"birthday_year\" id=\"birthday_year\">\n");
        if(00 eq $tmp_year) {
            print("<option selected value=\"00\">Velg år</option>\n");
        } else {
            print("<option value=\"00\">Velg år</option>\n");
        }
        for($year=1900;$year<=2020;$year++) {
            if($year eq $tmp_year) {
                print("<option selected value=\"$year\">$year</option>\n");
            } else {
                print("<option value=\"$year\">$year</option>\n");
            }
        }
        print("</select></td></tr>\n");
        if($postal_code eq 0) {
            print("<tr><td>Postnummer:<td><input type=\"text\" name=\"postal_code\" value=\"\"></td></td></tr><br>\n");
        } else {
            print("<tr><td>Postnummer:<td><input type=\"text\" name=\"postal_code\" value=\"$postal_code\"></td></td></tr><br>\n");
        }
        print("<td><input type=\"submit\" name=\"submit_user\" value=\"Lagre!\"></td></td></td></tr>\n");
        print("</form></table>\n");
        print("<br>$error\n");
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    print("<!-- Left boxes ends -->\n");
    getBottom();
} elsif ($cgi->param('submit_security')) {
    my $name_hidden = $cgi->param('name_tmp');
    my $email_hidden = $cgi->param('email_tmp');
    my $gender = $cgi->param('gender');
    my $birthday = $cgi->param('birthday');
    my $postal_code = $cgi->param('postal_code');
    my $email_tmp = $cgi->param('email');
    my $password_tmp = $cgi->param('password');
    
    if ($password_tmp =~ s/[^a-z0-9\_]//g) {
        $error .= "* Ugyldig tegn i passordet.<br>\n";
    }
    if ($error eq "") {
        my $query = "SELECT id, email, password, access_level FROM users WHERE id = $Cookies{'jeje_id'};;";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$id, \$email, \$password, \$access_level);
        while($sth->fetch()) {
            if ($email_tmp eq $email && $password_tmp eq $password) {
                $found = 1;
                $v1 = $id;
                $v2 = $access_level;
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
    if($found ne 1) {
        $error .= "* E-post eller passord er feil.\n";
    }
    
    print("Content-type: text/html\r\n\r\n");
    getTop();
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\">\n");
    print("<!-- Left box 1 begins -->");
    print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Rediger bruker / bytt passord</div></div>\n");
    print("<div class=\"left_greybox\">\n");
    if($error eq "") {
        my $query = "UPDATE users SET name = '$name_hidden', email = '$email_hidden', gender = $gender, birthday = '$birthday', postal_code = $postal_code WHERE id = $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $dbh->disconnect;
        print("Brukeren er endret!<br>\n");
        print "<meta http-equiv=\"refresh\" content=\"3;url=$PATH/$FILENAME\">\n";
    } else { 
        print("På grunn av streng sikkerhet, skriv inn e-post og passord:<br>\n");
        print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
        print("<input type=\"hidden\" name=\"name_tmp\" value=\"$name_hidden\">\n");
        print("<input type=\"hidden\" name=\"email_tmp\" value=\"$email_hidden\">\n");
        print("<input type=\"hidden\" name=\"gender\" value=\"$gender\">\n");
        print("<input type=\"hidden\" name=\"birthday\" value=\"$birthday\">\n");
        print("<input type=\"hidden\" name=\"postal_code\" value=\"$postal_code\">\n");
        print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" value=\"$email_tmp\"></td></td></tr>\n");
        print("<tr><td>Passord:<td><input type=\"password\" name=\"password\" value=\"$password_tmp\"></td></td></tr><br>\n");
        print("<td><input type=\"submit\" name=\"submit_security\" value=\"Ok!\"></td></td></td></tr>\n");
        print("</form></table>\n");
        print("<br>$error\n");
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    print("<!-- Left boxes ends -->\n");
    getBottom();
} elsif ($cgi->param('submit_pass')) {
    my $old_password = $cgi->param('old_password');
    my $new_password1 = $cgi->param('new_password1');
    my $new_password2 = $cgi->param('new_password2');

    my $query = "SELECT password FROM users WHERE id = $Cookies{'jeje_id'};";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$password);
    $sth->fetch();
    if ($old_password eq $password) {
        $found = 1;
    }
    $sth->finish();
    $dbh->disconnect;
    if ($found ne 1){
        $error .= "* Gammelt passord stemmer ikke.<br>\n";
    }
    if ($new_password1 =~ s/[^a-z0-9\_]//g) {
        $error .= "* Ikke gyldig tegn i nytt passord, bruk a-z, 0-9 og _.<br>\n";
    }
    if ($new_password1 ne $new_password2) {
        $error .= "* Nytt passord og gjenta nytt passord er forskjellig.<br>\n";
    }
    $len = length($new_password1);
    if ($len <= 4) {
        $error .= "* Nye passordet må være minst fem tegn.<br>\n";
    }
    print("Content-type: text/html\r\n\r\n");
    getTop();
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\">\n");
    print("<!-- Left box 1 begins -->");
    print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Rediger bruker / bytt passord</div></div>\n");
    print("<div class=\"left_greybox\">\n");
    if($error eq "") {
        my $query = "UPDATE users SET password = '$new_password1' WHERE id = $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $dbh->disconnect;
        print("Passordet er endret!<br>\n");
        print "<meta http-equiv=\"refresh\" content=\"3;url=$PATH/$FILENAME\">\n";
    } else {
        print("<b>Bytt passord:</b>\n");
        print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
        print("<tr><td>Gammelt passord:<td><input type=\"password\" name=\"old_password\" value=\"$old_password\"></td></td></tr>\n");
        print("<tr><td>Nytt passord:<td><input type=\"password\" name=\"new_password1\" value=\"$new_password1\"></td></td></tr><br>\n");
        print("<tr><td>Gjenta nytt passord:<td><input type=\"password\" name=\"new_password2\" value=\"$new_password2\"></td></td></tr>\n");
        print("<td><input type=\"submit\" name=\"submit_pass\" value=\"Bytt!\"></td></td></td></tr>\n");
        print("</form></table>\n");
        print("<br>$error\n");
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    print("<!-- Left boxes ends -->\n");
    getBottom();
} elsif ($cgi->param('submit_sendpass')) {
    my $email_tmp = $cgi->param('password_email');

    if ($email_tmp =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email_tmp !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
        $error2 .= "* Vennligst skriv inn en gyldig epost.<br>\n";
    }
    if ($error2 eq "") {
        my $query = "SELECT email FROM users;";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$email);
        while($sth->fetch()) {
            if ($email_tmp eq $email) {
                $found = 1;
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
    if ($found ne 1){
        $error2 .= "* Beklager, men denne e-post adressen finnes ikke / er ikke registrert.<br>\n";
    }
    print("Content-type: text/html\r\n\r\n");
    getTop();
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\">\n");
    print("<!-- Left box 1 begins -->");
    print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Glemt passordet ditt?</div></div>\n");
    print("<div class=\"left_greybox\">\n");
    if($error2 eq "") {
        sendPassword($email_tmp);
        print("Passordet er sendt til e-post adresse: $email_tmp.<br>\n");
        print "<meta http-equiv=\"refresh\" content=\"4;url=$PATH/$FILENAME\">\n";
    } else { 
        print("Skriv inn e-post adressen som passordet skal sendes til.<br>\n");
        print("Denne e-postadressen må være identisk med din registrerte e-postadresse.<br>\n");
        print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
        print("<tr><td>E-post:<td><input type=\"text\" name=\"password_email\" value=\"$email_tmp\"></td></td></tr><br>\n");
        print("<td><input type=\"submit\" name=\"submit_sendpass\" value=\"Send passord!\"></td></td></td></tr>\n");
        print("</form></table>\n");
        print("<br>$error2\n");
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    print("<!-- Left boxes ends -->\n");
    getBottom();
} elsif($cgi->param('submit_link')) {
    print("Content-type: text/html\r\n\r\n");
    getTop();
    my $title = $cgi->param('title');
    my $description = $cgi->param('description');
    my $url = $cgi->param('url');
    my $search_words = $cgi->param('search_words');
    my $cat_id = $cgi->param('cat_id');

    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\"\n>");
    print("<!-- Left box 1 begins -->\n");
    print("<div class=\"left_greybox_top\"><div class=\"icon_action_add font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Legg til nettsted</div></div>\n");
    print("<div class=\"left_greybox\">\n");

    if($title eq "" || $url eq "" || $url eq "http://www.") {
        getAddLinkHtmlError($title, $description, $url, $search_words, $cat_id);
    } else { 
        addLink($title, $description, $url, $search_words, $cat_id);
        print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Nettsiden $title er sendt til godkjenning..<br>\n");
        print("Hvis dette er en seriøs nettside, vil den være tilgjengelig for alle innen 24 timer.<br>\n");
        print("Tusen takk for bidraget!<br><br>..JEJE.no!</div><br><br><br><br><br>\n");
        print "<meta http-equiv=\"refresh\" content=\"12;url=$PATH/$FILENAME\">\n";
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    getBottom();
} elsif($cgi->param('submit_cat')) {
    print("Content-type: text/html\r\n\r\n");
    getTop();
    my $title = $cgi->param('title');
    my $search_words = $cgi->param('search_words');
    my $parent_id = $cgi->param('parent_id');
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\"\n>");
    print("<!-- Left box 1 begins -->\n");
    print("<div class=\"left_greybox_top\"><div class=\"icon_action_add font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Legg til kategori</div></div>\n");
    print("<div class=\"left_greybox\">\n");

    if($title eq "") {
        getAddCatHtmlError($title, $search_words, $parent_id);
    } else { 
        print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Kategorien $title er sendt til godkjenning..<br>\n");
        print("Hvis dette er en seriøs kategori, vil den være tilgjengelig for alle innen 24 timer.<br>\n");
        print("Tusen takk for bidraget!<br><br>..JEJE.no!</div><br><br><br><br><br>\n");
        print("<meta http-equiv=\"refresh\" content=\"12;url=$PATH/$FILENAME\">\n");
        addCat($title, $search_words, $parent_id);
    }
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    getCatBar();
    print("</div>\n");
    getBottom();
} elsif($cgi->param('cat_id')) {
    print("Content-type: text/html\r\n\r\n");
    getTop();
    my $cat_id = $cgi->param('cat_id');
    getHtml($cat_id);
    setCatHits($cat_id);
    getBottom();
} elsif($cgi->param('submit_mail')) {
    print("Content-type: text/html\r\n\r\n");
    getTop();
    my $from = $cgi->param('from');
    my $subject = $cgi->param('subject');
    my $message = $cgi->param('message');
    sendMail($from, $subject, $message);
    print("<!-- Left boxes begins -->\n");
    print("<div class=\"left_content\"\n>");
    print("<!-- Left box 1 begins -->\n");
    print("<div class=\"left_greybox_top\">E-post sendt!</div>\n");
    print("<div class=\"left_greybox\">\n");
    print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">E-post er sendt til support\@jeje.no..<br>\n");
    print("Hvis det er en svaradresse, så vil det komme svar tilbake innen 24 timer..<br>\n");
    print("..JEJE.no!</div><br><br><br><br><br>\n");
    print("</div>\n");
    print("<!-- Left box 1 ends -->\n");
    print("</div>\n");
    print "<meta http-equiv=\"refresh\" content=\"12;url=$PATH/$FILENAME\">\n";
    getBottom();
} elsif($cgi->param('action')) {
    my $action = $cgi->param('action');
    my $id = $cgi->param('id');
    if($action eq "1") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        setPageHits(3);
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_photo font_btn_with_text\"></div><div class=\"font_text_with_btn\">Ukens bilde</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getPic();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "2") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div>\n");
        print("<div class=\"font_text_with_btn\">TOPP 100!</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        print("Nedenfor vil du finne de <b>100</b> mest besøkte sidene på <a href=\"$FILENAME\">JEJE.no</a>!\n");
        print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        setPageHits(8);
        getTopp100();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "3") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_file font_btn_with_text\"></div>\n");
        print("<div class=\"font_text_with_btn\">Siste 10</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        print("Nedenfor vil du finne de <b>10</b> siste / nyeste sidene på <a href=\"$FILENAME\">JEJE.no</a>!\n");
        print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        setPageHits(9);
        getLast10();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "4") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        setPageHits(4);
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_action_add font_btn_with_text\"></div><div class=\"font_text_with_btn\">Legg til kategori</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getAddCatHtml();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "5") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        setPageHits(5);
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_action_add font_btn_with_text\"></div><div class=\"font_text_with_btn\">Legg til nettsted</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getAddLinkHtml();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "6") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        setPageHits(6);
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_info font_btn_with_text\"></div><div class=\"font_text_with_btn\">Informasjon</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getInfo();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "7") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        setPageHits(7);
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_mail font_btn_with_text\"></div><div class=\"font_text_with_btn\">Kontakt oss</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getSendMail();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "8") {
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            print("Content-type: text/html\r\n\r\n");
            getTop();
            print("<!-- Left boxes begins -->\n");
            print("<div class=\"left_content\">\n");
            print("<!-- Left box 1 begins -->");
            print("<div class=\"left_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Legg til favoritter</div></div>\n");
            print("<div class=\"left_greybox\">\n");
            addFavorite($Cookies{'jeje_id'}, $id);
            print("</div>\n");
            print("<!-- Left box 1 ends -->\n");
            getCatBar();
            print("</div>\n");
            print("<!-- Left boxes ends -->\n");
            getBottom();
        } else {
            print "Location: jeje.cgi\n\n";
            exit;
        }
    } elsif($action eq "9") {
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            my $query = "SELECT link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
            $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$link_id);
            my $count = 0;
            while($sth->fetch()) {
                $count = $count + 1;
            }
            $sth->finish();
            $dbh->disconnect;
            if($count == 0) {
                print "Location: jeje.cgi\n\n";
                exit; 
            } else {
                print("Content-type: text/html\r\n\r\n");
                getTop();
                print("<!-- Left boxes begins -->\n");
                print("<div class=\"left_content\">\n");
                print("<!-- Left box 1 begins -->");
                print("<div class=\"left_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div>\n");
                print("<div class=\"font_text_with_btn\">Rediger favoritter</div></div>\n");
                print("<div class=\"left_greybox\">\n");
                editFavorites();
                print("</div>\n");
                print("<!-- Left box 1 ends -->\n");
                getCatBar();
                print("</div>\n");
                print("<!-- Left boxes ends -->\n");
                getBottom();
            }
        } else {
            print "Location: jeje.cgi\n\n";
            exit;
        }
    } elsif($action eq "10") {
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            print("Content-type: text/html\r\n\r\n");
            getTop();
            print("<!-- Left boxes begins -->\n");
            print("<div class=\"left_content\">\n");
            print("<!-- Left box 1 begins -->");
            print("<div class=\"left_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Rediger favoritter</div></div>\n");
            print("<div class=\"left_greybox\">\n");
            delFavorite($id);
            print("</div>\n");
            print("<!-- Left box 1 ends -->\n");
            getCatBar();
            print("</div>\n");
            print("<!-- Left boxes ends -->\n");
            getBottom();
        } else {
            print "Location: jeje.cgi\n\n";
            exit;
        }
    } elsif ($action eq "11") {
        &SetCookies('jeje_id', "");
        &SetCookies('jeje_al', "");
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
        print("<div class=\"font_text_with_btn\">Logget ut!</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        print("<b>Du er nå logget ut!</b><br><br>\n");
        #print("TIPS: Hvis du har en datamaskin som du eier eller bruker mye, ikke logg deg ut!<br> Neste gang du bruker <a href=\"../\">JEJE.no</a> og du ikke har logget deg ut, er favoritter og de andre personlige elementene tilgjengelig med en gang! Altså du slipper å logge deg inn for hver gang.<br> Brukerinformasjonen og passordet ditt er beskyttet med at du må gjenta e-post og passord når endringer gjøres.\n");
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
        print "<meta http-equiv=\"refresh\" content=\"1;url=$PATH/$FILENAME\">\n";
    } elsif ($action eq "12") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<script>\n");
        print("document.searchbox.sok.focus();\n");
        print("</script>\n");
        setPageHits(1);
        getHtml(-1);
        getBottom();
    } elsif($action eq "13") {
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            print("Content-type: text/html\r\n\r\n");
            getTop();
            print("<!-- Left boxes begins -->\n");
            print("<div class=\"left_content\">\n");
            print("<!-- Left box 1 begins -->");
            print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Rediger bruker / bytt passord</div></div>\n");
            print("<div class=\"left_greybox\">\n");
            getEditUser();
            print("</div>\n");
            print("<!-- Left box 1 ends -->\n");
            getCatBar();
            print("</div>\n");
            print("<!-- Left boxes ends -->\n");
            getBottom();
        } else {
            print "Location: jeje.cgi\n\n";
            exit;
        }
    } elsif($action eq "14") {
        print("Content-type: text/html\r\n\r\n");
        getTop();
        print("<!-- Left boxes begins -->\n");
        print("<div class=\"left_content\">\n");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
        print("<div class=\"font_text_with_btn\">Glemt passordet ditt?</div></div>\n");
        print("<div class=\"left_greybox\">\n");
        getSendPassword();
        print("</div>\n");
        print("<!-- Left box 1 ends -->\n");
        getCatBar();
        print("</div>\n");
        print("<!-- Left boxes ends -->\n");
        getBottom();
    } elsif($action eq "15") {
    	my $color_id = $cgi->param('color_id');
    	my $query = "UPDATE users SET top_color = $color_id WHERE id=$Cookies{'jeje_id'};";
    	$dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    	$sth = $dbh->prepare($query);
    	$sth->execute();
    	$dbh->disconnect;
        print "Location: jeje.cgi\n\n";
        exit;
    }
} else {
    print("Content-type: text/html\r\n\r\n");
    getTop();
    print("<script>\n");
    print("document.searchbox.sok.focus();\n");
    print("</script>\n");
    setPageHits(1);
    getHtml(-1);
    getBottom();
}

sub getHtml {
	my ($cat_id) = @_;
	print("<!-- Left boxes begins -->\n");
	print("<div class=\"left_content\">\n");
	if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "" && $cat_id eq -1) {
		getBirthday($Cookies{'jeje_id'});
	}
	if($cat_id eq -1) {
		#print("<!-- Left box news begins -->");
		#print("<div class=\"left_greybox_top\"><div class=\"icon_file font_btn_with_text\"></div>\n");
		#print("<div class=\"font_text_with_btn2\">Nyheter</div></div>\n");
		#print("<div class=\"left_greybox\">\n");
		#print("<table>\n");
		#print("<tr><td>");
		#getVG();
		#print("<td>");
		#getDB();
		#print("</td></td></tr></table>");
	        #print("</div>\n");
		#print("<!-- Left box news ends -->\n");
    		#print("<div id=\"space_line\"></div>\n");
	}
	print("<!-- Left box 1 begins -->\n");
	print("<div class=\"left_greybox_top\"><div class=\"icon_folder font_btn_with_text\"></div>\n");
	print("<div class=\"font_text_with_btn2\">Arkiv</div></div>\n");
	print("<div class=\"left_greybox\">\n");
	getPosition($cat_id);
	getCat($cat_id);
	print("</div>\n");
	print("<!-- Left box 1 ends -->\n");
	if($cat_id != -1) {
		print("<div id=\"space_line\"></div>\n");
		print("<!-- Left box 2 begins -->\n");
		print("<div class=\"left_greybox_top\"><div class=\"icon_file font_btn_with_text\"></div>\n");
		print("<div class=\"font_text_with_btn\">Nettsider</div></div>\n");
		print("<div class=\"left_greybox\">\n");
		getLink($cat_id);
		print("</div>\n");
		print("<!-- Left box 2 ends -->\n");
	}
	print("</div>\n");
	print("<!-- Left boxes ends -->\n");
}

sub getCatBar {
    my $cat_id = -1;
    print("<div id=\"space_line\"></div>\n");
    print("<!-- Left box 2 begins -->\n");
    print("<div class=\"left_greybox_top\"><div class=\"icon_folder font_btn_with_text\"></div>\n");
    print("<div class=\"font_text_with_btn\">Arkiv</div></div>\n");
    print("<div class=\"left_greybox\">\n");
    getPosition($cat_id);
    getCat($cat_id);
    print("</div>\n");
    print("<!-- Left box 2 ends -->\n");
}

sub getAddLinkHtml {
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Tittel:<td><input type=\"text\" name=\"title\"><td><span>*</span></td></td></td></tr>\n");
    print("<tr><td>Beskrivelse:<td><input type=\"text\" name=\"description\"></td></td></tr>\n");
    print("<tr><td>Url:<td><input type=\"text\" name=\"url\" value=\"http://www.\"><td><span>*</span></td></td></td></tr>\n");
    print("<tr><td>Søkeord:<td><input type=\"text\" name=\"search_words\"></td></td></tr>\n");
    my $query = "SELECT id, title FROM cat order by title;";	
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    print "<tr><td>Kategori:<td><select name=\"cat_id\" id=\"cat_id\">\n";
    print "<option selected value=\"-1\">Velg kategori</option>\n";
    while($sth->fetch()) {
        print "<option value=\"$id\">$title</option>\n";
    }
    print "</select></td></td></tr>\n";
    $sth->finish();
    $dbh->disconnect;
    print("<tr><td><input type=\"submit\" name=\"submit_link\" value=\"Lagre!\"></td></tr>\n");
    print("</form></table>\n");
    print("<br><span>*</span> er felter som må fylles ut!\n");
}

sub getAddLinkHtmlError {
    my ($title, $description, $url, $search_words, $cat_id) = @_;
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    if($title eq "") {
        print("<tr><td>Tittel:<td><input type=\"text\" name=\"title\" value=\"$title\"><td><span class=\"font_text_red\">*</span></td></td></td></tr>\n");
    } else {
        print("<tr><td>Tittel:<td><input type=\"text\" name=\"title\" value=\"$title\"></td></td></tr>\n");
    }
    print("<tr><td>Beskrivelse:<td><input type=\"text\" name=\"description\" value=\"$description\"></td></td></tr>\n");
    if($url eq "" || $url eq "http://www.") {
        print("<tr><td>Url:<td><input type=\"text\" name=\"url\" value=\"$url\"><td><span class=\"font_text_red\">*</span></td></td></td></tr>\n");
    } else {
        print("<tr><td>Url:<td><input type=\"text\" name=\"url\" value=\"$url\"></td></td></tr>\n");
    }
    print("<tr><td>Søkeord:<td><input type=\"text\" name=\"search_words\" value=\"$search_words\"></td></td></tr>\n");
    my $query = "SELECT id, title FROM cat order by title;";	
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    print "<tr><td>Kategori:<td><select name=\"cat_id\" id=\"cat_id\">\n";
    if($id == $cat_id) {
        print "<option selected value=\"-1\">Velg kategori</option>\n";
    } else {
        print "<option value=\"-1\">Velg kategori</option>\n";
    }
    while($sth->fetch()) {
        if($id == $cat_id) {
            print "<option selected value=\"$id\">$title</option>\n";
        } else {
            print "<option value=\"$id\">$title</option>\n";
        }
    }
    print "</select>\n";
    $sth->finish();
    $dbh->disconnect;
    print("<td><input type=\"image\" name=\"submit_link\" src=\"/img/icons/save.png\" alt=\"Lagre!\"></td></td></td></tr>\n");
    print("</form></table>\n");
    print("<br><span class=\"font_text_red\">*</span> er felter som må fylles ut!\n");
}

sub getAddCatHtml {
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Tittel:<td><input type=\"text\" name=\"title\"><td><span>*</span></td></td></td></tr>\n");
    print("<tr><td>Søkeord:<td><input type=\"text\" name=\"search_words\"></td></td></tr>\n");
    my $query = "SELECT id, title FROM cat order by title;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    print "<tr><td>Underkategori:<td><select name=\"parent_id\" id=\"parent_id\">\n";
    print "<option selected value=\"-1\">Velg underkategori</option>\n";
    while($sth->fetch()) {
        print "<option value=\"$id\">$title</option>\n";
    }
    print "</select></td></td></tr>\n";
    $sth->finish();
    $dbh->disconnect;
    print("<tr><td><input type=\"submit\" name=\"submit_cat\" value=\"Lagre!\"></td></tr>\n");
    print("</form></table>\n");
    print("<br><span>*</span> er felter som må fylles ut!\n");
}

sub getAddCatHtmlError {
    my ($title, $search_words, $parent_id) = @_;
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Tittel:<td><input type=\"text\" name=\"title\" value=\"$title\"><td><span class=\"font_text_red\">*</span></td></td></td></tr>\n");
    print("<tr><td>Search_words:<td><input type=\"text\" name=\"search_words\" value=\"$search_words\"></td></td></tr>\n");
    my $query = "SELECT id, title FROM cat order by title;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    print "<tr><td>Underkategori:<td><select name=\"parent_id\" id=\"parent_id\">\n";
    if($id == $cat_id) {
        print "<option selected value=\"-1\">Velg underkategori</option>\n";
    } else {
        print "<option value=\"-1\">Velg underkategori</option>\n";
    }
    while($sth->fetch()) {
        if($id == $parent_id) {
            print "<option selected value=\"$id\">$title</option>\n";
        } else {
            print "<option value=\"$id\">$title</option>\n";
        }
    }
    print "</select>\n";
    $sth->finish();
    $dbh->disconnect;
    print("<td><input type=\"image\" name=\"submit_cat\" title=\"Lagre\" src=\"/img/icons/save.png\"></td></td></td></tr>\n");
    print("</form></table>\n");
    print("<br><span class=\"font_text_red\">*</span> er felter som må fylles ut!\n");
}

sub getPosition {
    my ($cat_id) = @_;

    if($cat_id == -1) {
        print("\n");
	} else {
        my $query = "SELECT title, parent_id FROM cat WHERE id=$cat_id";
        my $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        my $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$title, \$parent_id);
        $sth->fetch();
        my $this_title = $title;
		my $query2 = "SELECT id, title FROM cat WHERE id=$parent_id";
		my $sth2 = $dbh->prepare($query2);
		$sth2->execute();
		$sth2->bind_columns(\$id, \$title);
		$sth2->fetch();
		print("<div id=\"folder_back\" class=\"cat_line\">\n");
        print("<div class=\"icon_arrow_back font_btn_with_text\"></div>\n");
        print("<a href=\"$PATH/$FILENAME?cat_id=$id\"><div class=\"font_text_with_btn font_pointer\">Tilbake</div></a></div>\n");
		print("<div id=\"current_folder\" class=\"cat_line\">\n");
        print("<div class=\"icon_folder_open font_btn_with_text\"></div><div class=\"font_text_with_btn2 font_text_bold\">" . fixNorChar($this_title) . "</div></a><br></div>\n");
        $sth->finish();
		$sth2->finish();
        $dbh->disconnect;
    }
}

sub getCat {
    my ($cat_id) = @_;
    my $query = "SELECT id, title FROM cat WHERE parent_id=" . $cat_id . " order by title;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    
    my $query2 = "SELECT count(id) as total_cat FROM cat WHERE parent_id=" . $cat_id . ";";
    $sth2 = $dbh->prepare($query2);
    $sth2->execute();
    $sth2->bind_columns(\$total_cat);
    $sth2->fetch();

    my $height = 124;
    my $count = 0;
    if($total_cat < 8) {
        $height = ($total_cat * 18);
    }
    while($sth->fetch()) {
		$count = $count + 1;
        if($count == 1) {
            print "<div id=\"all_cat\" style=\"height: " . $height . "px\"><div id=\"cat_left\">\n";
        }
        if($count == 9) {
            print "</div>\n";
            print "<div id=\"cat_middle\">\n";
        }
        if($count == 17) {
            print "</div>\n";
            print "<div id=\"cat_right\">\n";
        }
		print "<div id=\"cat$count\" class=\"cat_line\">\n";
        print "<div id=\"cat_folder\" class=\"icon_folder font_btn_with_text\"></div>\n";
        print "<a href=\"$PATH/$FILENAME?cat_id=$id\"><div id=\"cat_folder_text\" class=\"font_text_with_btn2 font_pointer\">" . fixNorChar($title) . "</div></a></div>\n";
    }
    if($count >= 1) {
        print "</div></div>\n";
    }
    if($count == 0 and $cat_id != -1) {
        print "<br><div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Ingen underkategorier...</div><br>\n";
    }
    $sth->finish();
    $sth2->finish();
	$dbh->disconnect;
}

# Function addData insert into sql a pending_link..
sub addLink {
    my ($title, $description, $url, $search_words, $cat_id) = @_;
    my $query = "INSERT INTO pending_link VALUES (default, '$title', '$description', '$url', '$search_words', $cat_id, 0);";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
}

# Function addData insert into sql a pending_cat..
sub addCat {
    my ($title, $search_words, $parent_id) = @_;
    my $query = "INSERT INTO pending_cat VALUES (default, '$title', '$search_words', $parent_id, 0);";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
}

sub getLink {
    my ($cat_id) = @_;
    my $query = "SELECT id, title, description, hits FROM link WHERE cat_id=$cat_id order by title;";

    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title, \$description, \$hits);
	my $count = 0;
    while($sth->fetch()) {
		$count = $count + 1; 
        if($count ne 1 and $count ne 2) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            my $found = 0;
            my $query = "SELECT user_id, link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
            $sth2 = $dbh->prepare($query);
            $sth2->execute();
            $sth2->bind_columns(\$user_id, \$link_id);
            while($sth2->fetch()) {
                if($user_id eq $Cookies{'jeje_id'} && $link_id eq $id) {
                    $found = 1;
                }
            }
            $sth2->finish();

            if($found ne 1) {
                print("<span class=\"right\"><a href=\"$FILENAME?action=8&id=$id\" title=\"Legg " . fixNorChar($title) . " i favoritter!\"><div class=\"icon_star font_pointer\"></div></a></span>\n");  
            }
        }
        print("<div><div class=\"link_line\"><div class=\"icon_file font_btn_with_text\"></div><a href=\"$PATH/link.cgi?id=$id\" target=\"_new$id\"><div class=\"font_text_with_btn font_pointer\"><b>" . fixNorChar($title) . "</b></div></a></div>\n");
        if($description ne "") {
            print "<div class=\"font_text_with_btn3\">" . fixNorChar($description) . "</div>\n";
        }
        print("</div>\n");
        if($count eq 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
    }
    if($count eq 0) {
        print "<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Ingen nettsider i denne katalogen...</div><br>\n";
    }
    $sth->finish();
    $dbh->disconnect;
}

# Function setCatHits updates the sql with count of hits..
sub setCatHits {
    my ($cat_id) = @_;
    my $query = "UPDATE cat SET hits = hits + 1 WHERE id=" . $cat_id . ";";

    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
}

sub setPageHits {
    my ($id) = @_;
    my $query = "UPDATE page_hits SET hits = hits + 1 WHERE id=$id;";

    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
}

sub getInfo {
    #open (FILE,"info.txt");
    #$mainpage = "";
    #while (<FILE>) {
    #    $mainpage .= $_;
    #}
    #close (FILE);
    print("<b>Hvorfor bruke <a href=\"../\">JEJE.no</a>?</b><br>\n");
    print("<a href=\"../\">JEJE.no</a> - Lett å nett!, en enkel vei ut på det store Internett.<br>\n");
    print("Denne startsiden har i motsetning til andre startsider en ren og fin meny som gjør det enkelt for brukerne å finne hva de måtte lete etter.<br>\n");
    print("Utseende har også et preg av enkelhet for at det skal bli oversiktlig og klar til bruk for enhver person som måtte ønske det.<br>\n");
    print("Så kom å bruk snareveier til søkemotorer og legg til dine favorittsider slik at du raskt og enkelt kan finne de igjen når du skal på internett!<br>\n");
    print("Har du en nettside som du liker godt er det bare å legge den til slik at <a href=\"../\">JEJE.no</a> blir større, og at andre brukere kan få glede av den også!<br><br>\n");
    print("<b>Hvorfor registrere seg på <a href=\"../\">JEJE.no</a>?</b><br>\n");
    print("Det tar deg nesten like lang tid å registrere deg som å logge deg inn på <a href=\"../\">JEJE.no</a>..<br> Med kun; navn, e-post og passord så er du registrert!<br>\n");
    print("Fordelen ved å være registrert er at du får tilgang til å legge til favoritter og bruke disse som snarvei. Du får også muligheten til å gjøre <a href=\"../\">JEJE.no</a> til en mer personlig startside.\n");
}

sub getPic {
    my $query = "SELECT id, day, month, year, url FROM picture;";
    my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
    my $year = 1900 + $yearOffset;
    my $month = $month + 1;
    my $theTime = "$dayOfMonth.$month.$year";

    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$day, \$month, \$year, \$url);
    while($sth->fetch()) {
        my $theTime2 = "";
    	for($i=0;$i<=6;$i++) {
            my $theTime2 = "" . ($day+$i) . ".$month.$year";
            if($theTime eq $theTime2) {
            	print("<img src=\"$url\" width=\"567px\">\n");
            	setPicHits($id);
		last;
            }
 	}
    }
    $sth->finish();
    $dbh->disconnect;
}

# Function setHits updates the sql with count of hits..
sub setPicHits {
    my ($id) = @_;
    my $query = "UPDATE picture SET hits = hits + 1 WHERE id=$id;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
}

sub getSendMail {
    print("Spørsmål? Send oss en e-post!<br><br>");
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Til:<td><a href=\"mailto: support\@jeje.no\" title=\"Send e-post!\">support\@jeje.no</a></td></td></tr>\n");
    print("<tr><td>Fra:<td><input type=\"text\" name=\"from\"></td></td></tr>\n");
    print("<tr><td>Subjekt:<td><input type=\"text\" name=\"subject\"></td></td></tr>\n");
    print("<tr><td>Melding:<td><textarea name=\"message\"  rows=\"10\" cols=\"40\"></textarea>\n");
    print("<td><input type=\"submit\" name=\"submit_mail\" value=\"Send!\"></td></td></td></tr>\n");
    print("</form></table>\n");
}

sub sendMail {
    my ($from, $subject, $message) = @_;
    if($from eq "") {
        $from = "anonym\@jeje.no";
    }
    open (MAIL, "|/usr/sbin/sendmail -t");
    print MAIL "From: $from\n";
    print MAIL "To: support\@jeje.no\n";
    print MAIL "Subject: SUPPORT: $subject\n\n";
    print MAIL "$message";
    close(MAIL);
}

sub getTop {
    print("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n");
    print("<html>\n");
    print("<head>\n");
    print("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n");
    print("<meta name=\"keywords\" content=\"jeje, startside, bil, motor, sport, nettbutikk, helse, mat, drikke, ungdom, barn, bolig, film, musikk, nyheter\">\n");
    print("<meta name=\"copyright\" content=\"Copyright(c) 2008 JEJE.no\">\n");
    print("<meta name=\"description\" content=\"JEJE.no - Lett paa nett! JEJE.no er en startside som alle kan bruke. En personlig, enkel og rask vei ut paa det store Internett!\">\n");
    print("    <meta name=\"distribution\" content=\"global\">\n");
    print("    <meta name=\"robots\" content=\"index,follow\">\n");
    print("    <meta http-equiv=\"Content-Style-Type\" content=\"text/css\">\n");
    print("    <meta http-equiv=\"Content-Script-Type\" content=\"text/javascript\">\n");
    print("    <link rel=\"stylesheet\" type=\"text/css\" href=\"/css/jeje.css\" title=\"standard\" media=\"screen\">\n");
    print("<link rel=\"shortcut icon\" href=\"/img/icons3/61.png\" type=\"image/x-icon\" />\n");
    print("    <title>JEJE.no - Lett på nett!</title>\n");
    print("  </head>\n");
    print("  <body>\n");
    print("    <div id=\"ads_top\"><a href=\"https://trustbuddy.com/no/?utm_source=jeje.no&utm_medium=banner&utm_content=728x90&utm_campaign=pk\" title=\"trustBuddy\" target=\"_new\"><img src=\"/img/trustbuddy_728x90.gif\" alt=\"\" title=\"trustBuddy\" border=\"0\" height=\"90\" width=\"728\"></a></div>\n");
    print("    <div id=\"main\">\n");
    print("      <div id=\"main_bg\">\n");
    print("        <div id=\"header\">\n");
    print("          <div id=\"header_img\">\n");
    if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
        my $query = "SELECT top_color FROM users where id = $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$top_color);
        $sth->fetch();
        my $color_id = $top_color;
        $sth->finish();
        $dbh->disconnect;

	if($color_id ne 0) {
      	    my $query2 = "SELECT top_url, header_url FROM top_color where id = $color_id;";
            $dbh2 = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
            $sth2 = $dbh2->prepare($query2);
            $sth2->execute();
            $sth2->bind_columns(\$top_url, \$header_url);
            $sth2->fetch();
    	    print("            <a href=\"/cgi-bin/jeje.cgi\" title=\"JEJE.no - Lett på nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett på nett!\" height=\"62\" width=\"500\"></a>\n");
	    print("<style type=\"text/css\">#header { position: absolute; left: 0; top: 0; width: 1000px; height: 62px; background: url(\"..$header_url\") repeat-x; }</style>\n");
            $sth2->finish();
            $dbh2->disconnect;
	} else {
            my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
	    my $color_id = 1;
	    if($dayOfWeek eq 0) {
		$color_id = 1;
	    } elsif($dayOfWeek eq 1) {
		$color_id = 1;
	    } elsif($dayOfWeek eq 2) {
		$color_id = 2;
	    } elsif($dayOfWeek eq 3) {
		$color_id = 3;
	    } elsif($dayOfWeek eq 4) {
		$color_id = 4;
	    } elsif($dayOfWeek eq 5) {
		$color_id = 5;
	    } elsif($dayOfWeek eq 6) {
		$color_id = 1;
	    }

	    my $query = "SELECT top_url, header_url FROM top_color where id = $color_id;";
            $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$top_url, \$header_url);
            $sth->fetch();
    	    print("            <a href=\"/cgi-bin/jeje.cgi\" title=\"JEJE.no - Lett på nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett på nett!\" height=\"62\" width=\"500\"></a>\n");
	    print("<style type=\"text/css\">#header { position: absolute; left: 0; top: 0; width: 1000px; height: 62px; background: url(\"..$header_url\") repeat-x; }</style>\n");
            $sth->finish();
            $dbh->disconnect;
	}
    } else {
            my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
	    my $color_id = 1;
	    if($dayOfWeek eq 0) {
		$color_id = 1;
	    } elsif($dayOfWeek eq 1) {
		$color_id = 1;
	    } elsif($dayOfWeek eq 2) {
		$color_id = 2;
	    } elsif($dayOfWeek eq 3) {
		$color_id = 3;
	    } elsif($dayOfWeek eq 4) {
		$color_id = 4;
	    } elsif($dayOfWeek eq 5) {
		$color_id = 5;
	    } elsif($dayOfWeek eq 6) {
		$color_id = 1;
	    }

	    my $query = "SELECT top_url, header_url FROM top_color where id = $color_id;";
            $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$top_url, \$header_url);
            $sth->fetch();
    	    print("            <a href=\"/cgi-bin/jeje.cgi\" title=\"JEJE.no - Lett på nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett på nett!\" height=\"62\" width=\"500\"></a>\n");
	    print("<style type=\"text/css\">#header { position: absolute; left: 0; top: 0; width: 1000px; height: 62px; background: url(\"..$header_url\") repeat-x; }</style>\n");
            $sth->finish();
            $dbh->disconnect;
    }
    print("          </div>\n");
	print("          <font color=\"#FFFFFF\" size=\"2\">");
	getCountDown();
	print("</font>\n");
    print("          <div id=\"srchbox\">\n");
    print("            <!-- Search begins -->\n");
    my $query = "SELECT title, search_word FROM top_search ORDER BY search_index;";

    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$title, \$search_word);
    print("            <form id=\"searchbox\" name=\"searchbox\" method=\"post\" action=\"http://www.jeje.no/cgi-bin/sok.cgi\">\n");
    print("              <select name=\"navn\" id=\"navn\">\n");
    while($sth->fetch()) {
        print("                 <option value=\"$search_word\">" . fixNorChar($title) . "</option>\n");
    }
    $sth->finish();
    $dbh->disconnect;
    print("              </select>\n");
    print("              <input name=\"sok\" id=\"sok\" size=\"20\" type=\"text\" tabindex=\"1\">\n");
    print("              <input name=\"submit\" value=\"Søk\" type=\"submit\">\n");
    print("            </form>\n");
    print("            <!-- Search ends -->\n");
    print("            <div>\n");
    print("            </div>\n");
    print("          </div>\n");
    print("        </div>\n");
    print("        <!-- Menu begins -->\n");
    print("        <div id=\"menu\">\n");
    print("          <div class=\"menu_top font_text_bold\">Meny\n");
    if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "" && $cgi->param('action') ne "11") {
        print("<span style=\"position: absolute; left: 88px;\"><a href=\"$FILENAME?action=15&color_id=1\" title=\"Bytt farge til blå!\"><img src=\"../img/blue.png\"></a> <a href=\"$FILENAME?action=15&color_id=2\" title=\"Bytt farge til sort!\"><img src=\"../img/black.png\"></a> <a href=\"$FILENAME?action=15&color_id=3\" title=\"Bytt farge til rød!\"><img src=\"../img/red.png\"></a> <a href=\"$FILENAME?action=15&color_id=4\" title=\"Bytt farge til rosa!\"><img src=\"../img/pink.png\"></a> <a href=\"$FILENAME?action=15&color_id=5\" title=\"Bytt farge til grønn!\"><img src=\"../img/green.png\"></a></span></div>\n");
    } else {
        print("</div>\n");
    }
    print("          <ul class=\"mainmenu\">\n");
    print("            <li id=\"menu_0\"><div class=\"icon_home font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi\">Forside</a></div><br></li>\n");
    print("            <li id=\"menu_1\"><div class=\"icon_search font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/sok.cgi\">Søk!</a></div><br></li>\n");
    print("            <li id=\"menu_2\"><div class=\"icon_photo font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=1\">Ukens bilde</a></div><br></li>\n");
    print("            <li id=\"menu_3\"><div class=\"icon_star font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=2\">TOPP 100!</a></div><br></li>\n");
    print("            <li id=\"menu_4\"><div class=\"icon_file font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=3\">Siste 10</a></div><br></li>\n");
    print("            <li id=\"menu_4\"><div class=\"icon_action_add font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=4\">Legg til kategori</a></div><br></li>\n");
    print("            <li id=\"menu_5\"><div class=\"icon_action_add font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=5\">Legg til nettside</a></div><br></li>\n");
    print("            <li id=\"menu_6\"><div class=\"icon_info font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=6\">Informasjon</a></div><br></li>\n");
    print("            <li id=\"menu_7\"><div class=\"icon_mail font_add_link font_btn_with_text\"></div><div class=\"font_text_with_btn\"><a href=\"/cgi-bin/jeje.cgi?action=7\">Kontakt oss</a></div><br></li>\n");
    print("</ul>\n");
    if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "" && $cgi->param('action') ne "11") {
        print("<div class=\"menu_top\"><span class=\"font_text_bold\">Favoritter</span>\n");
        my $query = "SELECT link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$link_id);
        my $count = 0;
        while($sth->fetch()) {
            $count = $count + 1;
        }
        $sth->finish();
        $dbh->disconnect;
        if($count == 0) {
            print("</div>\n");
        } else {
            print("<span style=\"position: absolute; left: 110px;\"><a href=\"$FILENAME?action=9\" title=\"Rediger favorittene dine!\">rediger</a></span></div>\n");
        }
        print("<ul class=\"mainmenu\">\n");
        getFavorites();
        print("</ul>\n");
    } else {
        if($cgi->param('action') eq "") {
            print("<div class=\"menu_top\"><span class=\"font_text_bold\">Velkommen!</span>\n");
            print("</div>\n");
            print("<ul class=\"mainmenu\">\n");
            print("Les mer om tjenesten på vår <a href=\"$FILENAME?action=6\">informasjons-side</a>..<br><br>\n");
            print("</ul>\n");
        }
    }
    print("</div>\n");
    print("<!-- Menu ends -->\n");
    print("<div id=\"main_header\">\n");
    print("<div id=\"main_content\">\n");
}

sub getBottom {
    print("<!-- Right boxes begins -->\n");
    print("<div class=\"right_content\">\n");
    if ($cgi->param('action') eq "12" || $cgi->param('submit_signup')) { 
        if ($Cookies{'jeje_id'} eq "" && $Cookies{'jeje_al'} eq "") {
            print("<!-- Right box 1 begins -->\n");
            print("<div class=\"right_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Registrer deg!</div></div>\n");
            print("<div class=\"right_greybox\">\n");
            $name = $cgi->param('name');
            $email = $cgi->param('email');
            $email = $cgi->param('password');
            print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
            print("<tr><td>Navn:<td><input type=\"text\" name=\"name\" size=\"15\" value=\"$name\"></td></td></tr>\n");
            print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" size=\"15\" value=\"$email\"></td></td></tr>\n");
            print("<tr><td>Passord:<td><input type=\"password\" name=\"password\" size=\"15\" value=\"$password\"></td></td></tr>\n");
            print("<tr><td></td><td><input type=\"submit\" name=\"submit_signup\" value=\"Registrer deg!\"></td></tr>\n");
            print("</form></table>\n");
            if($error) {
                print("$error<br>\n");
            }
        } else {
            print("<!-- Right box 1 begins -->\n");
            print("<div class=\"right_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Bruker</div><div class=\"right font_text_not_bold\"><a href=\"$FILENAME?action=13\" title=\"Rediger brukeren din!\">rediger</a></div></div>\n");
            print("<div class=\"right_greybox\">\n");
            my $query = "SELECT name FROM users where id=$Cookies{'jeje_id'};";
            $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$name);
            $sth->fetch();
            print("Logget inn som:<br>\n");
            print("$name<br><br>\n");
            $sth->finish();
            $dbh->disconnect;
            print("<a href=\"$FILENAME?action=11\" title=\"Logg ut fra JEJE.no!\"><b>Logg ut</b></a><br>\n");
        }
    } else {
        if ($Cookies{'jeje_id'} eq "" && $Cookies{'jeje_al'} eq "") {
            print("<!-- Right box 1 begins -->\n");
            print("<div class=\"right_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
            print("<div class=\"font_text_with_btn\">Login</div><div class=\"right font_text_not_bold\"><a href=\"$FILENAME?action=14\" title=\"Få tilsendt passord på e-post.\">Glemt passord?</a></div></div>\n");
            print("<div class=\"right_greybox\">\n");
            $email = $cgi->param('email');
            $password = $cgi->param('password');
            print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
            print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" size=\"15\" value=\"$email\"></td></td></tr>\n");
            print("<tr><td>Passord:<td><input type=\"password\" name=\"password\" size=\"15\" value=\"$password\"></td></td></tr>\n");
            print("<tr><td><input type=\"submit\" name=\"submit_login\" value=\"Login\"><td><a href=\"$FILENAME?action=12\">Registrer deg!</a></td></td></tr>\n");
            print("</form></table>\n");
            if($error) {
                print("<br>$error\n");
            }
        } else {
            if($cgi->param('action') eq "11") {
                print("<!-- Right box 1 begins -->\n");
                print("<div class=\"right_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
                print("<div class=\"font_text_with_btn\">Login</div><div class=\"right font_text_not_bold\"><a href=\"$FILENAME?action=14\" title=\"Få tilsendt passord på e-post.\">Glemt passord?</a></div></div>\n");
                print("<div class=\"right_greybox\">\n");
                $email = $cgi->param('email');
                $password = $cgi->param('password');
                print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
                print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" size=\"15\" value=\"$email\"></td></td></tr>\n");
                print("<tr><td>Passord:<td><input type=\"password\" name=\"password\" size=\"15\" value=\"$password\"></td></td></tr>\n");
                print("<tr><td><input type=\"submit\" name=\"submit_login\" value=\"Login\"><td><a href=\"$FILENAME?action=12\">Registrer deg!</a></td></td></tr>\n");
                print("</form></table>\n");
                if($error) {
                    print("<br>$error\n");
                }
            } else {
                print("<!-- Right box 1 begins -->\n");
                print("<div class=\"right_greybox_top\"><div class=\"icon_user font_btn_with_text\"></div>\n");
                print("<div class=\"font_text_with_btn\">Bruker</div><div class=\"right font_text_not_bold\"><a href=\"$FILENAME?action=13\" title=\"Rediger brukeren din!\">rediger</a></div></div>\n");
                print("<div class=\"right_greybox\">\n");
                my $query = "SELECT name FROM users where id=$Cookies{'jeje_id'};";
                $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
                $sth = $dbh->prepare($query);
                $sth->execute();
                $sth->bind_columns(\$name);
                $sth->fetch();
                print("Logget inn som:<br>\n");
                print("$name<br><br>\n");
                $sth->finish();
                $dbh->disconnect;
                print("<a href=\"$FILENAME?action=11\" title=\"Logg ut fra JEJE.no!\"><b>Logg ut</b></a><br>\n");
            }
        }
    }

    print("</div>\n");
    print("<!-- Right box 1 ends -->\n");
    print("<!-- Right box 2 begins -->\n");
    print("<div class=\"right_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div><div class=\"font_text_with_btn\">TOPP 10!</div></div>\n");
    print("<div class=\"right_greybox\">\n");
    getTopp10();
    print("</div>\n");
    print("<!-- Right box 2 ends -->\n");
    print("</div>\n");
    print("<!-- Right boxes ends -->\n");
    print("</div>\n");
    print("</div>\n");
    my $year = getYear();
    my $datetime = getDateTime();
    print("<div id=\"footer\">Copyright $year <a href=\"http://www.jeje.no\">JEJE.no</a>.. Lett på nett! - <a href=\"mailto:support\@jeje.no\" alt=\"support\@jeje.no\">support\@jeje.no</a><span style=\"position: absolute; right: 70px;\">$datetime</span>\n");
    print("</div>\n");
    print("</div>\n");
    print("</div>\n");
    print("<script type=\"text/javascript\">\n");
    print("var gaJsHost = ((\"https:\" == document.location.protocol) ? \"https://ssl.\" : \"http://www.\");\n");
    print("document.write(unescape(\"%3Cscript src='\" + gaJsHost + \"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E\"));\n");
    print("</script>\n");
    print("<script type=\"text/javascript\">\n");
    print("var pageTracker = _gat._getTracker(\"UA-5048111-1\");\n");
    print("pageTracker._initData();\n");
    print("pageTracker._trackPageview();\n");
    print("</script>\n");
    print("</body>\n");
    print("</html>\n");
}

sub getTopp10 {
    my $query = "SELECT id, title, description, hits FROM link order by hits desc;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title, \$description, \$hits);
    my $count = 1;
    while($sth->fetch()) {
        if($count ne 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            my $found = 0;
            my $query = "SELECT user_id, link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
            $sth2 = $dbh->prepare($query);
            $sth2->execute();
            $sth2->bind_columns(\$user_id, \$link_id);
            while($sth2->fetch()) {
                if($user_id eq $Cookies{'jeje_id'} && $link_id eq $id) {
                    $found = 1;
                }
            }
            $sth2->finish();

            if($found ne 1) {
                print("<span class=\"right\"><a href=\"$FILENAME?action=8&id=$id\" title=\"Legg $title i favoritter!\"><div class=\"icon_star font_pointer\"></div></a></span>\n");  
            }
        }
        print "<div><b>$count. <a href=\"/cgi-bin/link.cgi?id=$id\" target=\"_new$id\">$title</a></b></div>\n";
        $count = $count + 1;
        if($count == 11) {
            last;
            $count = 1;
        }
        if($count eq 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
    }
    $sth->finish();
    $dbh->disconnect;
}

sub getDateTime {
    my ($tmp_second, $tmp_minute, $tmp_hour, $tmp_day, $tmp_month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
    my $year = 1900 + $yearOffset;
    my $tmp_month = $tmp_month + 1;
    if($tmp_month < 10) {
        $month = "0$tmp_month";
    } else {
        $month = "$tmp_month";
    }
    if($tmp_day < 10) {
        $day = "0$tmp_day";
    } else {
        $day = "$tmp_day";
    }
    if($tmp_hour < 10) {
        $hour = "0$tmp_hour";
    } else {
        $hour = "$tmp_hour";
    }
    if($tmp_minute < 10) {
        $minute = "0$tmp_minute";
    } else {
        $minute = "$tmp_minute";
    }
    if($tmp_second < 10) {
        $second = "0$tmp_second";
    } else {
        $second = "$tmp_second";
    }
    return "$day.$month.$year $hour:$minute:$second";
}

sub getYear {
    my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
    my $year = 1900 + $yearOffset;
    return $year;
}

sub getTopp100 {
    my $query = "SELECT id, title, description, hits FROM link group by title order by hits desc;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title, \$description, \$hits);
    my $count = 1;
    while($sth->fetch()) {
        if($count ne 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            my $found = 0;
            my $query = "SELECT user_id, link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
            $sth2 = $dbh->prepare($query);
            $sth2->execute();
            $sth2->bind_columns(\$user_id, \$link_id);
            while($sth2->fetch()) {
                if($user_id eq $Cookies{'jeje_id'} && $link_id eq $id) {
                    $found = 1;
                }
            }
            $sth2->finish();

            if($found ne 1) {
                print("<span class=\"right\"><a href=\"$FILENAME?action=8&id=$id\" title=\"Legg $title i favoritter!\"><div class=\"icon_star font_pointer\"></div></a></span>\n");  
            }
        }
        print "<div><b>$count. <a href=\"/cgi-bin/link.cgi?id=$id\" target=\"_new$id\">" . fixNorChar($title) . "</a></b></div>\n";
        if($description ne "") {
            print("<div>" . fixNorChar($description) . "</div>\n");
        }
        $count = $count + 1;
        if($count == 101) {
            last;
            $count = 1;
        }
        if($count eq 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
    }
    $sth->finish();
    $dbh->disconnect;
}

sub getFavorites {
    my $query = "SELECT link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$link_id);
    my $count = 0;
    while($sth->fetch()) {
        $count = $count + 1;
        if($link_id) {
            my $query2 = "SELECT title FROM link where id = $link_id;";
            $sth2 = $dbh->prepare($query2);
            $sth2->execute();
            $sth2->bind_columns(\$title);
            $sth2->fetch();
            print("            <li id=\"menu_0\"><div class=\"font_text_with_btn\"><a href=\"link.cgi?id=$link_id\" target=\"_new$link_id\">" . fixNorChar($title) . "</a></div><br></li>\n");
            $sth2->finish();
        }
    }
    $sth->finish();
    $dbh->disconnect;
    if($count == 0) {
        print("Ingen favoritter!<br><br>\n");
        print("For å legge til en favoritt: Gå til arkivet, søk eller topp 100.<br>Der finnes det mange nettsider. Til høyre for en av nettsidene, er det en stjerne.<br>Klikk på denne!<br>\n");
    }
}

sub addFavorite {
    my ($id1, $id2) = @_;
    my $query = "SELECT user_id, link_id FROM users;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$user_id, \$link_id);
    while($sth->fetch()) {
        if ($id1 eq $user_id && $id2 eq $link_id) {
            $found = 1;
        }
    }
    $sth->finish();
    $dbh->disconnect;
     
    if($found ne 1) {
        print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Nettsiden er lagt til i favoritter..</div><br>\n");
        my $query2 = "INSERT INTO favorite VALUES (default, $id1, $id2, 1);";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth2 = $dbh->prepare($query2);
        $sth2->execute();
        $dbh->disconnect;
    } else {
        print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Nettsiden finnes allerede i favoritter..</div><br>\n");
    }
    print "<meta http-equiv=\"refresh\" content=\"2;url=$PATH/$FILENAME\">\n";
}

sub editFavorites {
    if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
        my $query = "SELECT link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$link_id);
        my $count = 0;
        while($sth->fetch()) {
            if($link_id) {
                $count = $count + 1;
                if($count ne 1 and $count ne 2) {
                    print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
                }
                my $query2 = "SELECT title FROM link where id = $link_id;";
                $sth2 = $dbh->prepare($query2);
                $sth2->execute();
                $sth2->bind_columns(\$title);
                $sth2->fetch();
                print("<div class=\"right\"><a href=\"$FILENAME?action=10&id=$link_id\" title=\"Slett $title fra favoritter!\"><div class=\"icon_action_delete font_pointer\"></div></a></div>\n");
                print "<div><div class=\"link_line\"><a href=\"/cgi-bin/link.cgi?id=$link_id\" target=\"_new$link_id\"><div class=\"font_text_with_btn font_pointer\"><b>$title</b></div></a></div>\n";
                $sth2->finish();
            }
            print("</div>\n");
            if($count eq 1) {
                print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
            }
        }
        $sth->finish();
        $dbh->disconnect;
    }
}

sub delFavorite {
    my ($id) = @_;
    my $query = "DELETE FROM favorite where link_id = $id and user_id = $Cookies{'jeje_id'};";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $dbh->disconnect;
    print("<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn\">Nettsiden er fjernet fra favoritter..</div><br>\n");
    print "<meta http-equiv=\"refresh\" content=\"2;url=$PATH/$FILENAME?action=9\">\n";
}

sub getEditUser {
    my $query = "SELECT name, email, gender, birthday, postal_code FROM users where id = $Cookies{'jeje_id'};";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$name, \$email, \$gender, \$birthday, \$postal_code);
    $sth->fetch();
    print("<b>Rediger eller legg til nye detaljer:</b>\n");
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Navn:<td><input type=\"text\" name=\"name\" value=\"$name\"></td></td></tr>\n");
    print("<tr><td>E-post:<td><input type=\"text\" name=\"email\" value=\"$email\"></td></td></tr><br>\n");
    print("<tr><td>Kjønn:<td><select name=\"gender\" id=\"gender\">\n");
    if($gender eq 0) {
        print("<option selected value=\"0\">Velg kjønn</option>\n");
    } else {
        print("<option value=\"0\">Velg kjønn</option>\n");
    }
    if($gender eq 1) {
        print("<option selected value=\"1\">Mann</option>\n");
    } else {
        print("<option value=\"1\">Mann</option>\n");
    }
    if($gender eq 2) {
        print("<option selected value=\"2\">Kvinne</option>\n");
    } else {
        print("<option value=\"2\">Kvinne</option>\n");
    }
    print("</select></td></tr>\n");
    ($tmp_year,$tmp_month,$tmp_day) = split('-',$birthday);
    print("<tr><td>Fødselsdato:<td><select name=\"birthday_day\" id=\"birthday_day\">\n");
    if(00 eq $tmp_day) {
        print("<option selected value=\"00\">Velg dag</option>\n");
    } else {
        print("<option value=\"00\">Velg dag</option>\n");
    }
    for($day=1;$day<=31;$day++) {
        if($day < 10) {
            $temp_day = "0$day";
        } else {
            $temp_day = "$day";
        }
        if($temp_day eq $tmp_day) {
            print("<option selected value=\"$temp_day\">$temp_day</option>\n");
        } else {
            print("<option value=\"$temp_day\">$temp_day</option>\n");
        }
    }
    print("</select>\n");
    print("<select name=\"birthday_month\" id=\"birthday_month\">\n");
    if(00 eq $tmp_month) {
        print("<option selected value=\"00\">Velg måned</option>\n");
    } else {
        print("<option value=\"00\">Velg måned</option>\n");
    }
    for($month=1;$month<=12;$month++) {
        if($month < 10) {
            $temp_month = "0$month";
        } else {
            $temp_month = "$month";
        }
        if($temp_month eq $tmp_month) {
            print("<option selected value=\"$temp_month\">$temp_month</option>\n");
        } else {
            print("<option value=\"$temp_month\">$temp_month</option>\n");
        }
    }
    print("</select>\n");
    print("<select name=\"birthday_year\" id=\"birthday_year\">\n");
    if(00 eq $tmp_year) {
        print("<option selected value=\"00\">Velg år</option>\n");
    } else {
        print("<option value=\"00\">Velg år</option>\n");
    }
    for($year=1900;$year<=2020;$year++) {
        if($year eq $tmp_year) {
            print("<option selected value=\"$year\">$year</option>\n");
        } else {
            print("<option value=\"$year\">$year</option>\n");
        }
    }
    print("</select></td></tr>\n");
    if($postal_code eq 0) {
        print("<tr><td>Postnummer:<td><input type=\"text\" name=\"postal_code\" value=\"\"></td></td></tr><br>\n");
    } else {
        print("<tr><td>Postnummer:<td><input type=\"text\" name=\"postal_code\" value=\"$postal_code\"></td></td></tr><br>\n");
    }
    print("<td><input type=\"submit\" name=\"submit_user\" value=\"Lagre!\"></td></td></td></tr>\n");
    print("</form></table>\n");
    $sth->finish();
    $dbh->disconnect;
    print("<br><b>Bytt passord:</b>\n");
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>Gammelt passord:<td><input type=\"password\" name=\"old_password\"></td></td></tr>\n");
    print("<tr><td>Nytt passord:<td><input type=\"password\" name=\"new_password1\"></td></td></tr><br>\n");
    print("<tr><td>Gjenta nytt passord:<td><input type=\"password\" name=\"new_password2\"></td></td></tr>\n");
    print("<td><input type=\"submit\" name=\"submit_pass\" value=\"Bytt!\"></td></td></td></tr>\n");
    print("</form></table>\n");
}

sub getSendPassword {
    print("Skriv inn e-post adressen som passordet skal sendes til.<br>\n");
    print("Denne e-postadressen må være identisk med din registrerte e-postadresse.<br>\n");
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td>E-post:<td><input type=\"text\" name=\"password_email\" value=\"$email\"></td></td></tr><br>\n");
    print("<td><input type=\"submit\" name=\"submit_sendpass\" value=\"Send passord!\"></td></td></td></tr>\n");
    print("</form></table>\n");
}

sub sendPassword {
    my ($email) = @_;

    my $query = "SELECT password FROM users WHERE email = '$email';";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$password);
    $sth->fetch();
    open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL <<__END_OF_MESSAGE__;
To: $email
From: support\@jeje.no
Subject: Passord til JEJE.no

__END_OF_MESSAGE__

print MAIL ("Hei!
Her er passordet til brukeren din:

e-post:\t\t\t  $email
passord:\t\t\t$password
      
NB! Pga. sikkerhet, anbefales passord-bytte med en gang du logger inn.

Med vennlig hilsen
JEJE.no Support Team
support\@jeje.no\n");
close (MAIL);
    $sth->finish();
    $dbh->disconnect;
}

sub getLast10 {
    my $query = "SELECT id, title, description, hits FROM link order by id desc;";
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title, \$description, \$hits);
    my $count = 1;
    while($sth->fetch()) {
        if($count ne 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
        if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
            my $found = 0;
            my $query = "SELECT user_id, link_id FROM favorite where user_id = $Cookies{'jeje_id'};";
            $sth2 = $dbh->prepare($query);
            $sth2->execute();
            $sth2->bind_columns(\$user_id, \$link_id);
            while($sth2->fetch()) {
                if($user_id eq $Cookies{'jeje_id'} && $link_id eq $id) {
                    $found = 1;
                }
            }
            $sth2->finish();

            if($found ne 1) {
                print("<span class=\"right\"><a href=\"$FILENAME?action=8&id=$id\" title=\"Legg $title i favoritter!\"><div class=\"icon_star font_pointer\"></div></a></span>\n");  
            }
        }
        print "<div><div class=\"link_line\"><div class=\"icon_file font_btn_with_text\"></div><a href=\"/cgi-bin/link.cgi?id=$id\" target=\"_new$id\"><div class=\"font_text_with_btn font_pointer\"><b>" . fixNorChar($title) . "</b></a></div></div></div>\n";
        if($description ne "") {
            print("<div>" . fixNorChar($description) . "</div>\n");
        }
        $count = $count + 1;
        if($count == 11) {
            last;
            $count = 1;
        }
        if($count eq 1) {
            print("<div style=\"border-bottom: 1px dashed #CCCCCC; height: 10px;\"></div><div style=\"height: 10px;\"></div>\n");
        }
    }
    $sth->finish();
    $dbh->disconnect;
}

sub getBirthday {
    	my ($id) = @_;
    	my ($second, $minute, $hour, $tmp_day, $tmp_month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
    	my $year = 1900 + $yearOffset;
	my $month_tmp = $tmp_month + 1;
	if($month_tmp < 10) {
        	$month = "0$month_tmp";
    	} else {
        	$month = "$month_tmp";
    	}
	if($tmp_day < 10) {
        	$day = "0$tmp_day";
    	} else {
        	$day = "$tmp_day";
    	}
	my $today = "$month-$day";
	
	my $query = "SELECT name, birthday FROM users WHERE id = $id;";
    	$dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    	$sth = $dbh->prepare($query);
    	$sth->execute();
    	$sth->bind_columns(\$name, \$birthday);
        $sth->fetch();
	my @time = split('-', $birthday);
	my $age = ($year - $time[0]);
	my $birth = $time[1] . "-" . $time[2];
	if($birth eq $today) {
		print("<!-- Left box birthday begins -->\n");
		print("<div class=\"left_greybox_top\"><div class=\"icon_star font_btn_with_text\"></div>\n");
		print("<div class=\"font_text_with_btn2\">Bursdag!</div></div>\n");
		print("<div class=\"left_greybox\">\n");
		print("Gratulerer med $age års dagen i dag, $name!\n");
		#print("birth = $birth, today = $today\n");
		print("</div>\n");
		print("<!-- Left box birthday ends -->\n");
    		print("<div id=\"space_line\"></div>\n");
	}
	$sth->finish();
    	$dbh->disconnect;
}

sub getCountDown {
	my $start_day = 335;
	my $final_day = 359;
	my ($second, $minute, $hour, $day, $tmp_month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
	my $today = $dayOfYear;
	my $day_count = $final_day - $today - 1;
	
	#print("JEJE.no ønsker alle en riktig GOD JUL og GODT NYTT ÅR!");
	#if($today >= $start_day and $today <= $final_day) {
	#	if($day_count eq 0) {
	#		print("JEJE.no ønsker alle en riktig GOD JUL og GODT NYTT ÅR!");
	#	} elsif ($day_count eq 1) {
	#		print("I dag er det <b>$day_count</b> dag igjen til julaften.. GOD JUL!");
	#	} else {
	#		print("I dag er det <b>$day_count</b> dager igjen til julaften.. GOD JUL!");
	#	}	
	#} else {
	#	print("JEJE.no ønsker alle en riktig GOD JUL og GODT NYTT ÅR!");
	#}
}

sub getDate {
	my ($date) = @_;
	
	my ($year, $month, $day) = split(/-/, $date);
	return "$day.$month.$year";
}

sub getVG {
	print("<a href=\"http://www.vg.no/\">VG Nett</a>:<br>\n");
	my $content = get("http://www.vg.no/rss/create.php");
	my(@lines) = split(/\n/, $content);
	my($line, @titles, @links, @descs, @times, $desc_count, $time_count);
	foreach $line (@lines) {
		if($line =~ /<lastBuildDate>/) {
			$time_count++;
 			my ($tmp_time1, $tmp_time2) = split(/<dc:date>/, $line);
			my ($tmp_time3) = split(/<\/dc:date>/, $tmp_time2);
			my ($tmp_time4) = split(/\+/, $tmp_time3);
			my ($tmp_time5, $tmp_time6) = split(/T/, $tmp_time4);
			my ($tmp_time7, $tmp_time8) = split(/:/, $tmp_time6);
			if($time_count ne 1) {
 				push(@times, getDate($tmp_time5) . " $tmp_time7:$tmp_time8");
			}
		}
		if($line =~ /<title>/ and $line !~ /<title>VG RSS<\/title>/ and $line !~ /<title>VG RSS<\/title>/) {
			$line = fixNorChar($line);
 			my ($tmp_title1, $tmp_title2) = split(/<title>/, $line);
			my ($tmp_title3) = split(/<\/title>/, $tmp_title2);
 			my ($tmp_title4, $tmp_title5) = split(/<\!\[CDATA\[/, $tmp_title3);
			my ($tmp_title6) = split(/\]\]>/, $tmp_title5);
 			push(@titles, $tmp_title6);
		}
		if($line =~ /<description>/) {
			$desc_count++;
			$line = fixNorChar($line);
 			my ($tmp_desc1, $tmp_desc2) = split(/<description>/, $line);
			my ($tmp_desc3) = split(/<\/description>/, $tmp_desc2);
 			my ($tmp_desc4, $tmp_desc5) = split(/<\!\[CDATA\[/, $tmp_desc3);
			my ($tmp_desc6) = split(/\]\]>/, $tmp_desc5);
			if($desc_count ne 1) {
 				push(@descs, $tmp_desc6);
			}
		}
		if($line =~ /<link>/ and $line !~ /<link>http:\/\/www.vg.no\/<\/link>/) {
 			my ($tmp_link1, $tmp_link2) = split(/<link>/, $line);
			my ($tmp_link3) = split(/<\/link>/, $tmp_link2);
 			my ($tmp_link4, $tmp_link5) = split(/http:\/\/go.vg.no\/cgi-bin\/go.cgi\/rssart\//, $tmp_link3);
 			push(@links, $tmp_link5);
		}

	}
	my ($i);
	for ($i = 0; $i < 10; $i++)
	{
		print("<a href=\"$links[$i]\" title=\"$descs[$i]\">$titles[$i]</a><br>\n$times[$i]<br>\n");
	}
}

sub getDB {
	print("<a href=\"http://www.dagbladet.no/\">Dagbladet.no</a>:<br>\n");
	my $content = get("http://www.dagbladet.no/rss/oppdatert.xml");
	my(@lines) = split(/\n/, $content); # read file into list
	my($line, @titles, @links, @descs, @times, $desc_count);
	foreach $line (@lines) # loop thru list
	{
		if($line =~ /<title>/ and $line !~ /<title>Dagbladet.no - oppdatert<\/title>/ and $line !~ /<title>Dagbladet.no<\/title>/) {
			$line = fixNorChar($line);
 			my ($tmp_title1, $tmp_title2) = split(/<title>/, $line);
			my ($tmp_title3) = split(/<\/title>/, $tmp_title2);
 			push(@titles, $tmp_title3);
		}
		if($line =~ /<link>/ and $line !~ /<link>http:\/\/www.dagbladet.no<\/link>/ and $line !~ /<link>http:\/\/www.dagbladet.no\/<\/link>/) {
 			my ($tmp_link1, $tmp_link2) = split(/<link>/, $line);
			my ($tmp_link3) = split(/<\/link>/, $tmp_link2);
 			push(@links, $tmp_link3);
		}
		if($line =~ /<description>/) {
			$desc_count++;
			$line = fixNorChar($line);
 			my ($tmp_desc1, $tmp_desc2) = split(/<description>/, $line);
			my ($tmp_desc3) = split(/<\/description>/, $tmp_desc2);
			if($desc_count ne 1) {
 				push(@descs, $tmp_desc3);
			}
		}
		if($line =~ /<dc:date>/) {
			$time_count++;
 			my ($tmp_time1, $tmp_time2) = split(/<dc:date>/, $line);
			my ($tmp_time3) = split(/<\/dc:date>/, $tmp_time2);
			my ($tmp_time4) = split(/\+/, $tmp_time3);
			my ($tmp_time5, $tmp_time6) = split(/T/, $tmp_time4);
			my ($tmp_time7, $tmp_time8) = split(/:/, $tmp_time6);
			if($time_count ne 1) {
 				push(@times, getDate($tmp_time5) . " $tmp_time7:$tmp_time8");
			}
		}
	}

	my ($i);
	for ($i = 0; $i < 10; $i++)
	{
		print("<a href=\"$links[$i]\" title=\"$descs[$i]\">$titles[$i]</a><br>\n$times[$i]<br>\n");
	}
}

sub fixNorChar {
	my ($string) = @_;

	for(my $i=0; $i<20; $i++) {
		$string =~ s/æ/æ/i;
		$string =~ s/ø/ø/i;
		$string =~ s/å/å/i;
		$string =~ s/Æ/Æ/i;
		$string =~ s/Ø/Ø/i;
		$string =~ s/Å/Å/i;
		$string =~ s/æ/æ/i;
		$string =~ s/ø/ø/i;
		$string =~ s/Ã¥/å/i;
		$string =~ s/Ø/Ø/i;
		$string =~ s/Ã…/Å/i;
		$string =~ s/«/«/i;
		$string =~ s/»/»/i;
		$string =~ s/é/é/i;
	}

	return $string;
}