Changeset 8395 for lang/perl/plagger

Timestamp:

03/26/08 15:38:33 (8 months ago)

Author:

mattn

Message:

lang/perl/plagger/lib/Plagger/Plugin/Publish/Diigo.pm:
fixed tabs to spaces. X-(

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Publish/Diigo.pm (modified) (2 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Publish/Diigo.pm

@@ -19 +19 @@
 sub initialize {
     my $self = shift;
-        unless ($self->{mech}) {
-                my $mech = Plagger::Mechanize->new;
-                $mech->agent_alias('Windows Mozilla');
-                $mech->quiet(1);
-                $self->{mech} = $mech;
-        }
+    unless ($self->{mech}) {
+        my $mech = Plagger::Mechanize->new;
+        $mech->agent_alias('Windows Mozilla');
+        $mech->quiet(1);
+        $self->{mech} = $mech;
+    }
     $self->login_diigo;
 }
@@ -41 +41 @@
 
     my $body = JSON::Syck::Dump({
-                title       => encode('utf-8', $args->{entry}->title),
-                description => $summary || '',
-                tags        => $tag_string,
-                url         => encode('utf-8', $args->{entry}->link),
-                mode        => ($self->conf->{default_public} ? '0' : '2'),
-        });
+        title       => encode('utf-8', $args->{entry}->title),
+        description => $summary || '',
+        tags        => $tag_string,
+        url         => encode('utf-8', $args->{entry}->link),
+        mode        => ($self->conf->{default_public} ? '0' : '2'),
+    });
 
     my $uri = URI->new('http://preview.diigo.com/bookmarklet2');
-        $uri->query_form(
-                cmd  => 'bm_saveBookmark',
-                json => $body,
-                v    => 11,
-        );
-        my $res = eval { $self->{mech}->get($uri->as_string) };
-        if (!$res || !$res->is_success) {
-                $context->log(info => "can't submit: " . $args->{entry}->link);
-        } else {
-                $context->log(info => "Post entry success.");
-        }
+    $uri->query_form(
+        cmd  => 'bm_saveBookmark',
+        json => $body,
+        v    => 11,
+    );
+    my $res = eval { $self->{mech}->get($uri->as_string) };
+    if (!$res || !$res->is_success) {
+        $context->log(info => "can't submit: " . $args->{entry}->link);
+    } else {
+        $context->log(info => "Post entry success.");
+    }
  
     my $sleeping_time = $self->conf->{interval} || 3;