#!/usr/local/bin/perl
#############################################################################
# mylinks.cgi
#
#############################################################################
# Script written by Jerry Su, jsu7785@email.com
#
# -------------------------------------------------------------------------
#
# PROGRAM NAME: MyLinks
#
# VERSION: 1.0
#
# LAST MODIFIED: 11/29/99
#
# =========================================================================
#
# REQUIRED MODULES: CGI.pm, CGI/Carp.pm
#
# =========================================================================
#
# COPYRIGHT NOTICE:
#
#
#
# Copyright (c)1999-2000 Jerry Su. All Rights Reserved.
#
#
#
# MyLinks is redistributed AS-IS, with no guarantees or warrantees of any
#
# kind. The author of the script will not be held liable to any damage,
#
# both direct or indirect, that this script may cause you.
#
#
#
# If you have any questions or comments, please email jsu7785@email.com
#
#############################################################################

# Cookie information.
my %cookie = (
name => 'MyLinks',
expires => '+3y',
path => '/',
domain => '.eurotango.org'
);

# Deliminator (MUST BE A LETTER [no symbols or numbers]!)
my $delim = 'A';

# Links to display per page.
my $per_page = 10;

# Characters used in encoding/decoding.
my @e = qw!0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z!;

# Load required modules and libraries.
# ---------------------------------------------------
use CGI ();
use CGI::Carp qw/fatalsToBrowser/;
require "admin/links.cfg";
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
$build_use_templates ?
require "$db_lib_path/site_html_templates.pl" :
require "$db_lib_path/site_html.pl";
$|++;
# ========================================================

&main ();

sub main {
# ---------------------------------------------------
# Determine what to do.
#
my $in = new CGI;

if ($in->param('add')) { &add ($in); }
elsif ($in->param('delete')) { &delete ($in); }
elsif ($in->param('help')) { &help ($in); }
else { &display ($in); }
}
# ==============================================================

sub add {
# --------------------------------------------------------
# Adds an ID from the users cookie.
#
my $in = shift;
my $id = $in->param('add');
my $c = $in->cookie($cookie{'name'});

# Make sure we have a valid ID.
unless ($id =~ m,^\d+$,) {
print $in->header();
&site_html_myadderror ("Invalid Link ID: $id");
return;
}

my (%rec) = &get_record ($id);
if ($rec{$db_key} ne $id) {
print $in->header();
&site_html_myadderror ("Unkown Link ID: $id");
return;
}

my $e = &encode ($id);
my @c = split $delim, $c;
my %c = map { $_ => 1 } @c;

# Check to see if the ID is in the cookie.
if ($c{$e}) {
print $in->header();
&site_html_myadderror ("Already in Cookie: $id $e");
return;
}

# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => (join $delim, @c, $e),
-expires => $cookie{'expires'},
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);

# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_myadd (%rec);
}

sub delete {
# --------------------------------------------------------
# Deletes an ID from the users cookie.
#
my $in = shift;
my $id = $in->param('delete');
my $c = $in->cookie($cookie{'name'});

# If ID equals to 'all', delete all.
if ($id =~ m,^ALL$,i) {
# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => '',
-expires => '-1s',
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);

# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_mydeleteall ( { total => $#c+1 } );
return;
}

# Make sure we have a valid ID.
unless ($id =~ m,^\d+$,) {
print $in->header();
&site_html_mydeleteerror ("Invalid Link ID: $id");
return;
}

my (%rec) = &get_record ($id);
if ($rec{$db_key} ne $id) {
print $in->header();
&site_html_mydeleteerror ("Unkown Link ID: $id");
return;
}

my @c = split $delim, $c;
my %c = map { $_ => 1 } @c;
my $e = &encode ($id);

# Check to see if the id is in the cookie.
if (!$c{$e}) {
print $in->header();
&site_html_mydeleteerror ("Not in Cookie: $id");
return;
}

# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => (join $delim, grep {!/^$e$/} @c),
-expires => $cookie{'expires'},
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);

# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_mydelete (%rec);
}

sub help {
#---------------------------------------------------------
# Help Menu for people to set their Cookies.
my $in = shift;
print $in->header();
&site_html_myhelp;
return;
}

