version 1.76, 2001/05/15 20:50:03
|
version 1.77, 2001/05/25 14:02:10
|
Line 168 sub xmlparse {
|
Line 168 sub xmlparse {
|
my $safehole = new Safe::Hole; |
my $safehole = new Safe::Hole; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
|
$safeeval->permit("sort"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
#need to inspect this class of ops |
#need to inspect this class of ops |