Changeset 1740 for lang/perl/irssi/scripts/delicious.pl

Timestamp:

11/18/07 08:36:46 (14 months ago)

Author:

xcezx

Message:

• lang/perl/irssi/scripts/delicious.pl: post_to_delicious() に与える引数間違えてたのを修正。正しく "<$nick> $data"になるように。
  

Files:

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

lang/perl/irssi/scripts/delicious.pl

@@ -36 +36 @@
 
 sub post_to_delicious {
-    my ( $server, $channel, $data ) = @_;
+    my ( $channel, $data, $nick ) = @_;
 
-    my $address = $server->{'address'};
-    my $nick    = $server->{'nick'};
     $channel =~ s/^#//;
 
@@ -89 +87 @@
                     if ( $target =~ /$_->{channel}/ )
                     {
-                        post_to_delicious( $server, $target, $data );
+                        post_to_delicious( $target, $data, $nick );
                     }
                 } @{ $config->{servers}->{ $server->{'address'} } };
@@ -95 +93 @@
         }
         else {
-            post_to_delicious( $server, $target, $data );
+            post_to_delicious( $target, $data, $nick );
         }
     }