sub display {
# --------------------------------------------------------
# Creates page for links to be displayed.
#

my (%links, %cat, %rec);
foreach (@c) {
last if ($_ eq "");
%rec = &get_record ($_);
%{$links{$_}} = %rec;
push (@{$cat{$rec{Category}}}, $_);
}

CAT: foreach (sort keys %cat) {
$OUT{links} .= qq~<p>$_<br>~;
LINK: foreach (@{$cat{$_}}) {
$OUT{links} .= &site_html_mylink (%{$links{$_}});
}
}

my $in = shift;
my @c = split $delim, $in->cookie($cookie{'name'});
my $p = $in->param('page') | | 1;
my (%OUT, $start);
my $broken = "0";

$OUT{'total'} = $#c+1;
$OUT{'links'} = "";
$OUT{'span'} = "";

if ($OUT{'total'} > 0) {
$tpages = int $OUT{'total'}/$per_page + (($OUT{'total'} % $per_page) ? 1 : 0);
$p = 1 if ($p > $tpages);
my $start = ($p-1) * $per_page;
my $url = $ENV{'SCRIPT_NAME'};

# Builds the span pages.
if ($tpages > 1) {
my $prev = $p-1;
my $next = $p+1;

if ($p > 1) {
$OUT{'span'} .= qq~<a href="$url~;
$OUT{'span'} .= qq~?page=$prev~ if ($prev > 1);
$OUT{'span'} .= qq~"><b>< Previous</b></a> <a href="$url">1</a> ~;
if ($prev > 1) {
for (2 .. $prev) { $OUT{'span'} .= qq~<a href="$url?page=$_">$_</a> ~; }
}
}
else { $OUT{'span'} .= qq~< Previous ~; }
$OUT{'span'} .= qq~<b>$p</b> ~;
if ($p < $tpages) {
for ($next .. $tpages) { $OUT{'span'} .= qq~<a href="$url?page=$_">$_</a> ~; }
$OUT{'span'} .= qq~<a href="$url?page=$next"><b>Next ></b></a>~;
}
else { $OUT{'span'} .= qq~Next >~; }
}

# Builds the links.
foreach (@c[$start .. ($start + $per_page - 1)]) {
last if ($_ eq "");
my @exist = &get_record (&decode ($_));
my $ex = @exist;
if ($ex > 1) {
$OUT{'links'} .= &site_html_mylink (@exist);
}
else {
$broken++;
next;
}
}
}
$OUT{'totallinks'} = $OUT{'total'}-$broken;

# Builds the MyLinks page.
print $in->header();
&site_html_myhome ( { %OUT } );
}

