Changeset 965

Show
Ignore:
Timestamp:
10/26/03 06:30:36
Author:
tanimoto
Message:

rename DoCoMoMap? to DOCOMO_MAP.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTTP-MobileAgent/trunk/Changes

    r963 r965  
    22 
    330.20  Fri Oct 24 17:57:02 JST 2003 
    4         * if the environment variable DoCoMoMap exists, use the (xml) data indicated 
     4        * if the environment variable DOCOMO_MAP exists, use the (xml) data indicated 
    55          for $HTTP::MobileAgent::DoCoMoDisplayMap::DisplayMap. 
    66 
  • HTTP-MobileAgent/trunk/bin/makedocomomap

    r964 r965  
    5151BEGIN { 
    5252    require XML::Simple; 
    53     if ($ENV{DoCoMoMap}) { 
     53    if ($ENV{DOCOMO_MAP}) { 
    5454        my $xml = XML::Simple->new; 
    55         eval q{$DisplayMap = $xml->XMLin($ENV{DoCoMoMap});}; 
     55        eval q{$DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP});}; 
    5656        warn "using normal hash map: $@" if $@; 
    5757    } 
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/Display.pm

    r963 r965  
    8181=head1 USING EXTERNAL MAP FILE 
    8282 
    83 If the environment variable DoCoMoMap exists, use the (xml) data indicated for $DisplayMap. 
     83If the environment variable DOCOMO_MAP exists, use the (xml) data indicated for $DisplayMap. 
    8484 
    8585ex) Please add the following code. 
    8686 
    87   $ENV{DoCoMoMap} = '/path/to/DoCoMoMap.xml'; 
     87  $ENV{DOCOMO_MAP} = '/path/to/DoCoMoMap.xml'; 
    8888 
    8989=back 
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/DoCoMoDisplayMap.pm

    r962 r965  
    1212BEGIN { 
    1313    require XML::Simple; 
    14     if ($ENV{DoCoMoMap}) { 
     14    if ($ENV{DOCOMO_MAP}) { 
    1515        my $xml = XML::Simple->new; 
    16         eval q{$DisplayMap = $xml->XMLin($ENV{DoCoMoMap});}; 
     16        eval q{$DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP});}; 
    1717        warn "using normal hash map: $@" if $@; 
    1818    } 
  • HTTP-MobileAgent/trunk/t/08_display_xmlmap.t

    r962 r965  
    22use Test::More tests => 33; 
    33 
    4 BEGIN { $ENV{DoCoMoMap} = 't/DoCoMoMap.xml' } 
     4BEGIN { $ENV{DOCOMO_MAP} = 't/DoCoMoMap.xml' } 
    55use HTTP::MobileAgent; 
    66