loncom/publisher/lonrights.pm - diff

Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.1, 2003/03/14 02:26:12
+version 1.2, 2003/03/19 22:14:23
  Line 34  use strict;
  use Apache::Constants qw(:common :http);
  use Apache::lonnet();
  use Apache::loncommon();
+ use HTML::LCParser;
+ use Apache::File;
  sub handler {
- Line 45  sub handler {
+ Line 47  sub handler {
    $r->print(&Apache::loncommon::bodytag('Custom Distribution Rights'));
+   my $uri=$r->uri;
+   my $fn=&Apache::lonnet::filelocation('',$uri);
+   my $contents='';
+   my $constructmode=($uri=~/^\/\~/);
+   unless ($constructmode) {
+ # =========================================== This is not in construction space
+       $contents=&Apache::lonnet::getfile($fn);
+       if ($contents==-1) { $contents=''; }
+   } else {
+ # =============================================== This is in construction space
+       if (-e $fn) {
+ 	  my $fh=Apache::File->new($fn);
+           $contents=join('',<$fh>);
+           $fh->close();
+       }
+   }
+   my $parser=HTML::LCParser->new(\$contents);
+   my $token;
+   while ($token=$parser->get_token) {
+       if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {
+          $r->print('<br />'.
+                    $token->[2]->{'effect'}.': '.
+                    $token->[2]->{'realm'}.' '.
+                    $token->[2]->{'role'});
+      }
+   }
    $r->print('</body></html>');
    return OK;
  }