Changeset 273 for trunk/DashboardTwitter

Timestamp:

08/24/07 02:30:50 (2 years ago)

Author:

fumiakiy

Message:

Test code to check if request was redirected to static.twitter.com... not tested yet as Twitter was back now.

Files:

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

trunk/DashboardTwitter/plugins/DashboardTwitter/DashboardTwitter.pl

@@ -43 +43 @@
     </mt:setvarblock>
     <div id="recent-panel" class="<mt:unless name="tab" eq="recent">hidden</mt:unless>" mt:tab-content="recent">
+    <mt:if name="data">
     <mt:loop name="data">
         <ul>
@@ -48 +49 @@
         </ul>
     </mt:loop>
+    <mt:else>
+    <mt:if name="error"><mt:var name="error"></mt:if>
+    </mt:if>
     </div>
     <div id="twit-panel" class="<mt:unless name="tab" eq="twit">hidden</mt:unless>" mt:tab-content="twit">
@@ -123 +127 @@
     my $res = $ua->request($req);
     return unless $res->is_success();
+    if ( my $prev = $res->previous) {
+        if ( ('302' eq $prev->code ) && ( $prev->location =~ m|http://static\.twitter\.com| ) ) {
+            $param->{error} = 'Twitter must be in maintenance';
+        }
+        else {
+            $param->{error} = 'hmm?';
+        }
+    } else {
+        my $s = $res->content;
+        $s =~ s/\\u([0-9a-fA-F]+)/&#x$1;/g;
+        eval {
+            my $recent = JSON::jsonToObj($s);
+            $param->{data} = $recent;
+        };
+        if ($@) {
+            die $@ ;
+        }
+    }
 
-    my $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;
 }