|
version 1.567, 2004/11/10 19:03:04
|
version 1.581, 2004/12/20 20:47:23
|
|
Line 38 use vars
|
Line 38 use vars
|
| qw(%perlvar %hostname %homecache %badServerCache %hostip %iphost %spareid %hostdom |
qw(%perlvar %hostname %homecache %badServerCache %hostip %iphost %spareid %hostdom |
| %libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache |
%libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache |
| %courselogs %accesshash %userrolehash $processmarker $dumpcount |
%courselogs %accesshash %userrolehash $processmarker $dumpcount |
| %coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseresdatacache |
%coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseownerbuf %courseresdatacache |
| %userresdatacache %getsectioncache %domaindescription %domain_auth_def %domain_auth_arg_def |
%userresdatacache %getsectioncache %domaindescription %domain_auth_def %domain_auth_arg_def |
| %domain_lang_def %domain_city %domain_longi %domain_lati $tmpdir $_64bit); |
%domain_lang_def %domain_city %domain_longi %domain_lati $tmpdir $_64bit); |
| |
|
|
Line 1406 sub finishuserfileupload {
|
Line 1406 sub finishuserfileupload {
|
| } |
} |
| # Save the file |
# Save the file |
| { |
{ |
| #&Apache::lonnet::logthis("Saving to $filepath $file"); |
open(FH,'>'.$filepath.'/'.$file); |
| open(my $fh,'>'.$filepath.'/'.$file); |
print FH $ENV{'form.'.$formname}; |
| print $fh $ENV{'form.'.$formname}; |
close(FH); |
| close($fh); |
|
| } |
} |
| # Notify homeserver to grep it |
# Notify homeserver to grep it |
| # |
# |
| |
&Apache::lonnet::logthis("fetching ".$path.$file); |
| my $fetchresult= &reply('fetchuserfile:'.$path.$file,$docuhome); |
my $fetchresult= &reply('fetchuserfile:'.$path.$file,$docuhome); |
| if ($fetchresult eq 'ok') { |
if ($fetchresult eq 'ok') { |
| # |
# |
|
Line 1490 sub flushcourselogs {
|
Line 1490 sub flushcourselogs {
|
| if ($courseidbuffer{$coursehombuf{$crsid}}) { |
if ($courseidbuffer{$coursehombuf{$crsid}}) { |
| $courseidbuffer{$coursehombuf{$crsid}}.='&'. |
$courseidbuffer{$coursehombuf{$crsid}}.='&'. |
| &escape($crsid).'='.&escape($coursedescrbuf{$crsid}). |
&escape($crsid).'='.&escape($coursedescrbuf{$crsid}). |
| '='.&escape($courseinstcodebuf{$crsid}); |
':'.&escape($courseinstcodebuf{$crsid}).':'.&escape($courseownerbuf{$crsid}); |
| } else { |
} else { |
| $courseidbuffer{$coursehombuf{$crsid}}= |
$courseidbuffer{$coursehombuf{$crsid}}= |
| &escape($crsid).'='.&escape($coursedescrbuf{$crsid}). |
&escape($crsid).'='.&escape($coursedescrbuf{$crsid}). |
| '='.&escape($courseinstcodebuf{$crsid}); |
':'.&escape($courseinstcodebuf{$crsid}).':'.&escape($courseownerbuf{$crsid}); |
| } |
} |
| } |
} |
| # |
# |
| # Write course id database (reverse lookup) to homeserver of courses |
# Write course id database (reverse lookup) to homeserver of courses |
|
Line 1570 sub courselog {
|
Line 1570 sub courselog {
|
| $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
| $courseinstcodebuf{$ENV{'request.course.id'}}= |
$courseinstcodebuf{$ENV{'request.course.id'}}= |
| $ENV{'course.'.$ENV{'request.course.id'}.'.internal.coursecode'}; |
$ENV{'course.'.$ENV{'request.course.id'}.'.internal.coursecode'}; |
| |
$courseownerbuf{$ENV{'request.course.id'}}= |
| |
$ENV{'course.'.$ENV{'request.course.id'}.'.internal.courseowner'}; |
| if (defined $courselogs{$ENV{'request.course.id'}}) { |
if (defined $courselogs{$ENV{'request.course.id'}}) { |
| $courselogs{$ENV{'request.course.id'}}.='&'.$what; |
$courselogs{$ENV{'request.course.id'}}.='&'.$what; |
| } else { |
} else { |
|
Line 1642 sub get_course_adv_roles {
|
Line 1644 sub get_course_adv_roles {
|
| if (($tend) && ($tend<$now)) { next; } |
if (($tend) && ($tend<$now)) { next; } |
| if (($tstart) && ($now<$tstart)) { next; } |
if (($tstart) && ($now<$tstart)) { next; } |
| my ($role,$username,$domain,$section)=split(/\:/,$_); |
my ($role,$username,$domain,$section)=split(/\:/,$_); |
| |
if ($username eq '' || $domain eq '') { next; } |
| if ((&privileged($username,$domain)) && |
if ((&privileged($username,$domain)) && |
| (!$nothide{$username.':'.$domain})) { next; } |
(!$nothide{$username.':'.$domain})) { next; } |
| my $key=&plaintext($role); |
my $key=&plaintext($role); |
|
Line 1713 sub courseidput {
|
Line 1716 sub courseidput {
|
| } |
} |
| |
|
| sub courseiddump { |
sub courseiddump { |
| my ($domfilter,$descfilter,$sincefilter,$hostidflag,$hostidref)=@_; |
my ($domfilter,$descfilter,$sincefilter,$instcodefilter,$ownerfilter,$hostidflag,$hostidref)=@_; |
| my %returnhash=(); |
my %returnhash=(); |
| unless ($domfilter) { $domfilter=''; } |
unless ($domfilter) { $domfilter=''; } |
| foreach my $tryserver (keys %libserv) { |
foreach my $tryserver (keys %libserv) { |
|
Line 1721 sub courseiddump {
|
Line 1724 sub courseiddump {
|
| if ((!$domfilter) || ($hostdom{$tryserver} eq $domfilter)) { |
if ((!$domfilter) || ($hostdom{$tryserver} eq $domfilter)) { |
| foreach ( |
foreach ( |
| split(/\&/,&reply('courseiddump:'.$hostdom{$tryserver}.':'. |
split(/\&/,&reply('courseiddump:'.$hostdom{$tryserver}.':'. |
| $sincefilter.':'.&escape($descfilter), |
$sincefilter.':'.&escape($descfilter).':'. |
| |
&escape($instcodefilter).':'.&escape($ownerfilter), |
| $tryserver))) { |
$tryserver))) { |
| my ($key,$value)=split(/\=/,$_); |
my ($key,$value)=split(/\=/,$_); |
| if (($key) && ($value)) { |
if (($key) && ($value)) { |
|
Line 2396 sub rolesinit {
|
Line 2400 sub rolesinit {
|
| my ($area,$role)=split(/=/,$_); |
my ($area,$role)=split(/=/,$_); |
| $area=~s/\_\w\w$//; |
$area=~s/\_\w\w$//; |
| my ($trole,$tend,$tstart)=split(/_/,$role); |
my ($trole,$tend,$tstart)=split(/_/,$role); |
| $userroles.=&set_arearole($trole,$area,$tstart,$tend); |
$userroles.=&set_arearole($trole,$area,$tstart,$tend,$domain,$username); |
| if (($tend!=0) && ($tend<$now)) { $trole=''; } |
if (($tend!=0) && ($tend<$now)) { $trole=''; } |
| if (($tstart!=0) && ($tstart>$now)) { $trole=''; } |
if (($tstart!=0) && ($tstart>$now)) { $trole=''; } |
| if (($area ne '') && ($trole ne '')) { |
if (($area ne '') && ($trole ne '')) { |
|
Line 2773 sub customaccess {
|
Line 2777 sub customaccess {
|
| # ------------------------------------------------- Check for a user privilege |
# ------------------------------------------------- Check for a user privilege |
| |
|
| sub allowed { |
sub allowed { |
| my ($priv,$uri)=@_; |
my ($priv,$uri,$symb)=@_; |
| $uri=&deversion($uri); |
$uri=&deversion($uri); |
| my $orguri=$uri; |
my $orguri=$uri; |
| $uri=&declutter($uri); |
$uri=&declutter($uri); |
|
Line 3054 sub allowed {
|
Line 3058 sub allowed {
|
| |
|
| if ($thisallowed=~/X/) { |
if ($thisallowed=~/X/) { |
| if ($ENV{'acc.randomout'}) { |
if ($ENV{'acc.randomout'}) { |
| my $symb=&symbread($uri,1); |
if (!$symb) { $symb=&symbread($uri,1); } |
| if (($symb) && ($ENV{'acc.randomout'}=~/\&\Q$symb\E\&/)) { |
if (($symb) && ($ENV{'acc.randomout'}=~/\&\Q$symb\E\&/)) { |
| return ''; |
return ''; |
| } |
} |
|
Line 3687 sub writecoursepref {
|
Line 3691 sub writecoursepref {
|
| # ---------------------------------------------------------- Make/modify course |
# ---------------------------------------------------------- Make/modify course |
| |
|
| sub createcourse { |
sub createcourse { |
| my ($udom,$description,$url,$course_server,$nonstandard,$inst_code)=@_; |
my ($udom,$description,$url,$course_server,$nonstandard,$inst_code,$course_owner)=@_; |
| $url=&declutter($url); |
$url=&declutter($url); |
| my $cid=''; |
my $cid=''; |
| unless (&allowed('ccc',$udom)) { |
unless (&allowed('ccc',$udom)) { |
|
Line 3722 sub createcourse {
|
Line 3726 sub createcourse {
|
| # ----------------------------------------------------------------- Course made |
# ----------------------------------------------------------------- Course made |
| # log existence |
# log existence |
| &courseidput($udom,&escape($udom.'_'.$uname).'='.&escape($description). |
&courseidput($udom,&escape($udom.'_'.$uname).'='.&escape($description). |
| '='.&escape($inst_code),$uhome); |
':'.&escape($inst_code).':'.&escape($course_owner),$uhome); |
| &flushcourselogs(); |
&flushcourselogs(); |
| # set toplevel url |
# set toplevel url |
| my $topurl=$url; |
my $topurl=$url; |
|
Line 3809 sub mark_as_readonly {
|
Line 3813 sub mark_as_readonly {
|
| return; |
return; |
| } |
} |
| |
|
| |
# ------------------------------------------------------------Save Selected Files |
| |
|
| |
sub save_selected_files { |
| |
my ($user, $path, @files) = @_; |
| |
my $filename = $user."savedfiles"; |
| |
my @other_files = &files_not_in_path($user, $path); |
| |
open (OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename); |
| |
foreach my $file (@files) { |
| |
print (OUT $ENV{'form.currentpath'}.$file."\n"); |
| |
} |
| |
foreach my $file (@other_files) { |
| |
print (OUT $file."\n"); |
| |
} |
| |
close (OUT); |
| |
return 'ok'; |
| |
} |
| |
|
| |
sub clear_selected_files { |
| |
my ($user) = @_; |
| |
my $filename = $user."savedfiles"; |
| |
open (OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename); |
| |
print (OUT undef); |
| |
close (OUT); |
| |
return ("ok"); |
| |
} |
| |
|
| |
sub files_in_path { |
| |
my ($user, $path) = @_; |
| |
my $filename = $user."savedfiles"; |
| |
my %return_files; |
| |
open (IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename); |
| |
while (my $line_in = <IN>) { |
| |
chomp ($line_in); |
| |
my @paths_and_file = split (m!/!, $line_in); |
| |
my $file_part = pop (@paths_and_file); |
| |
my $path_part = join ('/', @paths_and_file); |
| |
$path_part.='/'; |
| |
my $path_and_file = $path_part.$file_part; |
| |
if ($path_part eq $path) { |
| |
$return_files{$file_part}= 'selected'; |
| |
} |
| |
} |
| |
close (IN); |
| |
return (\%return_files); |
| |
} |
| |
|
| |
# called in portfolio select mode, to show files selected NOT in current directory |
| |
sub files_not_in_path { |
| |
my ($user, $path) = @_; |
| |
my $filename = $user."savedfiles"; |
| |
my @return_files; |
| |
my $path_part; |
| |
open (IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename); |
| |
while (<IN>) { |
| |
#ok, I know it's clunky, but I want it to work |
| |
my @paths_and_file = split m!/!, $_; |
| |
my $file_part = pop (@paths_and_file); |
| |
chomp ($file_part); |
| |
my $path_part = join ('/', @paths_and_file); |
| |
$path_part .= '/'; |
| |
my $path_and_file = $path_part.$file_part; |
| |
if ($path_part ne $path) { |
| |
push (@return_files, ($path_and_file)); |
| |
} |
| |
} |
| |
close (OUT); |
| |
return (@return_files); |
| |
} |
| |
|
| #--------------------------------------------------------------Get Marked as Read Only |
#--------------------------------------------------------------Get Marked as Read Only |
| |
|
| sub get_marked_as_readonly { |
sub get_marked_as_readonly { |
|
Line 3828 sub get_marked_as_readonly {
|
Line 3901 sub get_marked_as_readonly {
|
| } |
} |
| return @readonly_files; |
return @readonly_files; |
| } |
} |
| |
#-----------------------------------------------------------Get Marked as Read Only Hash |
| |
|
| |
sub get_marked_as_readonly_hash { |
| |
my ($domain,$user,$what) = @_; |
| |
my %current_permissions = &Apache::lonnet::dump('file_permissions',$domain,$user); |
| |
my %readonly_files; |
| |
while (my ($file_name,$value) = each(%current_permissions)) { |
| |
if (ref($value) eq "ARRAY"){ |
| |
foreach my $stored_what (@{$value}) { |
| |
if ($stored_what eq $what) { |
| |
$readonly_files{$file_name} = 'locked'; |
| |
} elsif (!defined($what)) { |
| |
$readonly_files{$file_name} = 'locked'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return %readonly_files; |
| |
} |
| # ------------------------------------------------------------ Unmark as Read Only |
# ------------------------------------------------------------ Unmark as Read Only |
| |
|
| sub unmark_as_readonly { |
sub unmark_as_readonly { |
|
Line 4621 sub gettitle {
|
Line 4712 sub gettitle {
|
| my $symb=&symbread($urlsymb); |
my $symb=&symbread($urlsymb); |
| if ($symb) { |
if ($symb) { |
| my ($result,$cached)=&is_cached(\%titlecache,$symb,'title',600); |
my ($result,$cached)=&is_cached(\%titlecache,$symb,'title',600); |
| if (defined($cached)) { return $result; } |
if (defined($cached)) { |
| |
return $result; |
| |
} |
| my ($map,$resid,$url)=&decode_symb($symb); |
my ($map,$resid,$url)=&decode_symb($symb); |
| my $title=''; |
my $title=''; |
| my %bighash; |
my %bighash; |
|
Line 4710 sub symbverify {
|
Line 4803 sub symbverify {
|
| |
|
| sub symbclean { |
sub symbclean { |
| my $symb=shift; |
my $symb=shift; |
| |
if ($symb=~m|^/enc/|) { $symb=&Apache::lonenc::unencrypted($symb); } |
| # remove version from map |
# remove version from map |
| $symb=~s/\.(\d+)\.(\w+)\_\_\_/\.$2\_\_\_/; |
$symb=~s/\.(\d+)\.(\w+)\_\_\_/\.$2\_\_\_/; |
| |
|
|
Line 4731 sub encode_symb {
|
Line 4824 sub encode_symb {
|
| } |
} |
| |
|
| sub decode_symb { |
sub decode_symb { |
| my ($map,$resid,$url)=split(/\_\_\_/,shift); |
my $symb=shift; |
| |
if ($symb=~m|^/enc/|) { $symb=&Apache::lonenc::unencrypted($symb); } |
| |
my ($map,$resid,$url)=split(/___/,$symb); |
| return (&fixversion($map),$resid,&fixversion($url)); |
return (&fixversion($map),$resid,&fixversion($url)); |
| } |
} |
| |
|
|
Line 4780 sub symbread {
|
Line 4875 sub symbread {
|
| } |
} |
| $thisfn=$ENV{'request.filename'}; |
$thisfn=$ENV{'request.filename'}; |
| } |
} |
| |
if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } |
| # is that filename actually a symb? Verify, clean, and return |
# is that filename actually a symb? Verify, clean, and return |
| if ($thisfn=~/\_\_\_\d+\_\_\_(.*)$/) { |
if ($thisfn=~/\_\_\_\d+\_\_\_(.*)$/) { |
| if (&symbverify($thisfn,$1)) { |
if (&symbverify($thisfn,$1)) { |
|
Line 4890 sub numval2 {
|
Line 4986 sub numval2 {
|
| return int($total); |
return int($total); |
| } |
} |
| |
|
| |
sub numval3 { |
| |
use integer; |
| |
my $txt=shift; |
| |
$txt=~tr/A-J/0-9/; |
| |
$txt=~tr/a-j/0-9/; |
| |
$txt=~tr/K-T/0-9/; |
| |
$txt=~tr/k-t/0-9/; |
| |
$txt=~tr/U-Z/0-5/; |
| |
$txt=~tr/u-z/0-5/; |
| |
$txt=~s/\D//g; |
| |
my @txts=split(/(\d\d\d\d\d\d\d\d\d)/,$txt); |
| |
my $total; |
| |
foreach my $val (@txts) { $total+=$val; } |
| |
if ($_64bit) { $total=(($total<<32)>>32); } |
| |
return $total; |
| |
} |
| |
|
| sub latest_rnd_algorithm_id { |
sub latest_rnd_algorithm_id { |
| return '64bit3'; |
return '64bit4'; |
| } |
} |
| |
|
| sub get_rand_alg { |
sub get_rand_alg { |
|
Line 4930 sub rndseed {
|
Line 5043 sub rndseed {
|
| if (!$username) { $username=$wusername } |
if (!$username) { $username=$wusername } |
| my $which=&get_rand_alg(); |
my $which=&get_rand_alg(); |
| if (defined(&getCODE())) { |
if (defined(&getCODE())) { |
| return &rndseed_CODE_64bit($symb,$courseid,$domain,$username); |
if ($which eq '64bit4') { |
| |
return &rndseed_CODE_64bit4($symb,$courseid,$domain,$username); |
| |
} else { |
| |
return &rndseed_CODE_64bit($symb,$courseid,$domain,$username); |
| |
} |
| |
} elsif ($which eq '64bit4') { |
| |
return &rndseed_64bit4($symb,$courseid,$domain,$username); |
| } elsif ($which eq '64bit3') { |
} elsif ($which eq '64bit3') { |
| return &rndseed_64bit3($symb,$courseid,$domain,$username); |
return &rndseed_64bit3($symb,$courseid,$domain,$username); |
| } elsif ($which eq '64bit2') { |
} elsif ($which eq '64bit2') { |
|
Line 5027 sub rndseed_64bit3 {
|
Line 5146 sub rndseed_64bit3 {
|
| } |
} |
| } |
} |
| |
|
| |
sub rndseed_64bit4 { |
| |
my ($symb,$courseid,$domain,$username)=@_; |
| |
{ |
| |
use integer; |
| |
# strings need to be an even # of cahracters long, it it is odd the |
| |
# last characters gets thrown away |
| |
my $symbchck=unpack("%32S*",$symb.' ') << 21; |
| |
my $symbseed=numval3($symb) << 10; |
| |
my $namechck=unpack("%32S*",$username.' '); |
| |
|
| |
my $nameseed=numval3($username) << 21; |
| |
my $domainseed=unpack("%32S*",$domain.' ') << 10; |
| |
my $courseseed=unpack("%32S*",$courseid.' '); |
| |
|
| |
my $num1=$symbchck+$symbseed+$namechck; |
| |
my $num2=$nameseed+$domainseed+$courseseed; |
| |
#&Apache::lonxml::debug("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck"); |
| |
#&Apache::lonxml::debug("rndseed :$num1:$num2:$_64bit"); |
| |
if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); } |
| |
|
| |
return "$num1:$num2"; |
| |
} |
| |
} |
| |
|
| sub rndseed_CODE_64bit { |
sub rndseed_CODE_64bit { |
| my ($symb,$courseid,$domain,$username)=@_; |
my ($symb,$courseid,$domain,$username)=@_; |
| { |
{ |
|
Line 5046 sub rndseed_CODE_64bit {
|
Line 5189 sub rndseed_CODE_64bit {
|
| } |
} |
| } |
} |
| |
|
| |
sub rndseed_CODE_64bit4 { |
| |
my ($symb,$courseid,$domain,$username)=@_; |
| |
{ |
| |
use integer; |
| |
my $symbchck=unpack("%32S*",$symb.' ') << 16; |
| |
my $symbseed=numval3($symb); |
| |
my $CODEchck=unpack("%32S*",&getCODE().' ') << 16; |
| |
my $CODEseed=numval3(&getCODE()); |
| |
my $courseseed=unpack("%32S*",$courseid.' '); |
| |
my $num1=$symbseed+$CODEchck; |
| |
my $num2=$CODEseed+$courseseed+$symbchck; |
| |
#&Apache::lonxml::debug("$symbseed:$CODEchck|$CODEseed:$courseseed:$symbchck"); |
| |
#&Apache::lonxml::debug("rndseed :$num1:$num2:$symb"); |
| |
if ($_64bit) { $num1=(($num1<<32)>>32); } |
| |
if ($_64bit) { $num2=(($num2<<32)>>32); } |
| |
return "$num1:$num2"; |
| |
} |
| |
} |
| |
|
| sub setup_random_from_rndseed { |
sub setup_random_from_rndseed { |
| my ($rndseed)=@_; |
my ($rndseed)=@_; |
| if ($rndseed =~/([,:])/) { |
if ($rndseed =~/([,:])/) { |
|
Line 5330 sub current_machine_ids {
|
Line 5492 sub current_machine_ids {
|
| |
|
| sub declutter { |
sub declutter { |
| my $thisfn=shift; |
my $thisfn=shift; |
| |
if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } |
| $thisfn=~s/^\Q$perlvar{'lonDocRoot'}\E//; |
$thisfn=~s/^\Q$perlvar{'lonDocRoot'}\E//; |
| $thisfn=~s/^\///; |
$thisfn=~s/^\///; |
| $thisfn=~s/^res\///; |
$thisfn=~s/^res\///; |
|
Line 5383 sub thaw_unescape {
|
Line 5546 sub thaw_unescape {
|
| } |
} |
| |
|
| sub mod_perl_version { |
sub mod_perl_version { |
| |
return 1; |
| if (defined($perlvar{'MODPERL2'})) { |
if (defined($perlvar{'MODPERL2'})) { |
| return 2; |
return 2; |
| } |
} |
| return 1; |
|
| } |
} |
| |
|
| sub correct_line_ends { |
sub correct_line_ends { |
|
Line 5419 BEGIN {
|
Line 5582 BEGIN {
|
| # ----------------------------------- Read loncapa.conf and loncapa_apache.conf |
# ----------------------------------- Read loncapa.conf and loncapa_apache.conf |
| unless ($readit) { |
unless ($readit) { |
| { |
{ |
| |
# FIXME: Use LONCAPA::Configuration::read_conf here and omit next block |
| open(my $config,"</etc/httpd/conf/loncapa.conf"); |
open(my $config,"</etc/httpd/conf/loncapa.conf"); |
| |
|
| while (my $configline=<$config>) { |
while (my $configline=<$config>) { |
|
Line 5565 $readit=1;
|
Line 5729 $readit=1;
|
| { |
{ |
| use integer; |
use integer; |
| my $test=(2**32)+1; |
my $test=(2**32)+1; |
| if ($test != 0) { $_64bit=1; } |
if ($test != 0) { $_64bit=1; } else { $_64bit=0; } |
| &logthis(" Detected 64bit platform ($_64bit)"); |
&logthis(" Detected 64bit platform ($_64bit)"); |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl