#!/usr/bin/perl
####################################################################################
# Links Admin Script (links.cgi) Copyright 2000 Brian Lozier (lozier@bigfoot.com). #
# Do not distribute this file without the readme.html file that was included in    #
# the zip!  Please read the readme.html file - it includes important installation  #
# instructions as well as copyright information.                                   #
####################################################################################

# Declare variables.
###############################################
# Links database file:
$db = "links.dat";

# Category File:
$cat_file = "categories.dat";

# Title:
$title = "Links Admin";

# Background Color:
$bgcolor = "000000";

# Text Color:
$text = "0000FF";

# Link Color:
$link = "00CCFF";

# Visited Link Color:
$vlink = "0000FF";

# Active Link Color:
$alink = "FFFFFF";

# Font Face:
$font = "Arial";

# Font Size:
$size = "2";

# Password:
$pass = "links";

# Define the data type for the browser.
###############################################
print "Content-type: text/html\n\n";

# Parse the incoming data.
###############################################
&ReadParse;

# Get the Query from the Environment Variables.
###############################################
if ($in{'action'} eq '') {
  $in{'action'} = "print_main";
} # End if

# Function: print_main:
###############################################
if ($in{'action'} eq 'print_main') {

&PrintMainHeader;

print<<"END";
  <font size="$size" face="$font">
  Please choose an option:
    <ul>
      <li><a href="links_admin.cgi?action=print_edit_link">Edit a Link</a></li>
      <li><a href="links_admin.cgi?action=print_delete_form">Delete Links</a></li>
      <li><a href="links_admin.cgi?action=print_add_cat">Add a Category</a></li>
      <li><a href="links_admin.cgi?action=print_delete_cat">Delete a Category</a></li>
    </ul>
  </font>
END

&PrintFooter;

} # End print_main

# Function: print_edit_link:
###############################################
elsif ($in{'action'} eq 'print_edit_link') {

&PrintMainHeader;

# List categories:
###############################################
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

print<<"END";
  <font size="$size" face="$font">
  Please choose which link you would like to edit.
  <form method="post" action="links_admin.cgi">
  <ul>
END

foreach $line (@cats) {
  chomp($line);
  ($cat_num, $category, $cat_descrip) = split(/\|/,$line);
  print "<li><b>$category</b><br>\n";

  foreach $instance (@links) {
    chomp($instance);
    ($link_num, $name, $category_num, $url, $description) = split(/\|/,$instance);
    if ($category_num eq $cat_num) {
      print "<input type=\"radio\" name=\"edit\" value=\"$link_num\">\n";
      print "<a href=\"$url\" target=\"top\">$name</a> - <i>$description</i><br>\n";
    } # End if
  } # End foreach

  print "<br><br>\n";
  print "</li>\n";

} # End foreach

print<<"END";
  </ul>
  Password:<br>
  <input type="password" name="password"><br><br>
  <input type="hidden" name="action" value="edit_link_2">
  <input type="submit" value="Submit">
  <input type="reset" value="Reset">
  </form></font>
END

&PrintFooter;

} # End print_edit_link

# Function: edit_link_2:
###############################################
elsif ($in{'action'} eq 'edit_link_2' and $in{'password'} eq $pass) {

&PrintMainHeader;

unless ($in{'edit'}) {
  &dienice("You forgot to pick a link, please use your [Back] button.\n");
} # End unless

open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

foreach $line (@links) {
  chomp($line);
  ($link_num, $name, $category_num, $url, $description) = split(/\|/,$line);
  if($in{'edit'} eq $link_num) {
    $edit{'link_num'} = "$link_num";
    $edit{'name'} = "$name";
    $edit{'category_num'} = "$category_num";
    $edit{'url'} = "$url";
    $edit{'description'} = "$description";
  } # End if
} # End foreach

print<<"END";
  <font size="$size" face="$font">
  <form method="post" action="links_admin.cgi">
  Name:<br>
  <input type="text" name="name" value="$edit{'name'}"><br><br>
  URL:<br>
  <input type="text" name="url" value="$edit{'url'}"><br><br>
  Description:<br>
  <input type="text" name="description" value="$edit{'description'}"><br><br>
  <input type="hidden" name="action" value="edit_link">
  <input type="hidden" name="link_num" value="$edit{'link_num'}">
  <input type="hidden" name="category_num" value="$edit{'category_num'}">
  <input type="hidden" name="password" value="$in{'password'}">
  <input type="submit" value="Submit"> <input type="reset" value="Reset">
  </form></font>
END

&PrintFooter;

} # End edit_link_2

