Changeset 3660

Timestamp:

12/28/07 10:32:52 (13 months ago)

Author:

charsbar

Message:

lang/perl/Jipotter: switched from WWW::Shorten::TinyURL to WWW::Lengthen

Location:

lang/perl/Jipotter/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Jipotter/Model/Status.pm (modified) (2 diffs)

lang/perl/Jipotter/trunk/Makefile.PL

@@ -14 +14 @@
 requires    'Time::Piece';
 requires    'Time::Seconds';
-requires    'WWW::Shorten::TinyURL';
+requires    'WWW::Lengthen';
 requires    'URI';
 

lang/perl/Jipotter/trunk/lib/Jipotter/Model/Status.pm

@@ -6 +6 @@
 use URI;
 use HTML::Entities;
-use WWW::Shorten::TinyURL;
+use WWW::Lengthen;
+
+my $lengthener = WWW::Lengthen->new;
 
 use Jifty::DBI::Schema;
@@ -41 +43 @@
 
 sub _convert_uri {
-  my $uri = URI->new( decode_entities( shift ) );
+  my $uri = URI->new( $lengthener->try( decode_entities( shift ) ) );
 
-  if ( $uri->authority eq 'tinyurl.com' ) {
-    $uri = URI->new( makealongerlink( "$uri" ) );
-  }
   return q{<a href="}."$uri".q{">}.
          encode_entities("$uri", "\000-\377").q{</a>};