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

require("cookie.lib");

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

&GetCookies('jeje_id', 'jeje_al');

print("Content-type: text/html\r\n\r\n");

# Data from user..
getTop();
if($cgi->param('navn') && $cgi->param('sok')) {
    my $name = $cgi->param('navn');
    my $search = $cgi->param('sok');
    getSearch($name, $search);
    setSearchHits($name);
} elsif($cgi->param('sok')) {
    my $search = $cgi->param('sok');
    getHtml();
    getData($search);
    getData2($search);
} else {
    getHtml();
}
print("</div>");
print("<!-- Left box 1 ends -->");
getCatBar();
print("</div>");
getBottom();

# Function getHtml prints out the html code with a form..
sub getHtml {
    setPageHits(2);
    print("<!-- Left boxes begins -->");
    print("<div class=\"left_content\">");
    print("<!-- Left box 1 begins -->");
    print("<div class=\"left_greybox_top\"><div class=\"icon_search font_btn_with_text\"></div><div class=\"font_text_with_btn\">S&oslash;k!</div></div>");
    print("<div class=\"left_greybox\">");
    print("<table><form action=\"$PATH/$FILENAME\" method=\"post\">\n");
    print("<tr><td><input type=\"text\" name=\"sok\">\n");
    print("<td><input type=\"submit\" name=\"name\" value=\"S&oslash;k!\"></td></td></tr>\n");
    print("</form></table>\n");
}

# Function getData prints out the search data..
sub getData {
    my ($sok) = @_;
    my $query = "SELECT id, title, description, hits FROM link where title LIKE '%" . $sok. "%' OR description LIKE '%" . $sok. "%' OR url LIKE '%" . $sok. "%' OR search_words LIKE '%" . $sok. "%' 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);
    print "<br><b>Resultat nettsider:</b><br><br>\n";
	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");
        }
        &GetCookies('jeje_id', 'jeje_al');
        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("<div class=\"right\"><a href=\"$FILENAME2?action=8&id=$id\" title=\"Legg $title i favoritter!\"><div class=\"icon_star font_pointer\"></div></a></div>\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\"><div class=\"font_text_with_btn font_pointer\"><b>$title</b></div></a></div>\n";
        if($description ne "") {
            print "<div class=\"font_text_with_btn3\">$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 == 0) {
        print "<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn font_text_bold\">Dessverre, ingen treff!</div><br>\n";
	}
    $sth->finish();
    $dbh->disconnect;
}

sub getData2 {
    my ($sok) = @_;
    my $query = "SELECT id, title FROM cat where title LIKE '%" . $sok. "%' OR search_words LIKE '%" . $sok. "%' ORDER BY title;";
	
    $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
    $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$id, \$title);
    print "<br><b>Resultat arkiv:</b><br><br>\n";
	my $count = 0;
    while($sth->fetch()) {
		$count = $count + 1;
        print "<div class=\"cat_line\"><div class=\"icon_folder font_btn_with_text\"></div><a href=\"/cgi-bin/jeje.cgi?cat_id=$id\"><div class=\"font_text_with_btn font_pointer\">$title</div></a></div>\n";
    }
	if($count == 0) {
        print "<div class=\"icon_comments font_btn_with_text\"></div><div class=\"font_text_with_btn font_text_bold\">Dessverre, ingen treff!</div><br>\n";
	}
    $sth->finish();
    $dbh->disconnect;
}

sub getSearch {
    my ($name, $search) = @_;

    if($name ne "jejeno") {
        print("<!-- Left boxes begins -->");
        print("<div class=\"left_content\">");
        print("<!-- Left box 1 begins -->");
        print("<div class=\"left_greybox_top\">S&oslash;king p&aring;g&aring;r.. Vennligst vent..</div>");
        print("<div class=\"left_greybox\">");
        print("S&oslash;king p&aring;g&aring;r.. Vennligst vent..\n");
        my $query = "SELECT url1, url2 FROM top_search WHERE search_word LIKE '$name';";

        $dbh = DBI->connect("dbi:mysql:$DBNAME;$DBHOST",$DBUSERNAME,$DBPASSWORD);
        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$url1, \$url2);
        $sth->fetch();
        print "<meta http-equiv=\"refresh\" content=\"0;url=$url1$search$url2\">\n";
        $sth->finish();
        $dbh->disconnect;
    } else {
        getHtml();
        getData($search);
        getData2($search);
    }
}