# Function: edit_link:
###############################################
elsif ($in{'action'} eq 'edit_link' and $in{'password'} eq $pass) {

&PrintMainHeader;

unless ($in{'name'} and $in{'url'} and $in{'description'}) {
  &dienice("You forgot to fill in all the fields, please use your [Back] button.\n");
} # End unless

open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

open(LINKS,">$db") or &dienice("Could not open file: <i>$db</i>.\n");
  flock(LINKS, 2) or &dienice("Could not lock file: <i>$db</i>.\n");
  foreach $line (@links) {
    chomp($line);
    ($link_num, $name, $category_num, $url, $description) = split(/\|/,$line);
    if($link_num eq $in{'link_num'}) {
      $new_record = join('|', $link_num, $in{'name'}, $in{'category_num'}, $in{'url'}, $in{'description'});
      print LINKS "$new_record\n";
    } # End if
    else {
      $record = join('|', $link_num, $name, $category_num, $url, $description);
      print LINKS "$record\n";
    } # End else
  } # End foreach
close(LINKS);

print<<"END";
  <font size="$size" face="$font">
  The link was edited successfully.
  </font>
END

&PrintFooter;

} # End edit_link

# Function: print_delete_form:
###############################################
elsif ($in{'action'} eq 'print_delete_form') {

&PrintMainHeader;

# List categories:
###############################################
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

print<<"END";
  <font size="$size" face="$font">
  Please place a check next to each link you would like to delete.
  <form method="post" action="links_admin.cgi">
  <ul>
END

foreach $line (@cats) {
  chomp($line);
  ($cat_num, $category, $cat_descrip) = split(/\|/,$line);
  print "<li><b>$category</b><br>\n";

  foreach $instance (@links) {
    chomp($instance);
    ($link_num, $name, $category_num, $url, $description) = split(/\|/,$instance);
    if ($category_num eq $cat_num) {
      print "<input type=\"checkbox\" name=\"$link_num\" value=\"delete\">\n";
      print "<a href=\"$url\" target=\"top\">$name</a> - <i>$description</i><br>\n";
    } # End if
  } # End foreach

  print "<br><br>\n";
  print "</li>\n";

} # End foreach

print<<"END";
  </ul>
  Password:<br>
  <input type="password" name="password"><br><br>
  <input type="hidden" name="action" value="delete_link">
  <input type="submit" value="Submit">
  <input type="reset" value="Reset">
  </form></font>
END

&PrintFooter;

} # End print_delete_form

# Function: delete_link:
###############################################
elsif ($in{'action'} eq 'delete_link' and $in{'password'} eq $pass) {

&PrintMainHeader;

open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

open(LINKS,">$db") or &dienice("Could not open file: <i>$db</i>.\n");
  flock(LINKS, 2) or &dienice("Could not lock file: <i>$db</i>.\n");

  foreach $instance (@links) {
    chomp($instance);
    ($link_num, $name, $category_num, $url, $description) = split(/\|/,$instance);
    unless ($in{"$link_num"} eq 'delete') {
      $record = join('|', $link_num, $name, $category_num, $url, $description);
      print LINKS "$record\n";
    } # End unless
  } # End foreach

close(LINKS);

print "<font size=\"$size\" face=\"$font\">Deletions successful.</font>\n";

&PrintFooter;

} # End delete_link

