#!/usr/bin/perl /usr/local/bin/asp-perl

<!--#include file="inc/head.inc"-->

<!-- action.pl - Do an action on a link entry
  This works by taking two variables, the id of the link and the operation to
  be performed. If the action (variable 'op') is in the approved list, we will
  then use dynamic includes to grab $op.inc. Otherwise we will give an error.
-->

<%
  # Set up a connection to the link database
  use LinkDB;

  # This is the list of approved operations
  my %op_list = (
    'link/del' => 1,           # Possibly delete an entry
    'link/del_confirmed' => 1, # We have confirmed deletion of an entry
    'link/add' => 1,           # Add an entry
    'link/addform' => 1,       # Display for for adding an entry
    'link/edit' => 1,          # Edit an entry
    'link/update' => 1,        # Update an entry after editing
    'category/del' => 1,           # Possibly delete an entry
    'category/del_confirmed' => 1, # We have confirmed deletion of an entry
    'category/add' => 1,           # Add an entry
    'category/addform' => 1,       # Display for for adding an entry
    'category/edit' => 1,          # Edit an entry
    'category/update' => 1,        # Update an entry after editing
  );


  # Grab the op(eration) and id from the GET variables
  my $op = $Request->QueryString('op');
  my $id = $Request->QueryString('id');

  # Now we make sure that this op is okay
  if($op_list{$op}) {
    # Include the INC file for this operation
    $Response->Include("inc/$op.inc", $form, $db, $id);
  } else {
    # The op is not known
    %>
    <h1> Error - Illegal Operation! </h1>
    <%
  }
%>

<!-- End of action.asp -->

<!--#include file="inc/foot.inc"-->