Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
debug.cgi	1.51 KB	-rwxr-xr-x
deutsch	305 B	-rwxr-xr-x
deutsch.cgi	1.66 KB	-rwxr-xr-x
deutsch.txt.gz	4.55 KB	-rw-r--r--
doctor.txt.gz	4 KB	-rw-r--r--
norsk	306 B	-rwxr-xr-x
norsk.cgi	1.66 KB	-rwxr-xr-x
norsk.txt.gz	4.01 KB	-rw-r--r--
simple	299 B	-rwxr-xr-x
simple.cgi	1.3 KB	-rwxr-xr-x
twobots	777 B	-rwxr-xr-x

Code Editor : deutsch.cgi

#!/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;

${this.title}

Code Editor : deutsch.cgi