loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.3, 2006/06/12 13:51:13	version 1.4, 2006/06/12 14:22:01
Line 31 package Apache::lonmaxima;	Line 31 package Apache::lonmaxima;
use strict;	use strict;
use IO::Socket;	use IO::Socket;
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA;

sub connect {	sub connect {
return IO::Socket::UNIX->new(Peer => $Apache::lonnet::perlvar{'lonSockDir'}.'/maximasock',	return IO::Socket::UNIX->new(Peer => $Apache::lonnet::perlvar{'lonSockDir'}.'/maximasock',
Line 46 sub disconnect {	Line 47 sub disconnect {
sub maximareply {	sub maximareply {
my ($socket,$cmd)=@_;	my ($socket,$cmd)=@_;
if ($socket) {	if ($socket) {
print $socket &Apache::lonnet::escape($cmd)."\n";	print $socket &escape($cmd)."\n";
my $reply=<$socket>;	my $reply=<$socket>;
chomp($reply);	chomp($reply);
if ($reply=~/^Incorrect/) { $reply='Error: '.$reply; }	if ($reply=~/^Incorrect/) { $reply='Error: '.$reply; }
return &Apache::lonnet::unescape($reply);	return &unescape($reply);
} else {	} else {
return 'Error: no connection.';	return 'Error: no connection.';
}	}
Line 82 sub maxima_check {	Line 83 sub maxima_check {
$points,	$points,
$randomseed,	$randomseed,
$reterror) = @_;	$reterror) = @_;
	my $socket=&connect();
	my $reply=&compareterms($socket,$response,$answer);
	&disconnect($socket);
	if ($reply eq 'true') { return 1; }
return 7;	return 7;
}	}