Changeset 32465 for lang/perl/tiarra

Show
Ignore:
Timestamp:
04/16/09 00:51:00 (4 years ago)
Author:
hio
Message:

LWPなかったときにAUで認証できないのに対応.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/tiarra/trunk/module/System/WebClient.pm

    r32463 r32465  
    931931  #TODO: carrier ip-addresses range. 
    932932  # http://www.au.kddi.com/ezfactory/tec/spec/ezsava_ip.html 
    933   my $subno = $req->{Header}{'X-UP-SUBNO'}; 
     933  my $subno = $req->{Header}{'X-UP-SUBNO'} || $req->{Header}{'X-Up-Subno'}; 
    934934  if( !_verify_value($param->[1], $subno) ) 
    935935  {