#!/usr/bin/perl -wT
use strict;
use CGI;
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;
my $cgi = new CGI;
my $action = $1 if $cgi->param('action') =~ /^(\w+)+/;
&store_event if ($action eq 'storeevent');