sub encode {
# --------------------------------------------------------
# Encodes ID into a alphanumeric smaller value.
#
my $in = shift;
my ($out);

while ($in >= ($#e+1)) {
$out = $e[$in % ($#e+1)] . $out;
$in = int $in/($#e+1);
}
$out = $e[$in] . $out;
return $out;
}

sub decode {
# --------------------------------------------------------
# Decodes ID from an alphanumeric smaller value.
#
my $in = shift;
my ($y, $out);
my $x = 0;
my %e = map { $_ => $x++; } @e;

for ($x = 0; $x < length($in); $x++) {
$y = substr ($in, $x, 1);
$out = $out * ($#e+1) + $e{$y};
}
return $out;
}

else {
$broken++;
next;
}

# Builds the links.
foreach (@c[$start .. ($start + $per_page - 1)]) {
last if ($_ eq "");
my $quant = &decode ($_);
my @exist = &get_record (&decode ($_));
my $ex = @exist;
if ($ex > 1) {
$OUT{'links'} .= &site_html_my_link (@exist);
}
else {
$broken++;
$OUT{'links'} .= qq~<ul><li>The link with ID number $quant has been removed from the database. <a href="/cgi-bin/links/mylinks.cgi?delete=$quant">Click here</a> to remove this message.</ul>~;
next;
}
}
}
$OUT{'brokenlinks'} = $broken;

sub delete {
# --------------------------------------------------------
# Deletes an ID from the users cookie.
#
my $in = shift;
my $id = $in->param('delete');
my $c = $in->cookie($cookie{'name'});

# If ID equals to 'all', delete all.
if ($id =~ m,^ALL$,i) {
# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => '',
-expires => '-1s',
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);

# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_my_delete_all ( { total => $#c+1 } );
return;
}
my (%rec) = &get_record ($id);
my @c = split $delim, $c;
my %c = map { $_ => 1 } @c;
my $e = &encode ($id);

# Check to see if the id is in the cookie.
if (!$c{$e}) {
print $in->header();
&site_html_my_delete_error ("Not in Cookie: $id");
return;
}

# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => (join $delim, grep {!/^$e$/} @c),
-expires => $cookie{'expires'},
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);

# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_my_delete (%rec);
}

<%if total eq 1%>
- with just <%total%> link
<%endif%>
<%if total > 1%>
- with a total of <%total%> links
<%endif%>
<%if brokenlinks > 0%>
(<%brokenlinks%> on this page defunct)
<%endif%>

sub delete {
# --------------------------------------------------------
# Deletes an ID from the users cookie.
#
my $in = shift;
my $id = $in->param('delete');
my $c = $in->cookie($cookie{'name'});

# If ID equals to 'all', delete all.
if ($id =~ m,^ALL$,i) {
# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => '',
-expires => '-1s',
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);
# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
&site_html_mydeleteall ( { total => $#c+1 } );
return;
}
my (%rec) = &get_record ($id);
my @real = %rec;
my $exi = @real;
if ($exi > 2) {
%real = %rec;
}

open (TEST, ">test.txt");
print TEST $exi;
close TEST;
my @c = split $delim, $c;
my %c = map { $_ => 1 } @c;
my $e = &encode ($id);

# Check to see if the id is in the cookie.
if (!$c{$e}) {
print $in->header();
&site_html_mydeleteerror ("Not in Cookie: $id");
return;
}
# Make the cookie.
my $cookie = $in->cookie (
-name => $cookie{'name'},
-value => (join $delim, grep {!/^$e$/} @c),
-expires => $cookie{'expires'},
-path => $cookie{'path'},
-domain => $cookie{'domain'}
);
# Set the cookie and print the header.
print $in->header ( -cookie => $cookie );
if (%real) {
&site_html_mydelete (%real);
}
else {
&site_html_mydeleteunknown ();
}
}

sub site_html_mydeleteunknown {
#------------------------------------------------------
print &load_template ('mydeleteunknown.html', {
%globals
});
}

<html>
<head>
<STYLE>
<!--
BODY {font-family: arial; color:#000000}
P {font-family: arial}
Font {font-family: verdana}
TD {font-family: arial}
A:link {text-decoration: none; color:#003399}
A:visited {text-decoration: none; color:#003399}
A:active {text-decoration: none;}
A:hover {text-decoration: underline; color:#ff0000}
A.white:link {text-decoration: none; color:#ffffff}
A.white:visited {text-decoration: none; color:#ffffff}
A.white:active {text-decoration: none;}
A.white:hover {text-decoration: underline; color:#ff0000}
-->
</STYLE>
<title>MyLinks: Link Deleted</title>
</head>
<BODY bgcolor="#ffffff" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0" rightmargin=0>
<p align="center"> <font color="#04649C" size="2"><b>You have deleted the chosen
link from My Links</b></font> <br>
</p>
<div align="center"></div>
<div align="center"></div>


<div align="center"><center>
<table border="0" cellpadding="5" cellspacing="0" width="96%">
<tr><td bgcolor="#EEEEEE">
<p align="center">
<font size="2">
<a href="<%db_cgi_url%>/mylinks.cgi"><b>Click Here</b></a></font><font color="#04649C" size="2"> to return to My Links</font>
</p>
</td></tr>
</table>
</center></div>
</BODY>
</HTML>

$OUT{'links'} .= qq~<ul><li>The link with ID number $quant has been removed from the database. <a href="$url?delete=$quant">Click here</a> to remove this message.</ul>~;

="/cgi-bin/links/mylinks.cgi?delete=$quant

$url?delete=$quant

<%if ID%>
<p>You have deleted the following link from your MyLinks page: -</p>
<p><ul><li><a href="<%db_cgi_url%>/jump.cgi?ID=<%ID%>" target="_blank"><%Title%></a>
<%if Description%>
- <%Description%>
<%endif%>
- (<b><%Hits%></b></font> hits since <%Date%> ) <a href="<%db_cgi_url%>/mylinks.cgi?add=<%ID%>">Add back again</a>
(Rating: <%Rating%> Votes: <%Votes%> ) <a href="<%db_cgi_url%>/rate.cgi?ID=<%ID%>">Rate It</a>
</ul></p>
<p>If you made a mistake, click here to <a href="<%db_cgi_url%>/mylinks.cgi?add=<%ID%>">add it back again</a></p>
<p>If everything is okay, click here to <a href="<%db_cgi_url%>/mylinks.cgi">view your MyLinks page.</a></p>
<%endif%>
<%ifnot ID%>
<p> Message removed.</p>
<p> Click here to <a href="<%db_cgi_url%>/mylinks.cgi">view your MyLinks page.</a></p>
<%endif%>

my $broken = "0";

my $in = shift;
my @c = split $delim, $in->cookie($cookie{'name'});
my $p = $in->param('page') | | 1;
my (%OUT, $start);
my $broken = "0";