Changeset 4739

Timestamp:

01/17/08 02:32:02 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: support nanoformats

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Plugin/GPS.pm (modified) (2 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Plugin/GPS.pm

@@ -35 +35 @@
             if ($uri =~ m{^/channel/([^/]+)/gps\?time=}) {
                 my $channel_name = $1;
-                my $page2 = $2;
 
                 my $path = File::Spec->catfile($c->{config}->{global}->{assets_dir}, 'plugin', 'GPS', 'measure.tt2');
@@ -79 +78 @@
 
                 my $res = HTTP::Response->new(302);
-                my $abs_uri = 'http://' . $c->{req}->header('Host') . $c->{config}->{httpd}->{root} . "channels/$channel_name?msg=" . uri_escape(encode('utf8', $msg));
-                warn "REDIRECT TO $abs_uri";
+                my $abs_uri = 'http://' . $c->{req}->header('Host') . $c->{config}->{httpd}->{root} . "channels/$channel_name?msg=" . uri_escape(encode('utf8', "L:$msg"));
                 $res->header('Location' => $abs_uri);
                 $res;