version 1.399, 2008/04/16 22:51:21
|
version 1.402, 2008/05/30 19:53:16
|
Line 1535 sub ls3_handler {
|
Line 1535 sub ls3_handler {
|
&Failure($client,"refused\n","$cmd:$tail"); |
&Failure($client,"refused\n","$cmd:$tail"); |
return 1; |
return 1; |
} |
} |
} elsif (defined($alternate_root)) { |
} elsif ($alternate_root ne '') { |
$dir_root = $alternate_root; |
$dir_root = $alternate_root; |
} |
} |
if (defined($dir_root)) { |
if ($dir_root ne '') { |
$ulsdir = $dir_root.'/'.$ulsdir; |
if ($ulsdir =~ /^\//) { |
|
$ulsdir = $dir_root.$ulsdir; |
|
} else { |
|
$ulsdir = $dir_root.'/'.$ulsdir; |
|
} |
} |
} |
my $obs; |
my $obs; |
my $rights; |
my $rights; |
Line 1576 sub ls3_handler {
|
Line 1580 sub ls3_handler {
|
} |
} |
} else { |
} else { |
$ulsout='no_such_dir'; |
$ulsout='no_such_dir'; |
} |
} |
if ($ulsout eq '') { $ulsout='empty'; } |
if ($ulsout eq '') { $ulsout='empty'; } |
&Reply($client, \$ulsout, $userinput); # This supports debug logging. |
&Reply($client, \$ulsout, $userinput); # This supports debug logging. |
return 1; |
return 1; |
} |
} |
®ister_handler("ls3", \&ls3_handler, 0, 1, 0); |
®ister_handler("ls3", \&ls3_handler, 0, 1, 0); |
|
|
Line 3622 sub dump_course_id_handler {
|
Line 3626 sub dump_course_id_handler {
|
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
|
|
my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
$typefilter,$regexp_ok,$rtn_as_hash,$selfenrollonly) =split(/:/,$tail); |
$typefilter,$regexp_ok,$rtn_as_hash,$selfenrollonly,$catfilter) =split(/:/,$tail); |
my $now = time; |
my $now = time; |
if (defined($description)) { |
if (defined($description)) { |
$description=&unescape($description); |
$description=&unescape($description); |
Line 3663 sub dump_course_id_handler {
|
Line 3667 sub dump_course_id_handler {
|
if (defined($regexp_ok)) { |
if (defined($regexp_ok)) { |
$regexp_ok=&unescape($regexp_ok); |
$regexp_ok=&unescape($regexp_ok); |
} |
} |
|
if (defined($catfilter)) { |
|
$catfilter=&unescape($catfilter); |
|
} |
my $unpack = 1; |
my $unpack = 1; |
if ($description eq '.' && $instcodefilter eq '.' && $coursefilter eq '.' && |
if ($description eq '.' && $instcodefilter eq '.' && $coursefilter eq '.' && |
$typefilter eq '.') { |
$typefilter eq '.') { |
Line 3701 sub dump_course_id_handler {
|
Line 3708 sub dump_course_id_handler {
|
next; |
next; |
} |
} |
} |
} |
|
if ($catfilter ne '') { |
|
next if ($items->{'category'} ne $catfilter); |
|
} |
} |
} |
} else { |
} else { |
|
next if ($catfilter ne ''); |
|
next if ($selfenrollonly); |
$is_hash = 0; |
$is_hash = 0; |
my @courseitems = split(/:/,$value); |
my @courseitems = split(/:/,$value); |
$lasttime = pop(@courseitems); |
if ($hashref->{$lasttime_key} eq '') { |
next if ($lasttime<$since); |
$lasttime = pop(@courseitems); |
|
next if ($lasttime<$since); |
|
} |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
} |
} |
my $match = 1; |
my $match = 1; |