===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi	2010/01/17 23:58:42	1.2
+++ todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi	2010/01/18 00:32:41	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: todo.cgi,v 1.1 2010/01/17 23:53:40 andrew Exp $
+# $AFresh1: todo.cgi,v 1.2 2010/01/17 23:58:42 andrew Exp $
 ########################################################################
 # todo.cgi *** REST CGI Handler for todo.txt files
 #
@@ -19,7 +19,7 @@
 use Text::Todo::REST::API::md5;
 
 my $q   = CGI->new();
-my $api = Text::Todo::API->new(
+my $api = Text::Todo::REST::API->new(
     {   basedir   => '/users',
         subdir    => 'todo',
         path_info => $ENV{PATH_INFO},
@@ -28,6 +28,7 @@
 
 my $method = $ENV{HTTP_METHOD} || 'GET';
 
+print $q->header($api->content_type);
 my @result;
 eval { @result = $api->$method( $q->Vars ) };
 if ($@) {
@@ -35,7 +36,7 @@
     exit 2;
 }
 
-eval { print $api->Dump };
+eval { print $api->Dump(@result) };
 if ($@) {
     print "Error: $@\n";
     exit 2;