cvs commit: embperl/podsrc s2pod.pl

[ri...@apache.org]

richter     2003/01/02 01:07:19

  Modified:    eg/web   news.epl
               eg/web/db epwebapp.pl
               podsrc   s2pod.pl
  Log:
  website updates
  
  Revision  Changes    Path
  1.3       +2 -1      embperl/eg/web/news.epl
  
  Index: news.epl
  ===================================================================
  RCS file: /home/cvs/embperl/eg/web/news.epl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- news.epl	22 Oct 2002 05:39:50 -0000	1.2
  +++ news.epl	2 Jan 2003 09:07:19 -0000	1.3
  @@ -19,6 +19,7 @@
                                          '!Order'         => 'creationtime desc',
                                          'language_id'    => $r -> param -> language,
                                          'category_id'    => 1,
  +				       'state'          => 1,
                                          '$max'           => 8}) ;
       } ;
       $dberr = "Error accessing $config->{dbdsn}: " . DBIx::Recordset -> LastError . $@ if (DBIx::Recordset -> LastError || $@) ;
  @@ -65,7 +66,7 @@
                                       $txt =~ s#<#&lt;#g ;
                                       $txt =~ s#>#&gt;#g ;
                                       $txt =~ s#B&lt;(.*?)&gt;#<B>$1</B>#g ;
  -                                    $txt =~ s#(http://[-a-zA-Z.]+)#<A HREF="$1">$1</A>#g if (!($txt =~ s#L&lt;\"(.*?)\"\|(.*?)&gt;#<A HREF="$2">$1</A>#g)) ;
  +                                    $txt =~ s#(http://[-a-zA-Z./0-9]+)#<A HREF="$1">$1</A>#g if (!($txt =~ s#L&lt;\"(.*?)\"\|(.*?)&gt;#<A HREF="$2">$1</A>#g)) ;
                                       -]
                                       [+ do { local $escmode = 0 ; $txt } +]
                                   </font></td>
  
  
  
  1.6       +2 -1      embperl/eg/web/db/epwebapp.pl
  
  Index: epwebapp.pl
  ===================================================================
  RCS file: /home/cvs/embperl/eg/web/db/epwebapp.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- epwebapp.pl	2 Jan 2003 07:39:44 -0000	1.5
  +++ epwebapp.pl	2 Jan 2003 09:07:19 -0000	1.6
  @@ -660,7 +660,8 @@
       my $dest = join ('&', map { $_ . '=' . $r -> Escape (ref ($params{$_})?join("\t", @{$params{$_}}):$params{$_} , 2) } keys %params) ;
   
       #$http_headers_out{'location'} = "show.epl?$dest";
  -    Apache -> request -> err_header_out('location', $r -> server_addr . dirname ($r -> uri) ."show.epl?$dest") ;
  +#    Apache -> request -> err_header_out('location', $r -> param -> server_addr . dirname ($r -> param -> uri) ."/show.epl?$dest") ;
  +    Apache -> request -> err_header_out('location', 'http://www.ecos.de:8766' . dirname ($r -> param -> uri) ."/show.epl?$dest") ;
       
       return 301 ;
       }
  
  
  
  1.3       +2 -1      embperl/podsrc/s2pod.pl
  
  Index: s2pod.pl
  ===================================================================
  RCS file: /home/cvs/embperl/podsrc/s2pod.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- s2pod.pl	22 Oct 2002 05:45:13 -0000	1.2
  +++ s2pod.pl	2 Jan 2003 09:07:19 -0000	1.3
  @@ -1,4 +1,5 @@
   
  +%typemember = ( 'CFG' => 'config -> ', 'PARAM' => 'param -> ', 'METHOD' => '') ;
   
   while (defined ($line = <STDIN>))
       {
  @@ -25,7 +26,7 @@
   
           print "=item Env:\n\n", uc ($cfgname) . "\n\n" if ($cfgname) ;
   
  -        print "=item Method:\n\n$obj -> config -> $method " . ($modfiy?'':'I<[read only]>') . "\n\n" if ($method) ;
  +        print "=item Method:\n\n$obj -> $typemember{$type}$method " . ($modfiy?'':'I<[read only]>') . "\n\n" if ($method) ;
   
   
           print "=item Available since:\n\n$version\n\n" if ($since) ;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org