version 1.23, 2008/06/14 16:34:54
|
version 1.30, 2012/02/17 15:31:04
|
Line 51 sub maximareply {
|
Line 51 sub maximareply {
|
print $socket &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/i) { $reply='Error: '.$reply; } |
return &unescape($reply); |
return &unescape($reply); |
} else { |
} else { |
return 'Error: no connection.'; |
return 'Error: no connection.'; |
Line 60 sub maximareply {
|
Line 60 sub maximareply {
|
|
|
sub blacklisted { |
sub blacklisted { |
my ($cmd)=@_; |
my ($cmd)=@_; |
foreach my $forbidden ('save','load','plot','lisp','includ','compil', |
foreach my $forbidden ( |
'file','batch','stringout','translat','stout', |
'\? ','\?','%i\d+','%o','batch','block' |
'stin','block','system','concat','read','inchar', |
,'compil','concat','describe','display2d','file','inchar' |
'outchar','ttyoff','with_stdout','writefile', |
,'includ','lisp','load','outchar','plot','quit' |
'reset') { |
,'read','reset','save','stin','stout','stringout' |
|
,'system','translat','ttyoff','with_stdout','writefile' |
|
) { |
if ($cmd=~/$forbidden/s) { return 1; } |
if ($cmd=~/$forbidden/s) { return 1; } |
} |
} |
return 0; |
return 0; |
Line 115 sub runscript {
|
Line 117 sub runscript {
|
|
|
sub maxima_cas_formula_fix { |
sub maxima_cas_formula_fix { |
my ($expression)=@_; |
my ($expression)=@_; |
return &Apache::response::implicit_multiplication($expression); |
$expression=&Apache::response::implicit_multiplication($expression); |
|
$expression=~s/([^\w\%])pi/$1\%pi/gs; |
|
return $expression; |
} |
} |
|
|
sub maxima_run { |
sub maxima_run { |