[BACK]Return to lonpublisher.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpublisher.pm between versions 1.35 and 1.36

version 1.35, 2001/08/11 18:51:40 version 1.36, 2001/08/11 19:06:54
Line 133  sub selectbox { Line 133  sub selectbox {
   
 # -------------------------------------------------------- Publication Step One  # -------------------------------------------------------- Publication Step One
   
 sub makeallowed {  
 }  
   
 sub urlfixup {  sub urlfixup {
     my ($url,$target)=@_;      my ($url,$target)=@_;
     my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);      my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);
Line 160  sub publish { Line 157  sub publish {
     my $scrout='';      my $scrout='';
     my $allmeta='';      my $allmeta='';
     my $content='';      my $content='';
       my %allow=();
       undef %allow;
   
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {      unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
  return    return 
Line 255  sub publish { Line 254  sub publish {
                               print $logfile 'URL: '.$tag.':'.$oldurl.' - '.                                print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
   $newurl."\n";    $newurl."\n";
   }    }
                           &makeallowed($newurl);                            $allow{$newurl}=1;
                       }                        }
                   } ('src','href','codebase');                    } ('src','href','codebase');
   
Line 271  sub publish { Line 270  sub publish {
                   } keys %parms;                    } keys %parms;
       
   $outstring.='<'.$tag.$newparmstring.$endtag.'>';    $outstring.='<'.$tag.$newparmstring.$endtag.'>';
         }           } else {
      $allow{$token->[2]->{'src'}}=1;
    }
               } elsif ($token->[0] eq 'E') {                } elsif ($token->[0] eq 'E') {
                   unless ($token->[1] eq 'allow') {                    unless ($token->[1] eq 'allow') {
                      $outstring.=$token->[2];                       $outstring.=$token->[2];
Line 280  sub publish { Line 281  sub publish {
                   $outstring.=$token->[1];                    $outstring.=$token->[1];
               }                }
           }            }
   # ------------------------------------------------------------ Construct Allows
    my $allowstr="\n";
           map {
              $allowstr.='<allow src="'.$_.'" />'."\n";
           } keys %allow;
           $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
           
         {          {
           my $org;            my $org;
           unless ($org=Apache::File->new('>'.$source)) {            unless ($org=Apache::File->new('>'.$source)) {
Removed from v.1.35  
changed lines
  Added in v.1.36

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>