#!/usr/bin/perl
use CGI qw(:standard);
#name used to identify cookie
$cookiename = "klink_info";

#username tab password, stored in cookie, checked on every screen
$logininfo = "username\tpassword";

#rawfile generated
$datafile = "/home/myuser/public_html/bookmarks/bookmarks";

#static HTML file used to display bookmarks after every transaction
$outfile =  "/home/myuser/public_html/bookmarks/bookmarks.html";

#static HTML file that just has bookmarks in "blank" category
#(this category sorts first on the big list, and is useful for
#"hot" bookmarks)
$outhotfile = "/home/myuser/public_html/home/hotlinks.html";

#Location and name of this script
$mainurl = "http://www.sitename.com/bookmarks/klink.cgi";

#Location and name of the output file
$outurl = "http://www.sitename.com/bookmarks/bookmarks.html";



$userinfo = cookie($cookiename);

$screen = param("screen");
$dologin = param("dologin");
if($dologin eq "on" || $dologin eq "off") {
    if($dologin eq "on") {
	$userinfo = param("username")."\t".param("password");
    } else {
	$userinfo = "";
    }
	$packed_cookie = cookie( -NAME => $cookiename,
		      -VALUE => $userinfo,
		      -EXPIRES => "+2y" );
	print header(-COOKIE => $packed_cookie);

} else {
	print header();
}


print getTop();

if($userinfo eq  $logininfo) {

    if($screen eq "formadd" || $screen eq "formedit") {

	if($screen eq "formadd") {
   	    getUsedcat();
	    $titler = "Add New";
	    $targeter = "doadd";
	}else {
	    getUsedcat(param("id"));
	    $titler = "Edit";
	    $targeter = "doedit";
	}
	
	print<<__EOQ__;
<CENTER>
<FORM name="myform" ACTION="$mainurl" METHOD="POST">
    <INPUT TYPE="HIDDEN" NAME="screen" VALUE="$targeter">
    <INPUT TYPE="HIDDEN" NAME="id" VALUE="$oldid">
<H2>Klink - <I>$titler</I></H2>
URL:<BR>
<INPUT TYPE="TEXT" NAME="url" VALUE="$oldurl" SIZE=40><BR>
Title:<BR>
<INPUT TYPE="TEXT" NAME="name" VALUE="$oldname" SIZE=40><BR>
Note:<BR>
<INPUT TYPE="TEXT" NAME="note" VALUE="$oldnote" SIZE=40><BR>

Category:<BR>
<INPUT TYPE="TEXT" NAME="cat" VALUE="$oldcat" SIZE=20>  
<SELECT NAME="oldcat" onChange="document.myform.cat.value=this.options[this.selectedIndex].text;">
<OPTION>Existing Categories:
__EOQ__

    foreach $cat (sort keys %usedcat) {
        print "<OPTION>$cat\n";
    }

print<<__EOQ__;
</SELECT>
<BR>                 

<INPUT TYPE="SUBMIT" NAME="submit">

</FORM>

</CENTER>      
__EOQ__

}
    if($screen eq "doadd") {
	$url = param("url");
	$name = param("name");
	$note = param("note");
	$cat = param("cat");
	$id = time;

	addRecord($id,$cat,$url,$name,$note);

	print "Added Bookmark <A HREF=\"$url\">$name</A>";  

	printoutPage();
	printoutHot();
	print<<__EOQ__;
          <meta http-equiv="refresh" content="0;url=$mainurl?rmsg=on">
__EOQ__
    }

    if($screen eq "doedit") {
	$url = param("url");
	$name = param("name");
	$note = param("note");
	$cat = param("cat");
	$id = param("id");
	deleteRecord($id);
	addRecord($id,$cat,$url,$name,$note);

	print "Updated Bookmark <A HREF=\"$url\">$name</A>";  

	printoutPage();
	printoutHot();

	print<<__EOQ__;
          <meta http-equiv="refresh" content="0;url=$mainurl?rmsg=on">
__EOQ__

    }

    if($screen eq "editmode" || $screen eq "") {
	printoutPage("editmode");
    }
    
if($screen eq "formdelete"){
	$id=param("id");
	getUsedcat($id);
	print<<__EOQ__;
<CENTER>
Confirm Delete:<BR>
$oldtitle ($oldurl)<BR>
<A HREF="$mainurl?screen=dodelete&id=$id">Confirm</A> /
<A HREF="$mainurl">Cancel</A>
</CENTER>
__EOQ__

} 
    if($screen eq "dodelete") {
	$id = param("id");
	deleteRecord($id);
	printoutPage();
	printoutHot();

	print<<__EOQ__;
          <meta http-equiv="refresh" content="0;url=$mainurl?rmsg=on">
__EOQ__
	
    }

   


} else {

print <<__EOQ__
<FORM METHOD="POST">
<CENTER>
<FONT SIZE=6>K/link Login</FONT><BR>
<INPUT TYPE="HIDDEN" NAME="dologin" VALUE="on">
Username:<INPUT NAME="username"><BR>
Password:<INPUT TYPE="PASSWORD" NAME="password"><BR>
<INPUT TYPE="SUBMIT" VALUE="Login">

__EOQ__
}


