#!/usr/local/bin/perl

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header);

use Bc_chef qw(cookie_get);

use Bc_misc qw(get_param);

use Bc_sql qw(get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Security qw(banned);

my $DEBUG = 0;

if (not user_exists($LOGGEDIN) or banned($LOGGEDIN)) {

  my $msg =  "Access Denied";

  if ($DEBUG) { $msg .= " (delchat.pl)"; }

  print error_redir("/", $msg);

  exit 1;

}

my $output = pre_html_header();

my $uid = get_param($QUERY_UID);

my $sql = "delete from messages where subject='chatbox msg' and (";

   $sql .= " (to_ID=" . $DB->quote($LOGGEDIN) . " and";

   $sql .= "  from_ID=" . $DB->quote($uid);

   $sql .= " ) or ";

   $sql .= " (to_ID=" . $DB->quote($uid) . " and";

   $sql .= "  from_ID=" . $DB->quote($LOGGEDIN);

   $sql .= " )";

   $sql .= ")";

if ($DEBUG) {

  if (not sql_execute($sql, "delchat.pl")) { $output .= "<br>\n" . $sql; }

} else {

  sql_execute($sql, "delchat");

  $output .= 1;

}

print $output;

exit 1;