X-Git-Url: http://git.ieval.ro/?p=nethack-naodash.git;a=blobdiff_plain;f=lib%2FApp%2FNAOdash.pm;h=d6df6bef999c6238b71c7a65bff732aa4d436912;hp=0938a4b26b1bd61ef27de3d491c9691441d5d293;hb=0fb1f8591637289626b42288e453675a3dded96c;hpb=c5cfd5bcb8df8f6b771e0f06776528b0d17b569a diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm index 0938a4b..d6df6be 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.001'; +our $VERSION = '0.002'; 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) }