Changeset 12464

Timestamp:

05/26/08 22:54:43 (5 years ago)

Author:

tokuhirom

Message:

rewrite PC top page by Template::Declare.

Location:

lang/perl/mobirc/trunk

Files:

• Makefile.PL (modified) (1 diff)
• assets/static/pc.css (added)
• assets/static/style.css (deleted)
• lib/App/Mobirc/HTTPD/Controller.pm (modified) (1 diff)
• lib/App/Mobirc/HTTPD/Router.pm (modified) (1 diff)
• lib/App/Mobirc/HTTPD/Template/PC.pm (modified) (1 diff)
• lib/App/Mobirc/HTTPD/Template/Pages.pm (modified) (1 diff)
• t/HTTPD/Template/PC (added)
• t/HTTPD/Template/PC/top.t (added)

lang/perl/mobirc/trunk/Makefile.PL

@@ -73 +73 @@
 tests 't/*.t t/*/*.t t/*/*/*.t';
 test_requires 'Test::More';
+test_requires 'Text::Diff';
 test_requires 'Test::Exception';
 install_script 'mobirc';

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Controller.pm

@@ -34 +34 @@
     my ($class, $c) = @_;
 
+    if ($c->{mobile_agent}->is_non_mobile) {
+        return render_td(
+            $c,
+            'pc_top' => (
+                $c->{mobile_agent},
+                ($c->{config}->{httpd}->{root} || '/'),
+            )
+        );
+    }
+
     my $server = server;
-
-#   if ($c->{mobile_agent}->is_non_mobile) {
-#       return render_td(
-#           $c,
-#           'pc_top' => (
-#           )
-#       );
-#   }
 
     my $channels = [

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Router.pm

@@ -50 +50 @@
         return 'static', 'style.css', 'text/css';
     } 
-    elsif ($uri =~ '/mobirc.css') {
-        return 'static', 'mobirc.css', 'text/css';
-    } 
+    elsif ($uri =~ m{^/(pc|mobirc|mobile).css}) {
+        return 'static', "$1.css", 'text/css';
+    }
     elsif ($uri =~ '/mobile.css') {
         return 'static', 'mobile.css', 'text/css';

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/PC.pm

@@ -6 +6 @@
 use Params::Validate ':all';
 use HTML::Entities qw/encode_entities/;
+use App::Mobirc;
+
+private template 'wrapper_pc' => sub {
+    my ($self, $mobile_agent, $code, $subtitle) = @_;
+
+    xml_decl { 'xml', version => 1.0, encoding => 'UTF-8' };
+    html {
+        attr { lang => 'ja', 'xml:lang' => 'ja', xmlns => "http://www.w3.org/1999/xhtml" }
+        head {
+            meta { attr { 'http-equiv' => 'Content-Type', 'content' => "text/html; charset=UTF-8" } };
+            meta { attr { 'http-equiv' => 'Cache-Control', 'content' => "max-age=0" } };
+            meta { attr { name => 'robots', 'content' => 'noindex, nofollow' } };
+            link { attr { rel => 'stylesheet', href => '/pc.css', type=> "text/css"} };
+            link { attr { rel => 'stylesheet', href => '/mobirc.css', type=> "text/css"} };
+            script { src is "/jquery.js" };
+            script { src is "/mobirc.js" };
+            if ($mobile_agent->user_agent =~ /(?:iPod|iPhone)/) {
+                meta { attr { name => 'viewport', content => 'width=device-width' } }
+                meta { attr { name => 'viewport', content => 'initial-scale=1.0, user-scalable=yes' } }
+            }
+            title {
+                my $title = $subtitle ? "$subtitle - " : '';
+                   $title .= "mobirc";
+                   $title;
+            }
+        }
+        body {
+            $code->()
+        }
+    }
+};
+
+template 'pc_top' => sub {
+    my ($self, $mobile_agent, $docroot) = validate_pos(@_, OBJECT, OBJECT, SCALAR);
+    show 'wrapper_pc', $mobile_agent, sub {
+        div {
+            id is 'body';
+            div {
+                id is 'main';
+                div { id is 'menu' }
+                div { id is 'contents' }
+            }
+            div {
+                id is 'footer';
+                form {
+                    onsubmit is 'send_message();return false';
+                    input { attr { type => 'text', id => 'msg', name => 'msg', size => 30 } };
+                    input { attr { type => 'button', value => 'send', onclick => 'send_message();' } };
+                }
+                div { span { 'mobirc -'} span { class is 'version'; $App::Mobirc::VERSION } };
+            }
+        };
+
+        script { lang is 'javascript';
+            outs_raw qq{docroot = '$docroot';};
+        };
+    };
+};
 
 template 'pc_menu' => sub {

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/Pages.pm

@@ -32 +32 @@
         body {
             $code->()
-
         }
     };