/[suikacvs]/messaging/bunshin/Bunshin.pm
Suika

Diff of /messaging/bunshin/Bunshin.pm

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

revision 1.1 by wakaba, Sun Jun 16 02:50:54 2002 UTC revision 1.2 by wakaba, Sun Jun 16 10:46:29 2002 UTC
# Line 1  Line 1 
1    
2  =head1 NAME  =head1 NAME
3    
4  Bunshin  Bunshin --- A shimbun implemrntion written in Perl
5    
6  =cut  =cut
7    
# Line 11  use vars qw($DEBUG $MYNAME $VERSION); Line 11  use vars qw($DEBUG $MYNAME $VERSION);
11  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
12  $MYNAME = 'Bunshin';  $MYNAME = 'Bunshin';
13  $DEBUG = 0;  $DEBUG = 0;
 use Time::Local;  
14  use FileHandle;  use FileHandle;
15  require Message::Entity;  require Message::Entity;
16  require Message::Util;  require Message::Util;
# Line 89  sub set_source ($%) { Line 88  sub set_source ($%) {
88      my $c = $self->{hook_code_conversion} || \&_code_conversion;      my $c = $self->{hook_code_conversion} || \&_code_conversion;
89      local $/ = undef;      local $/ = undef;
90      $self->{source} = &$c ($self, $f->getline, \%option);      $self->{source} = &$c ($self, $f->getline, \%option);
     close SRC;  
91    } else {    } else {
92      Carp::croak "set_source: $_[0]: Unsupported data source type";      Carp::croak "set_source: $_[0]: Unsupported data source type";
93    }    }
# Line 176  sub _make_a_msg ($@) { Line 174  sub _make_a_msg ($@) {
174        $name =~ tr/_/-/;        $name =~ tr/_/-/;
175        if ($p{base_uri} && /uri/ && length $p{$_}) {        if ($p{base_uri} && /uri/ && length $p{$_}) {
176          require URI::WithBase;          require URI::WithBase;
177          $a->add ($name => URI::WithBase->new ($_, $p{base_uri})->abs);          $a->add ($name => URI::WithBase->new ($p{$_}, $p{base_uri})->abs);
178        } else {        } else {
179          $a->add ($name => $p{$_}) if length $p{$_};          $a->add ($name => $p{$_}) if length $p{$_};
180        }        }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24