#!/usr/bin/perl
require "config.idx";
$long = $ENV{'QUERY_STRING'};
if ($long) {
@pairs=split(/&/,$long);
foreach $item(@pairs) {
($name,$content)=split (/=/,$item,2);
$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
else { $INPUT{$name} = $content; }
}
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
else { $INPUT{$name} = $value; }
}
}
&checklogin;
&main;
sub main {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
print qq~
My ORRTEAM Character Counter -- The ORR Home Selling Team RE/MAX - Connect.ORRHomes.com
~;
&header;
print qq~
~;
print qq~
~;
if ($INPUT{action} eq "edit") {
$theid = $INPUT{eid};
if ($INPUT{save} eq "yes") {
@variables = ($INPUT{name},$INPUT{text},$INPUT{eid});
$sql_query = "update trans_boardccounter set name = ?, text = ? where id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Saved
~;
}
if ($INPUT{create} eq "yes") {
@variables = ($INPUT{agent},$INPUT{name},$INPUT{text});
$sql_query = "INSERT INTO trans_boardccounter values ('',?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
$casth = $dbh->prepare("select id from trans_boardccounter order by id DESC LIMIT 0,1");
$casth->execute();
while ($cdata_ref = $casth->fetchrow_hashref()) {
%cdb = %$cdata_ref;
$theid = $cdb{id};
}
print qq~
Saved
~;
}
$basth = $dbh->prepare("select * from trans_boardccounter where id = ?");
$basth->execute($theid);
while ($data_ref = $basth->fetchrow_hashref()) {
%bdb = %$data_ref;
print qq~
~;
}
}
if ($INPUT{action} eq "delete") {
@variables = ($INPUT{eid},$INPUT{agent});
$sql_query = "DELETE FROM trans_boardccounter WHERE id = ? AND agent = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Deleted Record
~;
}
if ($INPUT{action} eq "new") {
print qq~
~;
}
unless ($INPUT{action}) {
print qq~
~;
}
print qq~
|
Remarks
max 2000 characters
My Saved Remarks
~;
$aasth = $dbh->prepare("select * from trans_boardccounter where agent = ? order by id DESC");
$aasth->execute($INPUT{agent});
while ($data_ref = $aasth->fetchrow_hashref()) {
%db = %$data_ref;
print qq~
  $db{name}
~;
}
print qq~
|
|
~;
print qq~
|
~;
&footer;
}