cvs commit: embperl/podsrc s2pod.pl

2003-01-02 Thread richter 
richter 2003/01/02 01:07:19

  Modified:eg/web   news.epl
   eg/web/db epwebapp.pl
   podsrc   s2pod.pl
  Log:
  website updates
  
  Revision  ChangesPath
  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 -  1.2
  +++ news.epl  2 Jan 2003 09:07:19 -   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#<#<#g ;
   $txt =~ s#>#>#g ;
   $txt =~ s#B<(.*?)>#$1#g ;
  -$txt =~ s#(http://[-a-zA-Z.]+)#$1#g if (!($txt =~ s#L<\"(.*?)\"\|(.*?)>#$1#g)) ;
  +$txt =~ s#(http://[-a-zA-Z./0-9]+)#$1#g if (!($txt =~ s#L<\"(.*?)\"\|(.*?)>#$1#g)) ;
   -]
   [+ do { local $escmode = 0 ; $txt } +]
   
  
  
  
  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 -   1.5
  +++ epwebapp.pl   2 Jan 2003 09:07:19 -   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 -  1.2
  +++ s2pod.pl  2 Jan 2003 09:07:19 -   1.3
  @@ -1,4 +1,5 @@
   
  +%typemember = ( 'CFG' => 'config -> ', 'PARAM' => 'param -> ', 'METHOD' => '') ;
   
   while (defined ($line = ))
   {
  @@ -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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

cvs commit: embperl/podsrc Config.spod

2003-01-02 Thread richter 
richter 2003/01/02 21:49:38

  Modified:eg/web   config.pl messages.pl
   podsrc   Config.spod
  Log:
  website updates
  
  Revision  ChangesPath
  1.6   +1 -1  embperl/eg/web/config.pl
  
  Index: config.pl
  ===
  RCS file: /home/cvs/embperl/eg/web/config.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- config.pl 2 Jan 2003 07:51:33 -   1.5
  +++ config.pl 3 Jan 2003 05:49:38 -   1.6
  @@ -12,7 +12,7 @@
   $self -> {dbuser} = 'www' ;
   $self -> {dbpassword} = undef ;
   $self -> {adminemail} = '[EMAIL PROTECTED]';
  -$self -> {mailfrom}   = '[EMAIL PROTECTED]';
  +$self -> {emailfrom}   = '[EMAIL PROTECTED]';
   
   # There is normaly no need to change anything below this line
   
  
  
  
  1.6   +4 -4  embperl/eg/web/messages.pl
  
  Index: messages.pl
  ===
  RCS file: /home/cvs/embperl/eg/web/messages.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- messages.pl   26 Nov 2002 10:03:44 -  1.5
  +++ messages.pl   3 Jan 2003 05:49:38 -   1.6
  @@ -66,13 +66,13 @@
'mail_account_request' => 'Sie oder jemand anderes haben ein Benutzer-Konto 
auf der Embperl Website angefordert.',
'mail_note1' => 'Ihr Kontoname ist Ihre E-Mail-Adresse, d.h. sie sollten auf 
der Embperl-Webseite',
'mail_note2' => 'als Login-Name angeben.',
  - 'mail_your_pw_is' => 'Ihr Paßwort ist auf',
  + 'mail_your_pw_is' => 'Ihr Kennwort ist auf',
'mail_note_quotes' => 'gesetzt (ohne die Hochkommata)',
'mail_note_login' => 'Sie können sich jetzt unter folgender Adresse anmelden:',
'mail_sig' => 'Grüße von der Embperl Webseite',
  -'mail_pw' => 'Sie oder jemand anders hat ein neues Paßwort für Ihr 
Benutzerkonto auf der Embperl Webseite beantragt.',
  - 'mail_subj_newuser' => 'Ihr Benutzerkonto auf der Embperl Webseite',
  - 'mail_subj_newpw' => 'Ihr neues Paßwort auf der Embperl Webseite',
  +'mail_pw' => 'Sie oder jemand anders hat ein neues Kennwort für Ihr 
Benutzerkonto auf der Embperl Webseite beantragt.',
  + 'mail_subj_newuser' => 'Ihr Benutzerkonto auf der Embperl Website',
  + 'mail_subj_newpw' => 'Ihr neues Kennwort auf der Embperl Website',
   
# Errors
   'err_notfound'  => 'Das angeforderte Dokument konnte nicht gefunden 
werden.',
  
  
  
  1.6   +1 -1  embperl/podsrc/Config.spod
  
  Index: Config.spod
  ===
  RCS file: /home/cvs/embperl/podsrc/Config.spod,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- Config.spod   2 Jan 2003 07:42:41 -   1.5
  +++ Config.spod   3 Jan 2003 05:49:38 -   1.6
  @@ -774,7 +774,7 @@
   prefix C. This is normaly the case when the request is not the main 
request,
   but a subrequest.
   
  -=head2 *CFG $component / Embperl_PACKAGE /package / / no 
  +=head2 *CFG $component / Embperl_PACKAGE / package / / no 
   
   The name of the package where your code will be executed.  By default, 
   Embperl generates a unique package name for every file.  This ensures
  
  
  

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]