# Function: print_add_cat:
###############################################
elsif ($in{'action'} eq 'print_add_cat') {

&PrintMainHeader;

print "<font size=\"$size\" face=\"$font\">Current Categories:</font>\n";

# Get number of links in each category:
###############################################
open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

foreach $line (@links) {
  chomp($line);
  ($link_num, $name, $cat_num, $url, $description) = split(/\|/,$line);
  $count{"$cat_num"}++;
} # End foreach

# List categories:
###############################################
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

print "<ul><font size=\"$size\" face=\"$font\">\n";

foreach $line (@cats) {
  chomp($line);
  ($cat_num, $category, $cat_descrip) = split(/\|/,$line);
  print "<li><b><a href=\"links.cgi?action=view_cat&category=$cat_num\">$category</a></b>\n";
    if ($count{$cat_num}) {
      if ($count{$cat_num} == 1) {
        print "(1 Link)";
      } # End if
      else {
        print "($count{$cat_num} Links)";
      } # End else
    } # End if
    else {
      print "(0 Links)";
    } # End else
    
  print "<br><i>$cat_descrip</i></li>\n";
} # End foreach

print "</font></ul>\n";

print<<"END";
  <font size="$size" face="$font">
  To add a category, please fill out the form below, and then press the [Submit] button.
  </font>
  <form method="post" action="links_admin.cgi">
  <font size="$size" face="$font">Category Name:</font><br>
  <input type="text" name="new_category"><br><br>
  <font size="$size" face="$font">Description:</font><br>
  <input type="text" name="new_cat_descrip"><br><br>
  <font size="$size" face="$font">Password:</font><br>
  <input type="password" name="password"><br><BR>
  <input type="hidden" name="action" value="add_cat">
  <input type="submit" value="Submit"> <input type="reset" value="Reset">
  </form>
END

&PrintFooter;

} # End print_add_cat

