Catalyst::Plugin::DoCoMoUID - Add i-mode terminal's uid to HTTP Request Header

Catalyst-Plugin-DoCoMoUID documentation Contained in the Catalyst-Plugin-DoCoMoUID distribution.

Index

Code Index:

NAME

Top

Catalyst::Plugin::DoCoMoUID - Add i-mode terminal's uid to HTTP Request Header

SYNOPSIS

Top

 sub default : Private {
     my ( $self, $c ) = @_;
     my $uid = $c->req->header('X-DoCoMo-UID');
 }

DESCRIPTION

Top

The Plugin is Add i-mode terminal's uid to HTTP Request Header

AUTHOR

Top

Ittetsu Miyazaki <ittetsu.miyazaki@gmail.com>

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Apache::DoCoMoUID

Nihongo Document is Catalyst/Plugin/DoCoMoUID/Nihongo.pod

Catalyst-Plugin-DoCoMoUID documentation Contained in the Catalyst-Plugin-DoCoMoUID distribution. 
package Catalyst::Plugin::DoCoMoUID;

use strict;
use warnings;

our $VERSION = '0.01';

sub prepare_headers {
    my $c = shift;
    $c->NEXT::prepare_headers(@_);
    if ($c->req->user_agent =~ /^DoCoMo/) {
        $c->req->header('X-DoCoMo-UID' => $c->req->query_parameters->{uid});
    }
}

1;

__END__