#!/usr/bin/perl -w
# Interactive Bookmarks Engine
# Release 2.07(27-Nov-99)
# (c) - 1999, Eastwright Corporation
# http://www.eastwright.com

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

require "config.pl";

$page_title = "Bookmarks";
$maxnote = 400;

$CURFOLDERFONT="<FONT COLOR=\"#ff0000\" FACE=\"ARIAL, HELVETICA\" SIZE=-1>";
$FOLDERFONT="<FONT FACE=\"ARIAL, HELVETICA\" SIZE=-1>";
$DFLTFONT="<FONT FACE=\"ARIAL, HELVETICA\" SIZE=-1>";

# ============================================================== global vars

@user_fld;
@user_lnk;
@user_dat;
$user = $ENV{'REMOTE_USER'};
$cur_fld;
$cur_cat;
$command;
$fldtoedit;
$fldcat;
$fldref;
$fldname;
$cur_lnk;
$lnkref;
$lnkname;
$lnkurl;
$lnknote;
$lnktoedit;
@banners;
$topbanner;
$tmpuser;
$mode_public = 0;

# ============================================================== main

# parsing args

@cmds = split(/&/, $ENV{'QUERY_STRING'});
foreach $cmd (@cmds) {
	($name, $value) = split(/=/, $cmd);
	$value =~ tr/+/ /;
	$value =~ s/%0D%0A/<br>/g;
	$value =~ s/%0A%0D/<br>/g;
	$value =~ s/<br>/\n/g;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$value =~ s/<.*?>//g;
	if ($name eq 'cmd') { $command = $value; }
	elsif ($name eq 'fld') {
		$cur_fld = $value;
		$fldref = $cur_fld;
		$fldref =~ s/\+/%2B/g; $fldref =~ s/=/%3D/g; $fldref =~ s/#/%23/g;
		$fldref =~ tr/ /+/; $fldref =~ s/&/%26/g; $fldref =~ s/\"/%22/g;
		$fldname = $cur_fld; $fldname =~ s/"/&quot;/g;
	} elsif ($name eq 'lnk') {
		$cur_lnk = $value;
		$lnkref = $cur_lnk;
		$lnkref =~ s/\+/%2B/g; $lnkref =~ s/=/%3D/g;
		$lnkref =~ tr/ /+/; $lnkref =~ s/&/%26/g; $lnkref =~ s/\"/%22/g;
		$lnkref =~ s/#/%23/g;
		$lnkname = $cur_lnk; $lnkname =~ s/"/&quot;/g;
	}
	elsif ($name eq 'url') { $lnkurl = $value; }
	elsif ($name eq 'note') {
		$lnknote = substr($value, 0, $maxnote);
	} elsif ($name eq 'fldtoedit') { $fldtoedit = $value; }
	elsif ($name eq 'lnktoedit') { $lnktoedit = $value; }
	elsif ($name eq 'fldcat') { $fldcat = $value; }
}


if (length($command)) {
	if ($command eq 'editfld') { &editfld; }
	elsif ($command eq 'editlnk') { &editlnk; }
	elsif ($command eq 'editonefld') { &editonefld; }
	elsif ($command eq 'procfld') { &procfld; }
	elsif ($command eq 'delfld') { &delfld; }
	elsif ($command eq 'dodelfld') { &dodelfld; }
	elsif ($command eq 'editonelnk') { &editonelnk; }
	elsif ($command eq 'proclnk') { &proclnk; }
	elsif ($command eq 'dellnk') { &dellnk; }
	elsif ($command eq 'dodellnk') { &dodellnk; }
	elsif ($command eq 'pubon') { &pubon; }
	elsif ($command eq 'puboff') { &puboff; }
	else { print "<br>unknown command $command<br>"; &errexit; }
}

&header;
&loguser;
&initfolders;
if (!length($tmpuser)) { &savedata; }
&bookmarks;
&footer;
exit;

