mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:45:40 -04:00
11 lines
203 B
Text
11 lines
203 B
Text
use WWW::Shorten 'Metamark';
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
print "New link: ", makeashorterlink($said->{body});
|
|
}
|
|
|
|
|
|
__DATA__
|
|
shorten <url> returns the "short form" of a url. Defaults to using xrl.us.
|