todotxt/Text-Todo-REST-API/example/cgi-bin/todo.cgi - diff

Return to todo.cgi CVS log

Up to [local] / todotxt / Text-Todo-REST-API / example / cgi-bin

version 1.9, 2010/02/02 06:11:05

version 1.10, 2010/02/02 17:03:42

Line 1

#!/usr/bin/perl

# $AFresh1: todo.cgi,v 1.8 2010/01/26 06:03:11 andrew Exp $

# $AFresh1: todo.cgi,v 1.9 2010/02/02 06:11:05 andrew Exp $

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

# todo.cgi *** REST CGI Handler for todo.txt files

Line 33

exit 1;

}

my $method = $ENV{REQUEST_METHOD} or die 'REQUEST_METHOD required';

my $method = $q->request_method or die 'REQUEST_METHOD required';

my $response;

eval { ($response) = $api->$method( $ENV{PATH_INFO}, $q->Vars ) };

eval { ($response) = $api->$method( $q->path_info, $q->Vars ) };

if ($@) {

print "Error: $@\n";

exit 2;