# ============================================================== puboff

sub puboff {
&header;
&loguser;
$mode_public=2;
for ($i=$[; $i <= $#user_dat; $i++) {
	@fields=split('\|', $user_dat[$i]);
	if ($fields[0] eq 'public') {
		$user_dat[$i] = join('|', 'public', 'off');
		$mode_public=0;
	}
}
if ($mode_public == 2) {
	$user_dat[$i] = join('|', 'public', 'off');
	$mode_public = 0;
}
&bookmarks;
&savedata;
&footer;
exit;
}

# ============================================================== pubon

sub pubon {
&header;
&loguser;
$mode_public=2;
for ($i=$[; $i <= $#user_dat; $i++) {
	@fields=split('\|', $user_dat[$i]);
	if ($fields[0] eq 'public') {
		$user_dat[$i] = join('|', 'public', 'on');
		$mode_public=1;
	}
}
if ($mode_public == 2) {
	$user_dat[$i] = join('|', 'public', 'on');
	$mode_public = 1;
}
&bookmarks;
&savedata;
&footer;
exit;
}

# ============================================================== dodellnk

sub dodellnk {
&header;
&loguser;

for ($i=$[; $i <= $#user_lnk; $i++) {
	@fields=split('\|', $user_lnk[$i]);
	if (($fields[0] eq $cur_fld) && ($fields[1] eq $cur_lnk)) {
		$user_lnk[$i] = '*';
	}
}

@user_lnk = grep($_ ne '*', @user_lnk);
&saveuser;
&bookmarks;
&footer;
exit;
}

# ============================================================== dellnk

sub dellnk {
$page_title = "Deleting link $lnkname";
&header;

print "<br><b><font color=\"red\">Warning:</font> </b>Deleting link <b>$lnkname</b> from folder <b>$fldname</b>, are you sure? ";
print "<a href=\"$ENV{'SCRIPT_NAME'}?cmd=dodellnk&fld=$fldref&lnk=$lnkref\">Yes<a>, ";
print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref&cmd=editlnk\">No<a><br>";
&footer;
exit;
}

# ============================================================== duplnk

sub duplnk {
print "<br><b><font color=\"red\">Note:</font></b> Folder <b>$cur_fld</b> already contains link <b>$cur_lnk</b><br>\n";
print "<br>Press your browser BACK button to return to editing<br>\n";
&footer;
}

# ============================================================== mislnk

sub mislnk {
print "<br><b><font color=\"red\">Note:</font> Please enter name for your link</b><br>\n";
print "<br>Press your browser BACK button to return to editing<br>\n";
&footer;
}

# ============================================================== misfld

sub misfld {
print "<br><b><font color=\"red\">Note:</font> Please enter name for your folder</b><br>\n";
print "<br>Press your browser BACK button to return to editing<br>\n";
&footer;
}

# ============================================================== misurl

sub misurl {
print "<br><b><font color=\"red\">Note:</font> Please enter URL (e.g. http://www.company.com) for your link</b><br>\n";
print "<br>Press your browser BACK button to return to editing<br>\n";
&footer;
}

# ============================================================== proclnk

sub proclnk {
$new = 0;
&header;
if (!length($cur_lnk)) { &mislnk; exit; }
if (! length($lnkurl) || ($lnkurl eq 'http://')) { &misurl; exit; }
if (! length($lnktoedit)) { $new = 1;}
$cur_lnk =~ tr/|/!/; $lnkurl =~ tr/|/!/; $lnknote =~ tr/|/!/;
&loguser;
$lnknote =~ s/\n/<br>/g;

if ($new) {
	$i;
	for ($i=$[; $i <= $#user_lnk; $i++) {
		@fields=split('\|', $user_lnk[$i]);
		if (($fields[0] eq $cur_fld) && ($fields[1] eq $cur_lnk)) { &duplnk; exit; }
	}
	$user_lnk[$i] = join('|', $cur_fld, $cur_lnk, $lnkurl, $lnknote);
} else {
	$j = (-1);
	for ($i=$[; $i <= $#user_lnk; $i++) {
		@fields=split('\|', $user_lnk[$i]);
		if (($fields[0] eq $cur_fld) && ($fields[1] eq $lnktoedit)) { $j = $i; }
	}
	if ($j < 0) { &errexit; }
	$user_lnk[$j] = join('|', $cur_fld, $cur_lnk, $lnkurl, $lnknote);
}

&saveuser;
&bookmarks;
&footer;
exit;
}

# ============================================================== editonelnk

sub editonelnk {
$new = 0;
$lnkname = $cur_lnk;
$lnkname =~ s/"/&quot;/g;
if (length($cur_lnk)) { $page_title = "Editing link [$lnkname] at folder [$fldname]"; }
else { $page_title = "Adding new link into folder [$fldname]"; $new = 1; }
&header;
&loguser;

# if not new link find link to edit

if (!$new) {
	for ($i=$[; $i <= $#user_lnk; $i++) {
		@fields=split('\|', $user_lnk[$i]);
		if (($fields[0] eq $cur_fld) && ($fields[1] eq $cur_lnk)) {
			$lnkurl = $fields[2];
			$lnknote = $fields[3];					
		}
	}
}

$urlname = $lnkurl;
$urlname =~ s/"/&quot;/g;
if (!length($urlname)) { $urlname = 'http://'; }

$notename = $lnknote;
$notename =~ s/"/&quot;/g;
# $notename =~ s/\n/<br>/g;
$notename =~ s/<br>/\n/g;
$notename =~ s/"/&quot;/g;

print "<p><font size=+1>$page_title</font><p>";
print "<table width=500><tr><td width=200 valign=\"top\">";
print "<form ACTION=\"$ENV{'SCRIPT_NAME'}?\" METHOD=\"GET\">\n";
print "<b>Link name:</b></td><td>";
print "<input NAME=\"lnk\" size=\"50\" maxlength=50 value=\"$lnkname\"></td></tr>\n";
print "<tr><td width=200 valign=\"top\">";
print "<b>URL:</b></td><td>"; 
print "<input name=\"url\" size=\"50\" maxlength=\"200\" value=\"$urlname\"></td></tr>\n";
print "<tr><td width=200 valign=\"top\">";
print "<b>Notes:</b><br>(up to 200 characters)</td><td>";
print "<textarea rows=4 cols=50 WRAP=VIRTUAL name=\"note\">$notename</textarea><p align=\"center\">\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"fld\" VALUE=\"$fldname\">\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"cmd\" VALUE=\"proclnk\">\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"lnktoedit\" VALUE=\"$lnkname\">\n";
print " <input TYPE=\"submit\"></p></td></tr></FORM></table>\n";
print "<br><a href=\"$ENV{'SCRIPT_NAME'}?cmd=editlnk&fld=$fldref\">Cancel</a><br>";
print "<p><i><b>Note</b>: Do not forget enter correct prefix (http://, https://, ftp:// etc)<br>";
print "into <b>URL</b> field. To avoid errors cut & paste<br>address string from your browser window.<br></i>\n";
&footer;
exit;
}

# ============================================================== editlnk

sub editlnk {
&header;
&loguser;

print "<br><font size=+1>Edit folder <b>$fldname</b></font><br>\n";
print "<br><table width=500 cellspacing=0 border=0>\n<tr bgcolor=\"#ccccff\">";
print "<TD WIDTH=320 VALIGN=\"top\"><b>Links</b></td>\n";
print "<TD VALIGN=\"top\">";
print "<b>Action</b>";
print "</td></tr>";


for ($i=$[; $i <= $#user_lnk; $i++) {
	@fields=split('\|', $user_lnk[$i]);
	if ($fields[0] eq $cur_fld) {
		print "<tr><td width=320>";
		$lnkref = $fields[1];
		$lnkref =~ s/\+/%2B/g; $lnkref =~ s/=/%3D/g;
		$lnkref =~ tr/ /+/; $lnkref =~ s/&/%26/g; $lnkref =~ s/\"/%22/g;
		$lnkref =~ s/#/%23/g;
		print "<b>$fields[1]</b>";
		print "</td><td><SMALL>";
		print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref\&cmd=editonelnk\&lnk=$lnkref\">Edit</a>, ";
		print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref\&cmd=dellnk\&lnk=$lnkref\">Delete</a><br>\n";
		print "</SMALL></td></tr>"
	}
}
print "</table><br>";
print "<br><a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref&cmd=editonelnk\">Add new link</a><br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref\">Cancel</a><br>\n";

&footer;
exit;
}

# ============================================================== dodelfld

sub dodelfld {
$new_cur_fld;
&header;
&loguser;
if ($[ eq $#user_fld) {
	&initfolders;
	if (!length($tmpuser)) { &savedata; }
	&bookmarks;
	&footer;
	&exit;
}

for ($i=$[; $i <= $#user_fld; $i++) {
	@fields=split('\|', $user_fld[$i]);
	if ($fields[0] eq $cur_fld) {
		$user_fld[$i] = '*';
	} else { $new_cur_fld = $fields[0]; }
}

@user_fld = grep($_ ne '*', @user_fld);

for ($i=$[; $i <= $#user_lnk; $i++) {
	@fields=split('\|', $user_lnk[$i]);
	if ($fields[0] eq $cur_fld) {
		$user_lnk[$i] = '*';
	}
}

@user_lnk = grep($_ ne '*', @user_lnk);
$cur_fld = $new_cur_fld;
$fldref = $cur_fld;
$fldref =~ tr/ /+/; $fldref =~ s/&/%26/g; $fldref =~ s/\"/%22/g;
$fldname = $cur_fld; $fldname =~ s/"/&quot;/g;
&saveuser;
&bookmarks;
&footer;
exit;
}

# ============================================================== delfld

sub delfld {
&loguser;
if ($[ eq $#user_fld) {
	&header;
	&initfolders;
	if (!length($tmpuser)) { &savedata; }
	&bookmarks;
	&footer;
	&exit;
}
$page_title = "Deleting folder $cur_fld";
&header;
print "<br>Deleting folder <b>$cur_fld</b>. Are you sure?: ";
print "<a href=\"$ENV{'SCRIPT_NAME'}?cmd=dodelfld&fld=$fldref\">Yes<a>, ";
print "<a href=\"$ENV{'SCRIPT_NAME'}?cmd=editfld&fld=$fldref\">No<a><br>";
&footer;
exit;
}

# ============================================================== dupfld

sub dupfld {
print "<br><b><font color=\"red\">Warning:</font></b> Folder <b>$fldname</b> already exists<br>\n";
print "<br><br>Press your browser BACK button to continue...<br>\n";
&footer;
}

# ============================================================== selcat

sub selcat {
print "<br><b><font color=\"red\">Warning:</font></b> Please select category for folder <b>$fldname</b><br>\n";
print "<br><br>Press your browser BACK button to continue...<br>\n";
&footer;
}

# ============================================================== procfld

sub procfld {
$new = 0;
&header;
if (! length($fldtoedit)) { $new = 1; }
if (!length($cur_fld)) { &misfld; exit; }
$cur_fld =~ tr/|/!/;
&loguser;

if ($new) {
	$i;
	if ($fldcat eq '-') { &selcat; exit; }
	for ($i=$[; $i <= $#user_fld; $i++) {
		@fields=split('\|', $user_fld[$i]);
		if ($fields[0] eq $cur_fld) { &dupfld; exit; }
	}
	$user_fld[$i] = join('|', $cur_fld, $fldcat);
} else {
	$j = (-1);
	for ($i=$[; $i <= $#user_fld; $i++) {
		@fields=split('\|', $user_fld[$i]);
		if ($fields[0] eq $fldtoedit) { $j = $i; }
	}
	if ($j < 0) { &errexit; }
	$user_fld[$j] = join('|', $cur_fld, $fldcat);
# update links
	for ($i=$[; $i <= $#user_lnk; $i++) {
		@fields=split('\|', $user_lnk[$i]);
		if ($fields[0] eq $fldtoedit) {
			$user_lnk[$i] = join('|', $cur_fld, $fields[1], $fields[2], $fields[3]);
		}
	}
}

&saveuser;
&bookmarks;
&footer;
exit;
}

# ============================================================== editonefld

sub editonefld {
$new = 0;
@cats;
$dfltcat = "-";
if (length($cur_fld)) { $page_title = "Edit folder [$cur_fld]"; }
else { $page_title = "Add new folder"; $new = 1; }
&header;
&loguser;
$file=join('/', $bm_cfg_dir, 'categories.txt');
if (!open(CAT, "<$file")) { errexit; }

$i=0;
if ($new) {
	$i++;
	$cats[0] = "-|--- Select category ---";
}
while ($line = <CAT>) {
	chop($line);
	$cats[$i] = $line;
	$i++;
}
close(CAT);

if (!$new) {
	for ($i=$[; $i <= $#user_fld; $i++) {
		@fields=split('\|', $user_fld[$i]);
		if ($fields[0] eq $cur_fld) { $dfltcat = $fields[1]; }
	}
}

print "<p><font size=+1>$page_title</font><p>";

print "<table width=500><tr><td width=180 valign=\"top\">";
print "<form ACTION=\"$ENV{'SCRIPT_NAME'}?\" METHOD=\"GET\">\n";
print "Folder name:</td>";
print "<td><input NAME=\"fld\" size=20 maxlength=16 value=\"$fldname\"></td></tr>\n";
print "<tr><td width=180 valign=\"top\">";
print "Category:</td><td><select name=\"fldcat\" size=\"1\">\n";
for ($i=$[; $i <= $#cats; $i++) {
	@fields=split('\|', $cats[$i]);
	if ($dfltcat eq $fields[0]) {
		print "<option selected value=\"$fields[0]\">$fields[1]</option>\n";
	} else {
		print "<option value=\"$fields[0]\">$fields[1]</option>\n";
	}
}
print "</select>\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"cmd\" VALUE=\"procfld\">\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"fldtoedit\" VALUE=\"$fldname\">\n";
print "<br><br> <input TYPE=\"submit\">\n";
print "</FORM>\n";
print "</td></tr></table>";
print "<br><a href=\"$ENV{'SCRIPT_NAME'}?cmd=editfld&fld=$fldref\">Cancel<a><br>";
&footer;
exit;
}

# ============================================================== editfld

sub editfld {
&header;
&loguser;

print "<table width=300 cellspacing=0 border=0>\n<tr bgcolor=\"#ccccff\">";
print "<TD WIDTH=150 VALIGN=\"top\"><b> Folders</b></td>\n";
print "<TD VALIGN=\"top\">";
print "<b>Action</b>";
print "</td></tr>";

for ($i=$[; $i <= $#user_fld; $i++) {
	print "<tr><td width=150>";
	@fields=split('\|', $user_fld[$i]);
	$ref = $fields[0];

	$ref =~ s/\+/%2B/g; $ref =~ s/=/%3D/g;
	$ref =~ s/#/%23/g; $ref =~ tr/ /+/; $ref =~ s/&/%26/g; $ref =~ s/\"/%22/g;
	print "<b><a href=\"$ENV{'SCRIPT_NAME'}?fld=$ref\">$fields[0]</a></b>";
	print "</td><td><SMALL>";
	print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$ref\&cmd=editonefld\">Edit</a>";
	if ($[ ne $#user_fld) {
		print ", <a href=\"$ENV{'SCRIPT_NAME'}?fld=$ref\&cmd=delfld\">Delete</a><br>\n";
	}
	print "</SMALL></td></tr>"
}
print "</table><br>";
print "<br><a href=\"$ENV{'SCRIPT_NAME'}?cmd=editonefld\">Add new folder</a><br>";
print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$fldref\">Cancel</a><br>\n";

&footer;
exit;
}

# ============================================================== savedata

sub savedata {
for ($i=$[; $i <= $#user_dat; $i++) {
	@fields=split('\|', $user_dat[$i]);
	if ($fields[0] eq 'default_folder') {
		$user_dat[$i] = join('|', 'default_folder', $cur_fld);
	}
}
$file=join('.', $user, "dat");
$file=join('/', $bm_user_dir, $file);
if (!open(DAT, ">$file")) { &errexit; }
for ($i=$[; $i <= $#user_dat; $i++) { print DAT "$user_dat[$i]\n"; }
close(DAT);
}


# ============================================================== bookmarks

sub bookmarks {

print "<TABLE BORDER=0 WIDTH=650><TR><TD WIDTH=150 VALIGN=\"top\">";
print "<table border=0 cellspacing=0 width=\"100%\"><tr bgcolor=\"#ccccff\">";
print "<TD WIDTH=\"50%\" VALIGN=\"top\"><b> User:</b></td>\n";
print "<TD WIDTH=\"50%\" VALIGN=\"top\" align=\"right\"><b>$user</b>";
print "</td></tr>\n";
print "</table>\n";
print "<font size=-1>Public mode ";
if ($mode_public) {
	print "<b>ON</b> <a href=\"$ENV{'SCRIPT_NAME'}?cmd=puboff&fld=$fldref\"<font size=-1>off</font><br>";
} else {
	print "<b>OFF</b> <a href=\"$ENV{'SCRIPT_NAME'}?cmd=pubon&fld=$fldref\"<font size=-1>on</font><br>";
}
print "</td>\n";
print "<td VALIGN=\"top\"><center>Access your bookmarks online--anytime, anywhere. <a href=http://www.allmusicsearch.com/registerme/accview.pl?cmd=register> Join now!</a>\n";
print "<br><a href=http://www.allmusicsearch.com/allmusicbookmarks/members/cgi-bin/index.pl>Members Log In</a></center><br></td></tr></table>\n";

print $DFLTFONT;
print "<TABLE BORDER=0 WIDTH=650 cellspacing=0><tr><td width=150 valign=\"top\">";
print "<table border=0 cellspacing=0 width=\"100%\"><tr bgcolor=\"#ccccff\">";
print "<TD WIDTH=\"50%\" VALIGN=\"top\"><b> Folders</b></td>\n";
print "<TD WIDTH=\"50%\" VALIGN=\"top\" align=\"right\">";
print "<a href=\"$ENV{'SCRIPT_NAME'}?cmd=editfld&fld=$fldref\"><small>edit</small></a>";
print "</td></tr>\n";
print "</table></td>\n";
print "<td valign=\"top\">";
print "<table border=0 cellspacing=0 width=\"100%\"><tr bgcolor=\"#ccccff\">";
print "<TD WIDTH=\"50%\" VALIGN=\"top\"><b> Bookmarks - [$cur_fld]</b></td>\n";
print "<TD WIDTH=\"50%\" VALIGN=\"top\" align=\"right\"><a href=\"$ENV{'SCRIPT_NAME'}?cmd=editlnk&fld=$fldref\"><small>edit</small></a></td></tr>\n";
print "</table></td>\n";
print "</tr><tr><td width=150 valign=\"top\">";
print "<B>";
print $FOLDERFONT;
if ($alpha_sort) {
	@user_fld = sort {"\U$a" cmp "\U$b"} @user_fld;
	@user_lnk = sort {"\U$a" cmp "\U$b"} @user_lnk;
}
for ($i=$[; $i <= $#user_fld; $i++) {
	@fields=split('\|', $user_fld[$i]);
	if ($fields[0] eq $cur_fld) {
		print $CURFOLDERFONT;
		print @fields[0];
		print "</FONT>";
		print $FOLDERFONT;
	} else {
		$ref = $fields[0];		
		$ref =~ s/\+/%2B/g; $ref =~ s/=/%3D/g; $ref =~ s/#/%23/g;
		$ref =~ tr/ /+/; $ref =~ s/&/%26/g; $ref =~ s/\"/%22/g;
		print "<a href=\"$ENV{'SCRIPT_NAME'}?fld=$ref\">@fields[0]</a>";
	}
	print "<BR>\n";
}
print "</FONT></b>";
&smallads;
print "</td><td width=400 valign=\"top\">";
print $FOLDERFONT;
for ($i=$[; $i <= $#user_lnk; $i++) {
	@fields=split('\|', $user_lnk[$i]);
	if ($fields[0] eq $cur_fld) {
		print "<a href=\"@fields[2]\"  target=\"_blank\"><b>@fields[1]</b></a>";
		if (length($fields[3])) { print "\n<BLOCKQUOTE>$fields[3]</BLOCKQUOTE>\n"; }
		else { print "<br><br>\n"; }
	}
}
print "<br><hr></font></TD></TR></TABLE>";
print "<TABLE BORDER=0 WIDTH=650><TR><TD WIDTH=150 VALIGN=\"top\"> ";
print "</td><td VALIGN=\"top\"><center><p>\n";
print "</center></td></tr></table>\n";
if ($mode_public) {
print "<br><br>URL of this page is <font color=blue>$viewer_url?fld=$fldref&usr=$user</font>\n";
}
}

# ============================================================== smallads

sub smallads {
}

# ============================================================== verifyfolder

sub verifyfolder {
$tmp_fld;
for ($j=$[; $j <= $#user_fld; $j++) {
	@fields=split('\|', $user_fld[$j]);
	if ($fields[0] eq $cur_fld) { return; }
	$tmp_fld = $fields[0];
}
$cur_fld = $tmp_fld;
}

# ============================================================== initfolders
# Sets cur_fld variable

sub initfolders {

if (! length($cur_fld)) {

	for ($i=$[; $i <= $#user_dat; $i++) {
		@fields=split('\|', $user_dat[$i]);
		$cur_fld = $fields[1];
		$fldref = $cur_fld;
		$fldref =~ tr/ /+/; $fldref =~ s/&/%26/g; $fldref =~ s/\"/%22/g;
		$fldname = $cur_fld; $fldname =~ s/"/&quot;/g;
		if ($fields[0] eq 'default_folder') { &verifyfolder; return; }
	}
} else {
	for ($i=$[; $i <= $#user_dat; $i++) {
		@fields=split('\|', $user_dat[$i]);
		if ($fields[0] eq 'default_folder') {
			&verifyfolder;
			$user_dat[$i] = join('|', 'default_folder', $cur_fld);
			return;
		}
	}
}
}

# ============================================================== loguser
# Checks whether 'user' variable set, opens or creates user's
# files, initializes @user_fld, @user_lnk, @user_dat

sub loguser {

if (! &loaduser) {
	$tmpuser = $user;
	$user = $defaultuser;
	if (! &loaduser) { &errexit; }
	$user = $tmpuser;
#	&saveuser;
} else {
	for ($i=$[; $i <= $#user_dat; $i++) {
		@fields=split('\|', $user_dat[$i]);
		if ($fields[0] eq 'public') {
			if  ($fields[1] eq 'on') { $mode_public=1; }
			else { $mode_public=0; }
		}
	}
}
}

# ============================================================== loaduser
sub loaduser {

$file=join('.', $user, "fld");
$file=join('/', $bm_user_dir, $file);

if (!open(FLD, "<$file")) { return 0; }
$i=0;
while ($line = <FLD>) {
	chop($line);
	$user_fld[$i] = $line;
	$i++;
}
close(FLD);

$file=join('.', $user, "lnk");
$file=join('/', $bm_user_dir, $file);
if (!open(LNK, "<$file")) { &errexit; }
$i=0;
while ($line = <LNK>) {
	chop($line);
	$user_lnk[$i] = $line;
	$i++;
}
close(LNK);

$file=join('.', $user, "dat");
$file=join('/', $bm_user_dir, $file);
if (!open(DAT, "<$file")) { &errexit; }
$i=0;
while ($line = <DAT>) {
	chop($line);
	$user_dat[$i] = $line;
	$i++;
}
close(DAT);
return 1;
}

# ============================================================== saveuser

sub saveuser {
$file=join('.', $user, "fld");
$file=join('/', $bm_user_dir, $file);
if (!open(FLD, ">$file")) { &errexit; }
for ($i=$[; $i <= $#user_fld; $i++) { print FLD "$user_fld[$i]\n"; }
close(FLD);

$file=join('.', $user, "lnk");
$file=join('/', $bm_user_dir, $file);
if (!open(LNK, ">$file")) { &errexit; }
for ($i=$[; $i <= $#user_lnk; $i++) {print LNK "$user_lnk[$i]\n"; }
close(LNK);

&savedata;
}

# ============================================================== errexit

sub errexit {
print "<br>Missing data. Probably you are trying to edit bookmark from already deleted folder. Please try to re-enter <a href=\"$ENV{'SCRIPT_NAME'}?\">Bookmarks</a><br>\n";
&footer;
exit;
}

# ============================================================== header

sub header {
if (length($header_file)) {
	if (open(HDR, "<$header_file")) {
		@lines = <HDR>;
		close(HDR);
		print @lines;
		return;
	}
}
print<<EOF;
<HTML>\n
<HEAD><TITLE>$page_title</TITLE></HEAD>\n
<body alink=#0000ff vlink=#0000ff bgcolor=#ffffff>
EOF
}

# ============================================================== footer

sub footer {
if (length($footer_file)) {
	if (open(FTR, "<$footer_file")) {
		@lines = <FTR>;
		close(FTR);
		print "<p>&nbsp;<br>";
		print @lines;
		return;
	}
}
print "<br><table width=650 border=0><tr><td><hr></td></tr><tr><td>";
print "<p><p><font size=-2>Bookmarks Engine (c) - 1999, <a href=\"http://www.eastwright.com/internet/\">Eastwright Corp.</a><br>";
print "Support: <A HREF=\"mailto:$adminemail\">Bookmarks Support</A>";
print "</font></td></tr></table></BODY></HTML>\n";
}

# ============================================================== setcurcat

sub setcurcat {
for ($i=$[; $i <= $#user_fld; $i++) {
	@fields=split('\|', $user_fld[$i]);
	if ($fields[0] eq $cur_fld) { $cur_cat = $fields[1]; }
}
}

# ============================================================== loadbans

sub loadbans {
&setcurcat;
$file = join('.', $cur_cat, 'txt');
$file = join('/', $bm_ads_dir, $file);
if (!open(ADS, "<$file")) { &errexit; }
@banners = <ADS>;
close(ADS);
}

# ============================================================== topban

sub topban {
&loadbans;
($ip)=($ENV{"REMOTE_ADDR"}=~s/\.//g);
srand($$+$ip);
if ($#banners < $[) { return; }
$topbanner = int rand($#banners + 1);
print $banners[$topbanner];
}

# ============================================================== btmban

sub btmban {
if ($#banners < $[) { return; }
$topbanner++;
if ($topbanner > $#banners) { $topbanner = 0; }
print $banners[$topbanner];
}