Name

CGI::Application::Plugin::Eparam

SYNOPSIS

    package WebApp
    use Jcode;# ¤³¤Î¾ use Encode ¤¹¤ë¤«¡¢¼«Á°¤Ç $CGI::Application::Plugin::Eparam::econv = sub { ... } ¤È¡¢ÊÑ´¹¥í¥¸¥Ã¥¯¤ò¼ÂÁõ¤¹¤ë
    use CGI::Application::Plugin::Eparam;
    sub cgiapp_init {
            $CGI::Application::Plugin::Eparam::icode = 'sjis';   # ÆþÎϤµ¤ì¤ëʸ»ú¥³¡¼¥É
            $CGI::Application::Plugin::Eparam::ocode = 'euc-jp'; # ÊÑ´¹¤·¤¿¤¤Ê¸»ú¥³¡¼¥É
    }
    package WebApp::Pages::Public
    sub page1 {
            my $self = shift;
            my $data = $self->eparam('data');               # ÊÑ´¹¸å¤ÎÃÍ
            my $natural_data = $self->query->param('data'); # ÊÑ´¹Á°¤ÎÃÍ
    }

Example

Get Value

    package WebApp::Pages::Public
    sub page1 {
            my $self = shift;
            my $data = $self->eparam('data');
            my $natural_data = $self->query->param('data');
    }

in Application

    package WebApp
    use Jcode;
    use CGI::Application::Plugin::Eparam;
    sub cgiapp_init {
            $CGI::Application::Plugin::Eparam::icode = 'sjis';
            $CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
    }

in SubClass

    package WebApp::Pages::Public
    sub setup {
            $CGI::Application::Plugin::Eparam::icode = 'sjis';
            $CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
    }
    package WebApp::Pages::Admin
    sub setup {
            $CGI::Application::Plugin::Eparam::icode = 'euc-jp';
            $CGI::Application::Plugin::Eparam::ocode = 'euc-jp';
    }

in Method

    package WebApp::Pages::User::Mailform
    sub mailform {

            # ¤³¤Î¾ì¹çÊÑ´¹¤Ï¹Ô¤ï¤ì¤Þ¤»¤ó
            $CGI::Application::Plugin::Eparam::icode = 'jis';
            $CGI::Application::Plugin::Eparam::ocode = 'jis';

            # ¥á¡¼¥ë¤Î·ï̾¤Ë¤·¤¿¤¤Éôʬ¤À¤±¤òjis¤ÇÆÀ¤ë¤è¤¦¤Ê»ö¤¬½ÐÍè¤Þ¤¹
            $CGI::Application::Plugin::Eparam::icode = 'sjis';
            $CGI::Application::Plugin::Eparam::ocode = 'jis';

    }

in Part

    package Myapplication::Pages::User::Mailform
    sub mailform {

            # °ì»þŪ¤ËÀßÄê¤òÊѹ¹¤¹¤ë»ö¤¬½ÐÍè¤Þ¤¹
            $CGI::Application::Plugin::Eparam::temp_icode = 'sjis';
            $CGI::Application::Plugin::Eparam::temp_ocode = 'jis';
            my $val_jis = $self->eparam('val');
            # undef¤Ç¸µ¤ËÌ᤻¤Þ¤¹
            undef $CGI::Application::Plugin::Eparam::temp_icode;
            undef $CGI::Application::Plugin::Eparam::temp_ocode;
            my $val_sjis = $self->eparam('val');

    }

Convert Logic Customize

    # ¼«Ê¬¤ÇÊÑ´¹¥í¥¸¥Ã¥¯¤òÁȤà»ö¤¬½ÐÍè¤Þ¤¹
    $CGI::Application::Plugin::Eparam::econv = sub {
            my $textref = shift; 
            my $ocode = shift;   # output character code
            my $icode = shift;   # input  character code
            # some logic
            Encode::from_to($$textref, 'Guess', $ocode);
    };
    # temp_¤ò»È¤¦¤È°ì»þŪ¤Ê¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹
    $CGI::Application::Plugin::Eparam::temp_econv = sub {
            my $textref = shift; 
            my $ocode = shift;   # output character code
            my $icode = shift;   # input  character code
            # some logic
            Encode::from_to($$textref, 'Guess', $ocode);
    };
    # undef¤Ç¸µ¤ËÌᤷ¤Þ¤¹
    undef $CGI::Application::Plugin::Eparam::temp_econv;

SEE ALSO

CGI::Application

AUTHOR

Shinichiro Aska