/[pub]/suikawiki/script/lib/SuikaWiki/Implementation.pm
Suika

Diff of /suikawiki/script/lib/SuikaWiki/Implementation.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wakaba, Thu Oct 30 07:45:46 2003 UTC revision 1.4 by wakaba, Tue Nov 25 12:42:47 2003 UTC
# Line 9  package SuikaWiki::Implementation; Line 9  package SuikaWiki::Implementation;
9  use strict;  use strict;
10  our $VERSION = do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our $VERSION = do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
11    
12  our $INTERFACE_VERSION = v2.9.1;  our $INTERFACE_VERSION = '2.9.1';
13    
14  =head1 METHODS  =head1 METHODS
15    
# Line 109  sub init_db ($) { Line 109  sub init_db ($) {
109      \%lock;      \%lock;
110    };    };
111        
   require SuikaWiki::DB::Util;  
   SuikaWiki::DB::Util->error_handler->{-error_handler} = sub {  
     my ($self, $err_type, $err_msg, $err) = @_;  
     $err_msg = caller (3) . '-->' . caller (2) . '-->' . caller (1)  
              . ($err->{method} ? '->'.$err->{method} : '')  
              . ': '  
              . (defined $err->{file} ? $err->{file} . ': ' : '')    
              . (defined $err->{prop} ? $err->{prop} . ': ' : '')  
              . (defined $err->{key} ? join ('//', @{$err->{key}}) . ': ' : '')  
              . $err_msg;  
     if ($self->{config}->{path_to}->{db__content__error_log}) {  
       open LOG, '>>', $self->{config}->{path_to}->{db__content__error_log};  
         print LOG scalar (gmtime), " @{[$$]} {$err_type->{level}}: ",  
                   $err_msg, "\n";  
       close LOG;  
     }  
     if ($err_type->{level} eq 'fatal' || $err_type->{level} eq 'stop') {  
       require Carp;  
       local $Carp::Verbose = 1;  
       Carp::croak $err_msg;  
     }  
   };  
     
112    require SuikaWiki::DB::Logical;    require SuikaWiki::DB::Logical;
113    $self->{db} = new SuikaWiki::DB::Logical;    $self->{db} = new SuikaWiki::DB::Logical;
114        
# Line 172  implementation's version. Line 149  implementation's version.
149    
150  sub version ($) {  sub version ($) {
151    my ($self) = @_;    my ($self) = @_;
152    sprintf '%vd-%s', $self->{interface_version}, $self->{implementation_version};    $self->{interface_version} . '-' . $self->{implementation_version};
153  }  }
154    
155  =item $wiki->exit  =item $wiki->exit
# Line 282  For interoperability, only alphanumeric Line 259  For interoperability, only alphanumeric
259  =item $wiki->{interface_version} (Read only)  =item $wiki->{interface_version} (Read only)
260    
261  SuikaWiki Interface version implemented by this wiki implementation  SuikaWiki Interface version implemented by this wiki implementation
 in v-string format.  
262    
263  =item $wiki->{var}  =item $wiki->{var}
264    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24