sub setSearchHits {
    my ($name) = @_;
    my $query = "UPDATE top_search SET hits = hits + 1 WHERE search_word='$name';";

    $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 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\"><a href=\"$PATH/$FILENAME2?cat_id=$id\">\n";
        print "<div class=\"icon_arrow_back font_btn_with_text\"></div><div class=\"font_text_with_btn\">Forrige</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\">$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 < 9) {
        $height = ($total_cat * 18);
        print("$height - $total_cat");
    }
    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/$FILENAME2?cat_id=$id\"><div id=\"cat_folder_text\" class=\"font_text_with_btn2 font_pointer\">$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;
}

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\">Arkiv</div>\n");
    print("<div class=\"left_greybox\">\n");
    getPosition($cat_id);
    getCat($cat_id);
    print("</div>\n");
    print("<!-- Left box 2 ends -->\n");
}

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=utf-8\">\n");
    print("    <meta name=\"keywords\" content=\"\">\n");
    print("    <meta name=\"copyright\" content=\"Copyright(c) 2008 JEJE.no\">\n");
    print("    <meta name=\"description\" content=\"JEJE.no - Lett p&aring; nett!\">\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("    <title>JEJE.no - Lett p&aring; nett!</title>\n");
    print("  </head>\n");
    print("  <body>\n");
    #print("    <div id=\"ads_top\"><a href=\"\"><img src=\"/img/ads_top_728x90.jpg\" alt=\"\" title=\"\" 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&aring; nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett p&aring; 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&aring; nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett p&aring; 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&aring; nett!\"><img src=\"$top_url\" alt=\"JEJE.no - Lett p&aring; 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("          <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\">$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&oslash;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=\"$FILENAME2?action=15&color_id=1\" title=\"Bytt farge til bl&aring;!\"><img src=\"../img/blue.png\"></a> <a href=\"$FILENAME2?action=15&color_id=2\" title=\"Bytt farge til sort!\"><img src=\"../img/black.png\"></a> <a href=\"$FILENAME2?action=15&color_id=3\" title=\"Bytt farge til r&oslash;d!\"><img src=\"../img/red.png\"></a> <a href=\"$FILENAME2?action=15&color_id=4\" title=\"Bytt farge til rosa!\"><img src=\"../img/pink.png\"></a> <a href=\"$FILENAME2?action=15&color_id=5\" title=\"Bytt farge til gr&oslash;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&oslash;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\">Dagens 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</a></div><br></li>\n");
    print("          </ul>\n");
    &GetCookies('jeje_id', 'jeje_al');
    if ($Cookies{'jeje_id'} ne "" && $Cookies{'jeje_al'} ne "") {
        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=\"$FILENAME2?action=9\">rediger</a></span></div>\n");
        }
        print("          <ul class=\"mainmenu\">\n");
        getFavorites();
        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 ($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=\"$FILENAME2?action=14\" title=\"F&aring; tilsendt passord p&aring; 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/$FILENAME2\" 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=\"$FILENAME2?action=12\">Registrer deg!</a></td></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=\"$FILENAME2?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=\"$FILENAME2?action=11\"><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>\n");
    print("<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&aring; 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("  </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()) {
        print "<b>$count. <a href=\"/cgi-bin/link.cgi?id=$id\" target=\"_new\">$title</a></b><br>\n";
        $count = $count + 1;
        if($count == 11) {
            last;
            $count = 1;
        }
    }
    $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 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\">$title</a></div><br></li>\n");
            $sth2->finish();
        }
    }
    $sth->finish();
    $dbh->disconnect;
    if($count == 0) {
        print("Ingen favoritter!<br><br>\n");
        print("For &aring; legge til en favoritt: G&aring; til arkivet, s&oslash;k eller topp 100.<br>Der finnes det mange nettsider. Til h&oslash;yre for en av nettsidene, er det en stjerne.<br>Klikk p&aring; denne!<br>\n");
    }
}