--- rat/lonpage.pm 2000/09/14 09:26:37 1.3 +++ rat/lonpage.pm 2000/09/16 17:42:01 1.6 @@ -4,19 +4,33 @@ # (TeX Content Handler # # 05/29/00,05/30 Gerd Kortemeyer) -# 08/30,08/31,09/06,09/14 Gerd Kortemeyer +# 08/30,08/31,09/06,09/14,09/15,09/16 Gerd Kortemeyer package Apache::lonpage; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet(); +use HTML::TokeParser; use GDBM_File; # -------------------------------------------------------------- Module Globals my %hash; my @rows; +# ------------------------------------------------------------------ Euclid gcd + +sub euclid { + my ($e,$f)=@_; + my $a; my $b; my $r; + if ($e>$f) { $b=$e; $r=$f; } else { $r=$e; $b=$f; } + while ($r!=0) { + $a=$b; $b=$r; + $r=$a%$b; + } + return $b; +} + # ------------------------------------------------------------ Build page table sub tracetable { @@ -28,11 +42,12 @@ sub tracetable { if (defined($hash{'is_map_'.$rid})) { if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { - my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; - $sofar= + my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; + $sofar= &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, '&'.$frid.'&'); - $sofar++; + $sofar++; + if ($hash{'src_'.$frid}) { my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); if (($brepriv eq '2') || ($brepriv eq 'F')) { if (defined($rows[$sofar])) { @@ -41,9 +56,11 @@ sub tracetable { $rows[$sofar]=$frid; } } + } } } else { - $sofar++; + $sofar++; + if ($hash{'src_'.$rid}) { my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); if (($brepriv eq '2') || ($brepriv eq 'F')) { if (defined($rows[$sofar])) { @@ -52,6 +69,7 @@ sub tracetable { $rows[$sofar]=$rid; } } + } } if (defined($hash{'to_'.$rid})) { @@ -64,7 +82,6 @@ sub tracetable { return $further; } - # ================================================================ Main Handler sub handler { @@ -97,10 +114,19 @@ sub handler { @rows=(); &tracetable(0,$firstres,'&'.$lastres.'&'); - $rows[$#rows+1]=''.$lastres; + if ($hash{'src_'.$lastres}) { + my $brepriv= + &Apache::lonnet::allowed('bre',$hash{'src_'.$lastres}); + if (($brepriv eq '2') || ($brepriv eq 'F')) { + $rows[$#rows+1]=''.$lastres; + } + } my $i; - my $maxcols=-1; + my $j; + my $lcm=1; + my $contents=0; + my %ssibody=(); my %ssibgcolor=(); my %ssitext=(); @@ -112,27 +138,85 @@ sub handler { # --------------------------------------------- Get SSI output, post parameters for ($i=0;$i<=$#rows;$i++) { + if ($rows[$i]) { + $contents++; my @colcont=split(/\&/,$rows[$i]); - $maxcols=$#colcont>$maxcols?$#colcont:$maxcols; + $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); map { my $src=$hash{'src_'.$_}; - $src=~/\.\w+$/; + $src=~/\.(\w+)$/; $cellemb{$_}=Apache::lonnet::fileembstyle($1); if ($cellemb{$_} eq 'ssi') { # --------------------------------------------------------- This is an SSI cell + my $prefix=$_.'_'; + my %posthash=('request.prefix' => $prefix); + map { + if ($_=~/^form.$prefix/) { + my $name=$_; + $name=~s/^form.$prefix//; + $posthash{$name}=$ENV{$_}; + } + } keys %ENV; + my $output=Apache::lonnet::ssi($src,%posthash); + my $parser=HTML::TokeParser->new(\$output); + my $token; + my $bodydef=0; + while (($bodydef==0) && + ($token=$parser->get_token)) { + if ($token->[1] eq 'body') { + $bodydef=1 + } + if ($token->[1] eq 'meta') { + } + if ($token->[1] eq 'script') { + } + if ($token->[1] eq 'basefont') { + } + } + if ($output=~/\]*\>(.*)/si) { + $output=$1; + } + $output=~s/\<\/body\>.*//si; + $ssibody{$_}=$output; # ---------------------------------------------------------------- End SSI cell } } @colcont; - + } } - if ($maxcols<0) { + unless ($contents) { $r->content_type('text/html'); $r->send_http_header; $r->print('Empty page.'); } else { # ------------------------------------------------------------------ Build page + $r->content_type('text/html'); + $r->send_http_header; + $r->print(''); + + $r->print(''); + for ($i=0;$i<=$#rows;$i++) { + if ($rows[$i]) { + $r->print("\n"); + my @colcont=split(/\&/,$rows[$i]); + my $avespan=$lcm/($#colcont+1); + for ($j=0;$j<=$#colcont;$j++) { + my $rid=$colcont[$j]; + $r->print(''); + } + $r->print(''); + } + } + $r->print("\n
print('>'.$ssibody{$rid}); + } elsif ($cellemb{$rid} eq 'img') { + $r->print('>'); + } + $r->print('
"); + $r->print(''); # -------------------------------------------------------------------- End page } # ------------------------------------------------------------- End render page