#!/usr/bin/perl # uri_title.pl - provide a title for uris that go past # # 2005-01-08 muttley BEGIN { eval qq{ use URI::Title qw(title); }; $no_title++ if($@); } sub uri_title { my @urls = @_; return if $no_title; my $return = ""; for (@urls) { my $title = title($_); next unless defined $title; $return .= " [ $title ] "; } return if $return eq ""; return $return; } "That's all folks ;-)"; __END__ =head1 NAME uri_title.pl - provide a title for uris that go past =head1 PREREQUISITES URI::Title =head1 PARAMETERS =head1 PUBLIC INTERFACE Any URIs in the conversation =head1 AUTHORS muttley =cut