kts
/
kettext
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Now uses FindBin to access kettext.pm if the module is not installed in the regular lib INC dirs.

master
kts 2014-12-02 09:00:04 -08:00
parent 9b35a0ffed
commit 80245d57f1
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
kettext.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use FindBin;
use lib "$FindBin::Bin/";
require kettext; require kettext;
# arg check / usage
if ($#ARGV+1 == 0) { if ($#ARGV+1 == 0) {
showUsage(); showUsage();
exit; exit;
@ -57,9 +59,9 @@ sub showUsage {
print "Usage: kettext.pl *.ktx [options]\n"; print "Usage: kettext.pl *.ktx [options]\n";
print " --help\n"; print " --help\n";
print " show this help screen\n"; print " show this help screen\n";
print " --group.setting\n"; print " --group.setting=val\n";
print " set parse/convert setting (e.g., \"--header.numbering\")\n"; print " set parse/convert setting (e.g., \"--header.numbering\", \"--header.depth=2\")\n";
print " --convert, --convertTo=OUTPUT\n"; print " --convert=, --convertTo=OUTPUT\n";
print " sets the output converter. Default: HTML\n"; print " sets the output converter. Default: HTML\n";
print " --o, --out, --output filename\n"; print " --o, --out, --output filename\n";
print " sets the output file. Default: stdout\n"; print " sets the output file. Default: stdout\n";