Merge branch 'master' of github.com:AloisMahdal/minions

README.md

@@ -91,9 +91,10 @@ Throw a word at it and by default, it will throw you back few Czech
 translations of it, one pair per line.  Sweet.  Also supports other languages
 (about 10 in total).
 
-Most useful options are --lines (default is 25) and --direction which supports
-direction keyword in form "LNcz.cz" or "LNcz.LN", where LN is 2-letter code
-(**not** ISO) of the other language.
+Most useful options are `--lines` (default is 25), `--long`, as shorthand
+to `--lines=50`, and `--direction`, which supports direction keyword in form
+"LNcz.cz" or "LNcz.LN", where LN is 2-letter code (**not** ISO) of the other
+language.
 
 Uses [www.slovnik.cz][2], so an Internet connection and [LWP::Simple][3] are
 needed.

TODO.md

@@ -1,6 +1,11 @@
 TODO:
 =====
 
+Update
+------
+
+*   htlogr.pm according to htlogr.py
+
 Finish
 ------
 

bin/se

@@ -14,12 +14,15 @@ sub usage;
 
 my $direction = 'encz.en';
 my $lines = 25;
+my $max_lines = 50;
+my $long = 0;
 my $man = 0;
 my $help = 0;
 my $host = 'www.slovnik.cz';
 
 GetOptions(
-    'lines|l=i'     => \$lines,
+    'long|l'     => \$long,
+    'lines|n=i'     => \$lines,
     'direction|d=s' => \$direction,
     'help|?|h'    => \$help,
     'man'       => \$man
@@ -27,6 +30,8 @@ GetOptions(
 pod2usage(1) if $help;
 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
 
+$lines = $max_lines if $long;
+
 my $word = shift or usage;
 
 my $query  = sprintf(
@@ -115,7 +120,11 @@ one of following:
     lacz.la, lacz.cz, eocz.eo, eocz.cz, eosk.eo, eosk.sk,
     plcz.pl, plcz.cz
 
-=item B<-l> I<LINES>, B<--lines=>I<LINES>
+=item B<-l>, B<--long>
+
+Same as C<--lines=50>, which is maximum supported by API
+
+=item B<-n> I<LINES>, B<--lines=>I<LINES>
 
 Number of lines fetched fronm the service and displayed to stdout.
 Default is 25, but since www.slovnik.cz provides simplistic interface

cgi-bin/htlog/htlog.cgi

@@ -18,7 +18,7 @@
 
 use CGI;
 
-my $LOG_FILE = 'htlog.log';
+my $LOG_FILE = '/var/log/htlogr.log';
 open my $fh, ">>", $LOG_FILE or die "cannot open log file for appending: $!";
 
 sub stamp {

etc/logrotate.d/htlogr

@@ -0,0 +1,7 @@
+/var/log/htlogr.log {
+    weekly
+    rotate 8
+    compress
+    delaycompress
+    create 640 www-data adm
+}