sub getUsedcat {
    ($findid) = @_;


    open(READ,$datafile) || print "error, cannot read cats, $!";;
while(defined($next=<READ>)){
    ($readid,$cat,@etc) = split(/\t/,$next);
    $usedcat{$cat} = "on";
    if($readid eq $findid) {
	($oldid,$oldcat,$oldurl,$oldname,$oldnote) = split(/\t/,$next);
    }    

}
}
                       



sub printoutHot {
open(READ,$datafile) || print "couldn't open";
open(WRITE,"> $outhotfile");
while(defined($next=<READ>)){
    chomp $next;
    ($id,$cat,$url,$title,$desc) = split(/\t/,$next);   
    if($cat eq "") {
	$thisun = <<__EOQ__;
	<A HREF="$url">$title</A>
__EOQ__
	if($desc ne "") {
		$thisun .= " - $desc";
	}
	$thisun .= "<BR>\n";
	print WRITE $thisun;
    }
}
close WRITE;
close READ;

}



sub printoutPage {
    ($type)=@_;
    if($type eq "editmode") {
	$handle = *STDOUT;
    } else {
	open(OUT,"> $outfile") || print "Can't write out: $!";
	$handle = *OUT;
	$headtop = getTop();
	print $handle $headtop;
    }

print $handle <<__EOQ__;



<FONT SIZE=6>K/link</FONT> 
__EOQ__
    $rmsg = param("rmsg");
    if($rmsg ne "") {
	$rmsg = " <BLINK>Reload</BLINK> ";
    }
    if($type eq "editmode") {
	print $handle <<__EOQ__;
	<FONT SIZE=6> - <I>Edit Mode</I></FONT> 
	[[<A HREF="$outurl">View Mode</A>$rmsg]]
	[[<A HREF="$mainurl?dologin=off">Decookie</A>]]
__EOQ__
} else {
	print $handle <<__EOQ__;
	[[<A HREF="$mainurl">Edit Mode</A>]]
__EOQ__

}

    print $handle <<__EOQ__;
[[<A HREF="$mainurl?screen=formadd">Add New</A>]]
<BR>
__EOQ__

open(READ,$datafile) || print "couldn't open";
while(defined($next=<READ>)){
    chomp $next;
    ($id,$cat,@etc) = split(/\t/,$next);   
    $mark{$id} = $next;	
    $cats{$cat} .= "$id\t";
}

foreach $cat (sort keys %cats) {
    print $handle "<FONT SIZE=5>$cat</FONT><BR>";
    @entries = split(/\t/,$cats{$cat});

    foreach $entry (sort @entries) {
	$line = $mark{$entry};
	($id,$cat,$url,$title,$desc) = split(/\t/,$line);
	if($type eq "editmode") {
		    print $handle <<__EOQ__;
		    <A HREF="$mainurl?screen=formdelete&id=$id">[X]</A>
			<A HREF="$mainurl?screen=formedit&id=$id">$title</A>  
			    <A HREF="$url"><FONT SIZE="-1">[peek]</FONT></A>
__EOQ__
		} else {
	    print $handle <<__EOQ__;
	    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A HREF="$url">$title</A>
__EOQ__

		}
    if($desc ne "") {
	print $handle "  -  $desc";


    }
	print $handle "<BR>\n";
    }



}







if($type eq ""){
    close OUT;
}


}

    sub deleteRecord {
	($killid) = @_;
	open(READ,$datafile) ;
	open(WRITE, "> $datafile.temp");
	while(defined($next=<READ>)){
	    chomp $next;
	    ($thisid,@rest) = split(/\t/,$next);
	    if($thisid ne $killid) {
		print WRITE "$next\n";
	    } else {
		open(DEL,">> $datafile.killed");
		print DEL "$next\n";
		close DEL;
	    }
	}
	close READ;
	close WRITE;
	
	print `cp $datafile.temp $datafile`; 
    }


sub addRecord{
    my($id,$cat,$url,$name,$note) = @_;
    open(WRITE,">> $datafile") || print "Couldn't open bookmarks: $!";
    print WRITE "$id\t$cat\t$url\t$name\t$note\n";
    close WRITE;
                         
}

sub getTop{
return<<__EOQ__;
<html>
<head>
<title>K/link</title>
</head> 

<BODY  BGCOLOR="#006699" TEXT="#66CCFF" LINK="#FFFF33" VLINK="#FFFFCC" ALINK="#FFFF99">
 <FONT FACE="arial,helvetica,sans-serif">
__EOQ__
}