RSS: |-
sub {
- use WWW::Shorten 'SnipURL';
+ use WWW::Shorten::TinyURL;
use XML::RSS;
use Time::CTime;
my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
my( $service, $url ) = split( / /, $what, 2 );
if( !defined( $service ) ) {
- $kernel->post( $src, $replypath, "USAGE: SHORTEN [<service>] <URL>, where <service> is one of (potentially) BabyURL, Linkz, MakeAShorterLink, Metamark, NotLong, OneShortLink, Shorl, SnipURL, TinyClick, TinyLink, or TinyURL*. (* designates the default service.) Many of these do not work.", $dest );
+ $kernel->post( $src, $replypath, "USAGE: SHORTEN [<service>] <URL>, where <service> is one of (potentially) BabyURL, Linkz, MakeAShorterLink, Metamark, NotLong, OneShortLink, Shorl, TinyClick, TinyLink, or TinyURL*. (* designates the default service.) Many of these do not work.", $dest );
return;
}
if( !defined( $url ) ) {
if( $what =~ /^https?:\/\/(snipurl|tinyurl)\.com\/.*/i ) {
$short = $what;
} else {
- use WWW::Shorten::SnipURL;
- $short = makeashorterlink( $what );
- if( !$short ) {
- use WWW::Shorten::TinyURL;
- }
+ use WWW::Shorten::TinyURL;
$short = makeashorterlink( $what );
if( !$short ) {
$short = $what;