Changeset 1768

Timestamp:

11/19/07 02:33:06 (10 months ago)

Author:

xcezx

Message:

• lang/perl/irssi/scripts/delicious.pl: URI::Find::Rule やめて URI::Find::Simple に変更。あと URI::Title 使って URI 先のタイトル取得
  

Files:

• lang/perl/irssi/scripts/delicious.pl (modified) (4 diffs)

lang/perl/irssi/scripts/delicious.pl

@@ -10 +10 @@
 
 use Net::Delicious;
-use URI::Find::Rule;
+use URI::Find::Simple qw/list_uris/;
+use URI::Title qw/title/;
 use YAML::Syck;
 use File::Spec;
@@ -40 +41 @@
     $channel =~ s/^#//;
 
-    my @urls = URI::Find::Rule->in($data);
+    my @urls = list_uris($data);
     return unless @urls;
 
@@ -50 +51 @@
     elsif ( defined $pid ) {
         for my $url (@urls) {
-            $url = $url->[1];
             $url =~ s/\*$//
               if ( settings_get_int('delicious_strip_trailing_slash') );
@@ -66 +66 @@
                 {
                     url         => $url,
-                    description => $url,
+                    description => title($url),
                     extended    => $text,
                     tags        => '!irc ' . $channel,