require RPC::XML;
require RPC::XML::Client;
+use YAML;
use Data::Dump qw(dump);
sub getinfobycode {
my ($self,$code) = @_;
+ my $path = "ferweb/$code";
+ return YAML::LoadFile $path if -e $path;
+
my $res = $users->send_request(
'users.getinfobycode', $self->{login_id}, RPC::XML::string->new($code)
)->value;
print "[$code] = ", dump($res), $/;
+ YAML::DumpFile $path, $res;
+
return $res;
}