+ $ret->{content} =~ m{<pre>(.*)</pre>}i;
+}
+
+sub _get_xlog {
+ my ($name) = @_;
+ return _get_xlog_from_server $name if $ENV{NAODASH_CACHE} && lc $ENV{NAODASH_CACHE} eq 'none';
+ my $dir = $ENV{NAODASH_CACHE} || catdir tmpdir, 'naodash';
+ mkdir $dir or die "Cannot create cache directory: $!\n" unless -d $dir;
+ my $file = catfile $dir, $name;
+ write_file $file, _get_xlog_from_server $name if ! -f $file || time - (stat $file)[9] >= 86_400;
+ scalar read_file $file
+}
+
+sub naodash_user {
+ my ($name) = @_;
+ my $xlog = _get_xlog $name;