/usr/share/doc/libchatbot-eliza-perl/examples/deutsch.cgi is in libchatbot-eliza-perl 1.08-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #!/usr/bin/perl
# This script implements a Chatbot::Eliza object
# in a cgi program. It uses the CGI.pm module
# written by Lincoln Stein.
#
# It makes use of a German-language "Doctor" script.
#
# It also prints out the debugging output available
# in the Eliza chatbot module.
#
# Needless to say, you must have the CGI.pm module
# installed and working properly with CGI scripts on
# your Web server before you can try to run this script.
# CGI.pm is not included with Eliza.pm.
#
# The German-language script must also be available
# to this script.
#
# Information about CGI.pm is here:
# http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
use CGI;
use Chatbot::Eliza;
my $cgi = new CGI;
my $chatbot = new Chatbot::Eliza "Eliza", "deutsch.txt";
srand( time ^ ($$ + ($$ << 15)) ); # seed the random number generator
print $cgi->header;
print $cgi->start_html;
print $cgi->start_multipart_form;
print $cgi->h2('Eliza Sitzung');
# These lines contain the "Eliza" functionality.
# User comments are passed through the module's transform
# method, and the output is used to prompt the user
# for futher input.
#
if ( $cgi->param() ) {
$prompt = $chatbot->transform( $cgi->param('Comment') );
} else {
$prompt = $chatbot->transform('Hello');
}
$comment = $cgi->param('Comment');
$cgi->param('Comment','');
print $cgi->h3($prompt),
$cgi->br,
$cgi->textarea( -name => 'Comment',
-wrap => 'yes',
-rows => 3,
-columns => 70 );
print $cgi->p,
$cgi->submit('Action','Send to Eliza');
print $cgi->endform;
print $cgi->hr;
print $cgi->h2('Debugging Output');
print $cgi->pre($comment,"\n",$chatbot->debug_text,"\n",$prompt);
print $cgi->end_html;
|