#!/usr/bin/perl

use XML::Parser;
use Data::Dumper;
use Mail::Sendmail;

sub initmap;
sub handle_start;
sub handle_end;
sub handle_char;
sub groupstart;

my $gamename;
my $createTime;
my $modifyTime;
my @text;
my @opentags;
my $curcom;
my $category;
my $gid;
my %groups;
my $tag;
my %start_map;
my %end_map;
my %char_map;

my $root = $ENV{DOCUMENT_ROOT};
my $file = $ENV{PATH_INFO};
#my $addscript = "http://server1.megagames.com/megacheats/addcomment.cgi";
my $submitscript = "http://server1.megagames.com/megacheats/addcheat.cgi";

initmap();

$groupparse = new XML::Parser(Handlers => { Start => \&groupstart },
			ProtocolEncoding => 'ISO-8859-1');
if ( -f "$root/megacheats/admin/groups.xml" ) {
  eval { $groupparse->parsefile("$root/megacheats/admin/groups.xml"); };
  undef $groupparse;
  if ($@) {
    print "Content-type: text/plain\n\nUnable to parse groups.xml\n$@\nAdmin notified\n";
    Apache->request->log_error("Groups parse error $@");
    exit;
  }
} else {
  print "Content-type: text/html\n\nUnable to find groups data file\n$root/megacheats/admin/groups.xml\n";
  exit;
}


my $parser = new XML::Parser(Handlers => { Start => \&handle_start,
                                           End => \&handle_end,
                                           Char => \&handle_char },
			ProtocolEncoding => 'ISO-8859-1');



unless (-f "$root/$file" ) {
  $root = "xml"; 
  $file = "dc-196.xml";
}
if (-f "$root/$file" ) {
  eval { $parser->parsefile("$root/$file"); };
  Apache->request->log_error("$file parse error: $@") if ($@);
  undef $parser;
} else {
  print "Content-type: text/html\n\nUnable to find cheat data file\n";
  exit;
}


###################################################################

print "Content-type: text/html\n";
print "\n";

if ($ENV{QUERY_STRING} =~ /printer/i) {
  print "<p align=right><a href=\"javascript:window:print()\">Send to Printer</a><br></p>\n";
}

print "<h1>$gamename</h1>\n";
print "<p>\n";
print @text, "\n";
print "</p>\n";

unless ($ENV{QUERY_STRING} =~ /printer/i) {
  print "<p><a href=\"$file?printer\">Printer Friendly View</a></p>\n";
  if ($params{'message'}) {
    print '<font color=red>' . $params{'message'} . '</font><br>\n';
  }
  print "Submit a new cheat for " . $gamename . ": <br>\n";
  print "<form action=$submitscript method=GET>\n";
  print "<input type=hidden name=gid value=$gid>\n";
  print "<input type=hidden name=cat value=$category>\n";
  print "<table><tr><th>Name:</th><td><input type=text name=name></td></tr>\n";
  print "<tr><th>Email:</th><td><input type=text name=email><br>\n";
  print "<tr><th>Cheat:</th><td><textarea name=cheat rows=5 cols=40></textarea></td></tr>\n";
  print "<tr><th colspan=2><input type=submit value=\"Submit Cheat\"><input type=reset value=\"Clear Fields\"></th></tr>\n";
  print "</table></form>\n";
}

#unless ($ENV{QUERY_STRING} =~ /printer/i) {
#  print "<p><a href=\"$file?printer\">Printer Friendly View</a>\n";
#  print "<h3>There are ", scalar @comments, " comments:</h3>\n";

#  print "Add a new comment: <br>\n";
#  print "<form action=$addscript method=GET>\n";
#  print "<input type=hidden name=gid value=$gid>\n";
#  print "<input type=hidden name=cat value=$category>\n";
#  print "<table><tr><th>Name:</th><td><input type=text name=name></td></tr>\n";
#  print "<tr><th>Email:</th><td><input type=text name=email><br>\n";
#  print "<tr><th>Comment:</th><td><textarea name=comment rows=5 cols=40></textarea></td></tr>\n";
#  print "<tr><th colspan=2><input type=submit value=\"Add Comment\"><input type=reset value=\"Clear Fields\"></th></tr>\n";
#  print "</table></form>\n";
#
#  foreach (@comments) {
#    print "<p>Comment from $_->{name} ($_->{email}):<br>@{$_->{text}}</p>\n";
#  }
#
#  print "</p>\n";
#} 
print "<!--Dynamic xml rendering script by David Ihnen (skylos@doglover.com)-->\n";
print "<p>\n";
foreach (@{$groups{category}}) {
  if ($category eq $_->{catName}) {
    print "Platform: $_->{displayName}<br>\n";
    last;
  }
}
print "<!-- ";
print "ID Number: $gid<br>\n" if ($gid);
print "--> \n";
print "<!--Created: ", scalar localtime $createTime, "<br>-->\n" if ($createTime);
print "Modified: ", scalar localtime $modifyTime, "<br>\n" if ($modifyTime);
print "<pre>MegaGames - The Hardcore Gaming Experience\n";
print "            http://www.megagames.com</pre>\n";
print "</p>\n";

exit;

###################################################################

sub handle_start {
  my $object = shift;
  $tag = shift;
  push @opentags, $tag;
  my $funcname;
  foreach (@opentags) {
    $funcname .= "$_-";
  }
  chop $funcname;
  if (exists $start_map{$funcname}) {
    &{$start_map{$funcname}}(@_);
  }
}

sub handle_end {
  my $object = shift;
  $tag = shift;
  my $funcname;
  foreach (@opentags) {
    $funcname .= "$_-";
  }
  chop $funcname;
  pop @opentags;
  $tag = $opentags[$#opentags];
  if (exists $end_map{$funcname}) {
    &{$end_map{$funcname}}(@_);
  }
}

sub handle_char {
  my $object = shift;
  my $funcname;
  foreach (@opentags) {
    $funcname .= "$_-";
  }
  my @array;
  chop $funcname;
  @array = map { /[^\s\r\n]/ ? $_ : () } @_;
  foreach (@array) {
    if (exists $char_map{$funcname}) {
      &{$char_map{$funcname}}($_);
    } else {
#print "Didn't find function for $funcname ($char_map{$funcname})\n";
    }
  }
}

sub initmap {
  %start_map = (
    'cheat' => sub {
      $createTime = $gid = $gamename = $category = '';
      undef $modifyTime;
      @text = ();
    },
    'cheat-comment' => sub {
      $curcom = { @_ };
      push @comments, $curcom;
    }
  );

  %end_map = (
    'cheat-comment' => sub {
      undef $curcom;
    }
  );

  %char_map = (
    'cheat-name' => sub {
      $gamename .= shift;
    },
    'cheat-cat' => sub {
      $category .= shift;
    },
    'cheat-gid' => sub {
      $gid .= shift;
    },
    'cheat-modifyTime' => sub {
      $modifyTime .= shift;
    },
    'cheat-createTime' => sub {
      $createTime .= shift;
    },
    'cheat-text' => sub {
      push @text, @_;
    },
    'cheat-comment' => sub {
      @{$curcom->{text}} = @_;
    }
  );
}


sub groupstart {
  my $object = shift;
  my $name = shift;
  push @{$groups{$name}}, { @_ };
}