X-Git-Url: http://git.ieval.ro/?p=nethack-naodash.git;a=blobdiff_plain;f=lib%2FApp%2FNAOdash.pm;h=5bf8b7a4584addd07d82037cfe9f5b06d841e3cc;hp=85a52709b034e372002af8b01c908f4cd5270ec1;hb=350c8f14c97a428aff2cf1a7267d61c22be127a9;hpb=90d9e1ee48ad62f758e759d08b47950938467301 diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm index 85a5270..5bf8b7a 100644 --- a/lib/App/NAOdash.pm +++ b/lib/App/NAOdash.pm @@ -6,7 +6,7 @@ use warnings; use re '/saa'; use utf8; -our $VERSION = '0.002'; +our $VERSION = '0.003'; use Encode qw/encode/; use File::Slurp; @@ -94,12 +94,12 @@ EOF } sub run { - my ($user_or_path) = @_; + my ($args, $user_or_path) = @_; my $stats; if ($user_or_path =~ /^\w+$/) { # Looks like a user - $stats = naodash_user $user_or_path + $stats = naodash_user $args, $user_or_path } else { - $stats = naodash_xlog read_file $user_or_path + $stats = naodash_xlog $args, read_file $user_or_path } print encode 'UTF-8', naodash_to_ansi $stats ## no critic (RequireCheckedSyscalls) }