Changeset 291 for trunk/DashboardTwitter

Timestamp:

08/30/07 07:23:09 (2 years ago)

Author:

fumiakiy

Message:

Updated:

• Plugin configuration (username and password) moved to blog level setting.
• Recent tab shows profile image and screen name linked to url.
• Ajax update of recent tab (click Update link at the bottom).
• Now uses ETag and If-None-Match header aka conditional get when accessing twitter.

Files:

• trunk/DashboardTwitter/plugins/DashboardTwitter/DashboardTwitter.pl (modified) (8 diffs)

trunk/DashboardTwitter/plugins/DashboardTwitter/DashboardTwitter.pl

@@ -17 +17 @@
 <script type="text/javascript">
 <!--
+function update() {
+    TC.Client.call({
+        'load': function(r) {
+            var data = eval("(" + r.responseText + ")");
+            data = data['result'];
+            data = eval("(" + data + ")");
+            var panel = document.getElementById('data-list');
+            if (data && panel) {
+                var array = new Array();
+                for (idx in data) {
+                    if (!data.hasOwnProperty(idx)) continue;
+                    row = data[idx];
+                    text = '<li><img src="' + row.image_url + '" width="16" height="16" /><a href="' + row.url + '">' + row.screen_name + '</a> ' + row.text + '</li>';
+                    array.push(text);
+                }
+                panel.innerHTML = '<ul>' + array.join('') + '</ul>';
+            }
+        },
+        'error': function(r) { alert(r.responseText); },
+        'method': 'POST',
+        'uri': '<mt:var name="script_url">',
+        'arguments': {
+            '__mode' : 'dashboardtwitter_update',
+            'blog_id' : '<mt:var name="blog_id">'
+        }
+    });
+    return false;
+}
+
 function twit() {
     var t = getByID('twit_text');
@@ -44 +73 @@
     <div id="recent-panel" class="<mt:unless name="tab" eq="recent">hidden</mt:unless>" mt:tab-content="recent">
     <mt:if name="data">
+        <div id="data-list"><ul>
     <mt:loop name="data">
-        <ul>
-            <li><mt:var name="text"></li>
-        </ul>
+            <li><img src="<mt:var name="image_url"> width="16" height="16" /><a href="<mt:var name="url">"><mt:var name="screen_name"></a> <mt:var name="text"></li>
     </mt:loop>
+        </ul></div>
     <mt:else>
     <mt:if name="error"><mt:var name="error"></mt:if>
     </mt:if>
+    <a href="javascript:void(0)" onclick="update(); return false;"
+        title="<__trans phrase="Update">"><__trans phrase="Update"></a>
     </div>
     <div id="twit-panel" class="<mt:unless name="tab" eq="twit">hidden</mt:unless>" mt:tab-content="twit">
@@ -70 +101 @@
     name => 'DashboardTwitter',
     author_link => 'http://www.luckypines.com/mt/',
-        system_config_template => <<TMPL,
+        blog_config_template => <<TMPL,
 <dl>
 <dt>Twitter username</dt>
-<dd><input name="twitter_username" size="40" /></dd>
+<dd><input name="twitter_username" size="40" value="<mt:var name="twitter_username">" /></dd>
 <dt>Twitter password</dt>
-<dd><input type="password" name="twitter_password" size="40" /></dd>
+<dd><input type="password" name="twitter_password" size="40" value="<mt:var name="twitter_password">" /></dd>
 </dl>
 TMPL
@@ -102 +133 @@
                 },
                 methods => {
-                    dashboardtwitter_twit => \&_hdlr_twit,
+                    dashboardtwitter_twit   => \&_hdlr_twit,
+                    dashboardtwitter_update => \&_js_hdlr_recent,
                 },
             }
@@ -116 +148 @@
     my ($tmpl, $param) = @_;
 
+    _recent_twitter($app, $param);
+    return 1;
+}
+
+sub _js_hdlr_recent {
+    my $app = shift;
+    my ($tmpl, $param) = @_;
+
+    $param ||= {};
+    _recent_twitter($app, $param);
+    my $data = $param->{data};
+    $app->json_result(JSON::objToJson($data));
+}
+
+sub _recent_twitter {
+    my ($app, $param) = @_;
+
     $param->{tab} = 'recent';
     
-    my $config = $plugin->get_config_hash('system');
+    my $blog_id = $app->param('blog_id');
+    unless ($blog_id) {
+        $param->{error} = 'blog_id required.';
+        return 1;
+    }
+    my $scope = "blog:$blog_id";
+
+    my $config = $plugin->get_config_hash($scope);
     my $username = $config->{twitter_username};
     my $password = $config->{twitter_password};
@@ -125 +181 @@
     my $req = HTTP::Request->new( GET => $recent_url );
     $req->authorization_basic($username, $password);
+    if ( my $etag = $config->{twitter_etag} ) {
+        $req->header( If_None_Match => $etag );
+    }
     my $res = $ua->request($req);
-    return unless $res->is_success();
+    my $s = q();
     if ( my $prev = $res->previous) {
         if ( ('302' eq $prev->code ) && ( $prev->location =~ m|http://static\.twitter\.com| ) ) {
@@ -134 +193 @@
             $param->{error} = 'hmm?';
         }
+    } elsif ( '304' eq $res->code ) {
+        $s = $config->{twitter_cache};
     } else {
-        my $s = $res->content;
+        $s = $res->content;
         $s =~ s/\\u([0-9a-fA-F]+)/&#x$1;/g;
-        eval {
-            my $recent = JSON::jsonToObj($s);
-            $param->{data} = $recent;
-        };
-        if ($@) {
-            die $@ ;
-        }
-    }
-
-    1;
+        if ( my $etag = $res->header('ETag') ) {
+            $plugin->set_config_value('twitter_etag' , $etag, $scope);
+            $plugin->set_config_value('twitter_cache', $s,    $scope);
+        }
+    }
+    return q() unless $s;
+
+    eval {
+        my $recent = JSON::jsonToObj($s);
+        my @data;
+        for my $twit (@$recent) {
+            push @data,
+            {
+                screen_name => $twit->{user}{screen_name},
+                url         => $twit->{user}{url},
+                image_url   => $twit->{user}{profile_image_url},
+                text        => $twit->{text},
+            };
+        }
+        $param->{data} = \@data;
+    };
+    if ($@) {
+        die $@ ;
+    }
+    return 1;
 }
 
@@ -152 +228 @@
     my $app = shift;
 
+    my $blog_id = $app->param('blog_id');
+    unless ($blog_id) {
+        return $app->json_result(0);
+    }
     my $text = $app->param('text');
     my $ua = $app->new_ua;
     my $req = HTTP::Request->new( POST => $update_url );
 
-    my $config = $plugin->get_config_hash('system');
+    my $config = $plugin->get_config_hash("blog:$blog_id");
     my $username = $config->{twitter_username};
     my $password = $config->{twitter_password};