txt2html: use Getopt::Long for saner command line arg handling

[~bandali/bndl.org] / txt2html
diff --git a/txt2html b/txt2html

index 128995c..f2a23d9 100644 (file)
--- a/txt2html
+++ b/txt2html
@@ -23,6 +23,11 @@
  
  use strict;
  use warnings 'all';
  
  use strict;
  use warnings 'all';
+use Getopt::Long;
+
+my $opt_lang = 'en';
+GetOptions ('lang=s' => \$opt_lang)
+    or die("bad command line arguments\n");
  
  my $link_re =
      qr{([\('!])?\b((?:ftps?|https?|nntps?|imaps?|s?news|gopher)://
  
  my $link_re =
      qr{([\('!])?\b((?:ftps?|https?|nntps?|imaps?|s?news|gopher)://
@@ -91,7 +96,7 @@ sub linkify {
  my $txt = do { local $/; <STDIN> };
  my $title = html_esc($txt =~ /\A([^\n]+)/);
  $title =~ s/^\s+|\s+$//g;
  my $txt = do { local $/; <STDIN> };
  my $title = html_esc($txt =~ /\A([^\n]+)/);
  $title =~ s/^\s+|\s+$//g;
-if ($ARGV[0] and $ARGV[0] eq 'fa') {
+if ($opt_lang eq 'fa') {
      $title .= ' &mdash; بندعلی' if $title !~ /بندعلی/;
  } else {
      $title .= ' &mdash; bandali' if $title !~ /bandali/;
      $title .= ' &mdash; بندعلی' if $title !~ /بندعلی/;
  } else {
      $title .= ' &mdash; bandali' if $title !~ /bandali/;
@@ -100,16 +105,14 @@ if ($ARGV[0] and $ARGV[0] eq 'fa') {
  $txt = linkify(html_esc($txt));
  
  print('<!doctype html>',
  $txt = linkify(html_esc($txt));
  
  print('<!doctype html>',
-      ($ARGV[0] and $ARGV[0] eq 'fa')
-      ? '<html lang="fa" dir="rtl">'
-      : '<html>',
-      '<head>',
-      '<meta
+      qq(<html lang="$opt_lang"),
+      $opt_lang eq 'fa' ? ' dir="rtl"' : '', '>',
+      '<head><meta
  http-equiv="Content-Type"
  content="text/html; charset=utf-8"
  />',
        "<title>$title</title>",
  http-equiv="Content-Type"
  content="text/html; charset=utf-8"
  />',
        "<title>$title</title>",
-      ($ARGV[0] and $ARGV[0] eq 'fa')
+      $opt_lang eq 'fa'
        ? "\n<style>\@font-face{font-family:sahel;font-weight:normal;
  src:local('Sahel WOL'),local('Sahel'),
  url('sahel.woff2')format('woff2');}pre{font-family:sahel}</style>\n"
        ? "\n<style>\@font-face{font-family:sahel;font-weight:normal;
  src:local('Sahel WOL'),local('Sahel'),
  url('sahel.woff2')format('woff2');}pre{font-family:sahel}</style>\n"