WAIT/Format/CPAN.pm

#                              -*- Mode: Perl -*- 
# CPAN.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Wed Sep 18 19:24:55 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:45 1998
# Language        : CPerl
# Update Count    : 19
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Format::CPAN;
require WAIT::Format::HTML;
use strict;
use vars qw(@ISA);

@ISA = qw(WAIT::Format::HTML);

my $CPAN = 'http://ls6-www.informatik.uni-dortmund.de/ir/cgi-bin/CPAN';

sub as_string {
  my $self = shift;
  my ($text, $func) = @_;

  my $result = $self->SUPER::as_string(@_);

  if ($func) {
    my %rec = &$func();
    if ($rec{source} and $rec{source} !~ m(^/app/unido)) {
      my $base = $rec{source}; $base =~ s:.*/::;
      $result =
        qq[Contained in: <a href="$CPAN/$rec{source}">$base</a><br>\n]
          . $result;
    }
  }
  $result;
}

1;
1	ulpfr	10	# -- Mode: Perl --
2			# CPAN.pm --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Wed Sep 18 19:24:55 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:45 1998
8			# Language : CPerl
9			# Update Count : 19
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			package WAIT::Format::CPAN;
16			require WAIT::Format::HTML;
17			use strict;
18			use vars qw(@ISA);
19
20			@ISA = qw(WAIT::Format::HTML);
21
22			my $CPAN = 'http://ls6-www.informatik.uni-dortmund.de/ir/cgi-bin/CPAN';
23
24			sub as_string {
25			my $self = shift;
26			my ($text, $func) = @_;
27
28			my $result = $self->SUPER::as_string(@_);
29
30			if ($func) {
31			my %rec = &$func();
32			if ($rec{source} and $rec{source} !~ m(^/app/unido)) {
33			my $base = $rec{source}; $base =~ s:.*/::;
34			$result =
35			qq[Contained in: <a href="$CPAN/$rec{source}">$base</a><br>\n]
36			. $result;
37			}
38			}
39			$result;
40			}
41
42			1;