HTTP:: MobileAgent:: DoCoMo ist eine Umsetzung NTT-DoCoMo.

SYNOPSE

Gebrauch HTTP:: MobileAgent;

lokales $ENV {HTTP_USER_AGENT} = „DoCoMo/1.0/P502i/c10“;
mein $agent = HTTP:: MobileAgent->new;

printf-„Name: %sn“, $agent->name; # „DoCoMo“
printf „Ver: %sn“, $agent->version; # 1.0
printf „HTML ver: %sn“, $agent->html_version; # 2.0
printf-„Baumuster: %sn“, $agent->model; # „P502i“
printf-„Cache: %dkn“, $agent->cache_size; # 10
Druck „FOMAn“ wenn $agent->is_foma; # falsch
printf-„Verkäufer: %sn“, $agent->vendor; # P
printf-„Serie: %sn“, $agent->series; # „502i“

# nur erhältlich mit

# z.B.) „DoCoMo/1.0/P503i/c10/serNMABH200331“;
printf-„Serie: %sn“, $agent->serial_number; # „NMABH200331“

# z.B.) „DoCoMo/2.0 N2001 (c10; ser0123456789abcde; icc01234567890123456789)“;
printf-„Serie: %sn“, $agent->serial_number; # „0123456789abcde“
printf-„Karte Identifikation: %sn“, $agent->card_id; # „01234567890123456789“

# z.B.) „DoCoMo/1.0/P502i (Google CHTML Proxy/1.0)“
printf-„Kommentar: %sn“, $agent->comment; # „Google CHTML Proxy/1.0

# z.B.) „DoCoMo/1.0/D505i/c20/TB/W20H10“
printf-„Status: %sn“, $agent->status; # „TB“

# nur erhältlich in eggy/M-stage
# z.B.) „DoCoMo/1.0/eggy/c300/s32/kPHS-K“
printf-„Bandweite: %dkbpsn“, $agent->bandwidth; # 32

# z.B.) „DoCoMo/2.0 SO902i (c100; TB; W30H16)“
Druck „XHTML compiant! N“ wenn $agent->xhtml_compliant; # ausrichten

HTTP:: MobileAgent:: DoCoMo ist eine Unterklasse von HTTP:: MobileAgent, das NTT docomo Ichbetriebsart Benutzervertreter implementiert.