# keitairc/lib/plugins/00location_receiver
# °ÌÃÖ¾ðÊóÁ÷¿®¡¢¤Î¥³¡¼¥ë¥Ð¥Ã¥¯
#
-# $Id: 00location_receiver,v 1.6 2008-05-09 05:04:17 matusita Exp $
+# $Id: 00location_receiver,v 1.7 2008-05-09 13:38:32 matusita Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00location_receiver,v $
use Net::HTTP;
use XML::Simple;
-use Encode qw(from_to);
+use Encode;
# WGS84·Ï¤òÅϤ¹¤³¤È
sub get_rgeocode_xml {
$p->{address} = $xml->{prefecture}->{pname} .
$xml->{municipality}->{mname} .
$xml->{local}->{section};
- from_to($p->{address}, 'utf8', 'shiftjis');
+ Encode::from_to($p->{address}, 'utf8', 'shiftjis');
return $view->render('location_receiver.html', $p);
}
$p->{address} = $xml->{prefecture}->{pname} .
$xml->{municipality}->{mname} .
$xml->{local}->{section};
- from_to($p->{address}, 'utf8', 'shiftjis');
+ Encode::from_to($p->{address}, 'utf8', 'shiftjis');
return $view->render('location_receiver.html', $p);
}
$p->{address} = $xml->{prefecture}->{pname} .
$xml->{municipality}->{mname} .
$xml->{local}->{section};
- from_to($p->{address}, 'utf8', 'shiftjis');
+ Encode::from_to($p->{address}, 'utf8', 'shiftjis');
return $view->render('location_receiver.html', $p);
}