# Function: add_cat:
###############################################
elsif ($in{'action'} eq 'add_cat' and $in{'password'} eq $pass) {

&PrintMainHeader;

unless ($in{'new_category'}) {
  &dienice("You forgot to fill in all the fields, please try again.\n");
} # End unless

# List categories:
###############################################
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

chomp($cats[0]);
($cat_num, $category, $description) = split(/\|/,$cats[0]);
if($cat_num) {
  $count = ++$cat_num;
} # End if
else {
  $count = 1;
} # End else

$record = join('|', $count, $in{'new_category'}, $in{'new_cat_descrip'});

open(CATS,">$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  flock(CATS, 2) or &dienice("Could not lock file: <i>$cat_file</i>.\n");
  print CATS "$record\n";
  foreach $line (@cats) {
    chomp $line;
    print CATS "$line\n";
  } # End foreach
close(LINKS);

print<<"END";
  <font size="$size" face="$font">
  Category "$in{'new_category'}" has been added.
  </font>
END

&PrintFooter;

} # End add_cat

# Function: print_delete_cat:
###############################################
elsif ($in{'action'} eq 'print_delete_cat') {

&PrintMainHeader;

# List categories:
###############################################
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

print<<"END";
  <form method="post" action="links_admin.cgi">
  <font size="$size" face="$font">
  Please place a checkmark next to each category you wish to delete.
  Note that when you delete a category, all links under that category
  will also be deleted (there's no way to get them back if you delete
  them!).<br><br>
END

foreach $line (@cats) {
  chomp($line);
  ($cat_num, $category, $cat_descrip) = split(/\|/,$line);
  print "<input type=\"radio\" name=\"delete\" value=\"$cat_num\"><b>$category</b><br>\n";
} # End foreach

print<<"END";
  <br></font>
  <font size="$size" face="$font">Password:</font><br>
  <input type="password" name="password"><br><BR>
  <input type="hidden" name="action" value="delete_cat">
  <input type="submit" value="Submit"> <input type="reset" value="Reset">
  </form>
END

&PrintFooter;

} # End print_delete_cat

# Function: delete_cat:
###############################################
elsif ($in{'action'} eq 'delete_cat' and $in{'password'} eq $pass) {

&PrintMainHeader;

# Delete the Category
open(CATS,"$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  @cats = <CATS>;
close(CATS);

open(CATS,">$cat_file") or &dienice("Could not open file: <i>$cat_file</i>.\n");
  flock(CATS, 2) or &dienice("Could not lock file: <i>$cat_file</i>.\n");

  foreach $line (@cats) {
    chomp($line);
    ($cat_num, $category, $cat_descrip) = split(/\|/,$line);
    unless($in{'delete'} eq $cat_num) {
      $record = join('|', $cat_num, $category, $cat_descrip);
      print CATS "$record\n";
    } # End unless
  } # End foreach

close(CATS);

# Delete the links in the category
open(LINKS,"$db") or &dienice("Could not open file: <i>$db</i>.\n");
  @links = <LINKS>;
close(LINKS);

open(LINKS,">$db") or &dienice("Could not open file: <i>$db</i>.\n");
  flock(LINKS, 2) or &dienice("Could not lock file: <i>$db</i>.\n");

  foreach $line (@links) {
    chomp($line);
    ($link_num, $name, $cat_num, $url, $description) = split(/\|/,$line);
    unless($in{'delete'} eq $cat_num) {
      $record = join('|', $link_num, $name, $cat_num, $url, $description);
      print LINKS "$record\n";
    } # End unless
  } # End foreach

close(LINKS);

print "<font size=\"$size\" face=\"$font\">Deletions Successful.</font>";

&PrintFooter;

} # End delete_cat

#
else {

# Password Checker:
###############################################
&dienice("Invalid password, please try again.");

} # End Else

####################################################################################
# Subroutine to print main header.                                                 #
####################################################################################
sub PrintMainHeader {
print<<"END";
  <html><head><title>$title</title><basefont face="$font"></head>
  <body bgcolor="$bgcolor" text="$text" link="$link" vlink="$vlink" alink="$alink">
  <p><font size="+1" face="$font">$title</font><hr noshade><font size="$size" face="$font">
  [<a href="links_admin.cgi">Main Admin</a>]
  [<a href="links.cgi">Main Links Page</a>]
  </font></p>
END
} # End PrintMainHeader

####################################################################################
# Subroutine to print footer.                                                      #
####################################################################################
sub PrintFooter {
print<<"END";
  <p><font size="$size" face="$font"><small>
  <hr noshade>Script \&copy Copyright 2000 Script Central. This script \+ more available at: 
  <a href="http://www.vampirecentral.com/scripts/" target=\"_top\">Script Central</a>.
  </small></font></p></body></html>
END
} # End PrintFooter

####################################################################################
# Subroutine to print an error message if the script dies.                         #
####################################################################################
sub dienice {
  ($errmsg) = @_;
  print "<html><head><title>Error</title><basefont face=\"arial\"></head><body>\n";
  print "<p><font size=\"5\">Error</font><hr noshade>\n";
  print "<font size=\"2\">$errmsg</font></p>\n";
  print "</body></html>\n";
  exit;
} # End dienice

####################################################################################
# Adapted from cgi-lib.pl by S.E.Brenner@bioc.cam.ac.uk                            #
# Copyright 1994 Steven E. Brenner                                                 #
####################################################################################

sub ReadParse { local (*in) = @_ if @_; 
local ($i, $key, $val); if ( $ENV{'REQUEST_METHOD'} eq "GET" ) 
{
$in = $ENV{'QUERY_STRING'}; 
} 
elsif ($ENV{'REQUEST_METHOD'} eq "POST") 
{ 
read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); 
} 
else 
{ 
# Added for command line debugging 
# Supply name/value form data as a command line argument 
# Format: name1=value1\&name2=value2\&... 
# (need to escape & for shell) 
# Find the first argument that's not a switch (-) 

$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\\&/&/g; } @in = split(/&/,$in);

 foreach $i (0 .. $#in) { 
# Convert plus's to spaces 

$in[$i] =~ s/\+/ /g; 
# Split into key and value. 
($key, $val) = split(/=/,$in[$i],2); 
# splits on the first =. 
# Convert %XX from hex numbers to alphanumeric 
$key =~ s/%(..)/pack("c",hex($1))/ge; 
$val =~ s/%(..)/pack("c",hex($1))/ge; 

# Associate key and value. \0 is the multiple separator 
$in{$key} .= "\0" if (defined($in{$key})); 
$in{$key} .= $val; } return length($in); }