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

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

require "../members/cgi-bin/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 = $defaultuser;
$cur_fld;
$cur_cat;
$command;
$fldtoedit;
$fldcat;
$fldref;
$fldname;
$cur_lnk;
$lnkref;
$lnkname;
$lnkurl;
$lnknote;
$lnktoedit;
@banners;
$topbanner;
$tmpuser;

# ============================================================== 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 'usr') { $user = $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; }
}


&header;
&loguser;
&initfolders;
&bookmarks;
&footer;
exit;


# ============================================================== 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></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 "</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\"></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&usr=$user\">@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";
print "<br><br>URL of this page is <font color=blue>http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}?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) {
	&errexit;
}
for ($i=$[; $i <= $#user_dat; $i++) {
	@fields=split('\|', $user_dat[$i]);
	if ($fields[0] eq 'public') {
		if  ($fields[1] eq 'on') { return; }
	}
}
$user=$defaultuser;
if (! &loaduser) {
	&errexit;
}
}

# ============================================================== 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;
}


# ============================================================== 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];
}