|
|
@ -46,13 +46,17 @@ do 'conf.pl' if (-e 'conf.pl'); |
|
|
|
|
|
|
|
my $w = WROT->new(%WROT_CONF); |
|
|
|
|
|
|
|
# Take names from STDIN |
|
|
|
if ($from_stdin) { |
|
|
|
while (my $entry = <>) { |
|
|
|
chomp($entry); |
|
|
|
print $w->display($entry); |
|
|
|
} |
|
|
|
exit(0); |
|
|
|
} elsif ($render) { |
|
|
|
} |
|
|
|
|
|
|
|
# Just display the requested stuff and exit: |
|
|
|
unless ($render) { |
|
|
|
print $w->display(@ARGV); |
|
|
|
exit(0); |
|
|
|
} |
|
|
|