Changeset 12980

Timestamp:

06/01/08 18:11:01 (5 years ago)

Author:

tokuhirom

Message:

bug fixed: Plugin::GPS.

Location:

lang/perl/mobirc/branches/plaggerize

Files:

• lib/App/Mobirc/Plugin/GPS.pm (modified) (5 diffs)
• t/Plugins/GPS.t (added)

lang/perl/mobirc/branches/plaggerize/lib/App/Mobirc/Plugin/GPS.pm

@@ -11 +11 @@
 use UNIVERSAL::require;
 use String::TT ':all';
+use Encode::JP::Mobile;
+
+has inv_geocoder => (
+    is      => 'ro',
+    isa     => 'Str',
+    default => 'Null',
+);
 
 hook channel_page_option => sub {
-    my ($self, $global_context, $channel) = @_;
+    my ( $self, $global_context, $channel ) = @_;
 
     my $time = time();
@@ -20 +27 @@
 
 hook httpd => sub {
-    my ($self, $global_context, $c, $uri) = @_;
+    my ( $self, $global_context, $c, $uri ) = @_;
 
-    if ($uri =~ m{^/channel/([^/]+)/gps$}) {
+    if ( $uri =~ m{^/channel/([^/]+)/gps$} ) {
         my $channel_name = $1;
 
         my $config = App::Mobirc->context->config;
-        my $path = File::Spec->catfile($config->{global}->{assets_dir}, 'plugin', 'GPS', 'measure.tt2');
+        my $path   = File::Spec->catfile( $config->{global}->{assets_dir},
+            'plugin', 'GPS', 'measure.tt2' );
 
         local %ENV;
-        if (my $devcap_multimedia = $c->req->header('X-UP-DEVCAP-MULTIMEDIA')) {
+        if ( my $devcap_multimedia = $c->req->header('X-UP-DEVCAP-MULTIMEDIA') )
+        {
             $ENV{HTTP_X_UP_DEVCAP_MULTIMEDIA} = $devcap_multimedia;
         }
 
-        my $tt = Template->new(ABSOLUTE => 1);
+        my $tt = Template->new( ABSOLUTE => 1 );
         $tt->process(
             $path,
@@ -47 +56 @@
         ) or warn $tt->error;
 
-        $c->res->content_type(encode('utf8', 'text/html; charset=Shift_JIS'));
+        $c->res->content_type(
+            encode( 'utf8', 'text/html; charset=Shift_JIS' ) );
         $c->res->body($out);
         return 1;
-    } else {
+    }
+    else {
         return 0;
     }
@@ -60 +71 @@
     if ($uri =~ m{^/channel/([^/]+)/gps_do$}) {
         my $channel_name = uri_unescape $1;
-        my $inv_geocoder = $conf->{inv_geocoder} || 'EkiData';
+        my $inv_geocoder = $self->inv_geocoder;
 
         my $point = $c->req->mobile_agent->get_location( $c->req->query_params );
@@ -66 +77 @@
         "App::Mobirc::Plugin::GPS::InvGeocoder::$inv_geocoder"->use or die $@;
         my $msg = "App::Mobirc::Plugin::GPS::InvGeocoder::$inv_geocoder"->inv_geocoder($point);
-            $msg = uri_escape encode($c->req->mobile_agent->encoding, $msg);
+           $msg = uri_escape encode($c->req->mobile_agent->encoding, $msg);
 
         my $time = time();