Changeset 636

Show
Ignore:
Timestamp:
05/03/02 22:56:55
Author:
miyagawa
Message:

0.02

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Apache-Clickable/trunk/Changes

    r163 r636  
    11Revision history for Perl extension Apache::Clickable. 
     2 
     30.02  Fri May  3 22:27:43 JST 2002 
     4        - test tweaks 
    25 
    360.01  Sat Jul  7 13:11:54 2001 
  • Apache-Clickable/trunk/MANIFEST

    r163 r636  
    22MANIFEST 
    33Makefile.PL 
     4README 
    45lib/Apache/Clickable.pm 
    56t/00_load.t 
  • Apache-Clickable/trunk/lib/Apache/Clickable.pm

    r163 r636  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.01'
     5$VERSION = 0.02
    66 
    77use Apache::Constants qw(:common); 
     
    2525        $fh = Apache::File->new($r->filename); 
    2626    } 
    27     
     27 
    2828    return DECLINED unless $fh; 
    29      
     29 
    3030    $r->send_http_header; 
    3131 
     
    5454sub new { 
    5555    my($class, %args) = @_; 
    56      
     56 
    5757    my $self = $class->SUPER::new; 
    5858    $self->{apr} = $args{apr}; 
     
    6060    return $self; 
    6161} 
    62   
     62 
    6363sub comment { 
    6464    my($self, $comment) = @_; 
     
    112112                                         $orig_uri); 
    113113                      }); 
    114      
     114 
    115115            # replace Emails 
    116116            unless (uc($self->{apr}->dir_config('ClickableEmail')) eq 'OFF') { 
     
    121121                            }); 
    122122            } 
    123      
     123 
    124124            return $input; 
    125125        }; 
     
    127127    return $sub; 
    128128} 
    129  
    130     
    131129 
    1321301; 
  • Apache-Clickable/trunk/t/lib/FilterTest.pm

    r163 r636  
    1717sub filters { 
    1818    my($file, $class, $config) = @_; 
    19     tie *STDOUT, 'Tie::STDOUT', \my $output; 
    2019    my $r = Apache::FakeRequest->new( 
    2120        content_type => 'text/html', 
     
    2322        filename => $file, 
    2423    ); 
     24 
     25    my $out; 
     26    local $^W; 
     27    local *Apache::FakeRequest::print = sub { 
     28        shift; 
     29        $out .= join '', @_; 
     30    }; 
    2531 
    2632    if (ref($config) eq 'HASH') { 
     
    3137            return $config->{$cfgkey}; 
    3238        }; 
    33     }   
     39    } 
    3440 
    3541    no strict 'refs'; 
    3642    &{$class. "::handler"}($r); 
    37     return $output; 
    38 
    39  
    40 package Tie::STDOUT; 
    41  
    42 sub TIEHANDLE { 
    43     my($class, $ref) = @_; 
    44     bless $ref, $class; 
    45 
    46  
    47 sub PRINT { 
    48     my $self = shift; 
    49     $$self .= join '', @_; 
     43    return $out; 
    5044} 
    5145