Alois Mahdal (@azzgoat) c05b6197e5 Added server-side username to output. 12 lat temu
bin Added title for Windows 12 lat temu
cgi-bin Added server-side username to output. 12 lat temu
lib fixed response handling: all but 200 will now generate carp() warning 12 lat temu
.gitignore maintenance: ignorance as a starting of a nice day 12 lat temu
COPYING License first!!! 12 lat temu
COPYING.LESSER License first!!! 12 lat temu
README.md Made watchdump.pl work on Windows (hopefully) 12 lat temu
TODO.md Added idea for get_back client-server test 12 lat temu

README.md

minions

My favorite tiny Perl scripts for development and testing.

htlog.cgi

Collects GET requests with parameters msg, tag and i and logs them into single text file.

  • msg is actual message body. It can be used to contain parseable data like name=john;age=32;state=il
  • tag can be used to identify related messages like those from one test
  • use i if you tend to write tags like test01-012 .. test01-013 to store the iteration number, you'll be better off with this parameter as it won't break your ability to use tags

htlogger.pm

API to make usage of htlog.cgi in Perl scripts even easier

use htlogr;

my $logger = htlogr::new('http://192.168.1.1/cgi-bin/htlog.cgi');

# we don't need tag nor iteration number, but it can be useful
my $tag = "synopsis_test";

$logger->log("Commencing synopsis test", $tag);

my $data = {
    foo => 1,
    bar => "Hello world"
};

foreach my $i (1..1000) {

    # log normal messages--with I!
    $logger->log("next 10 done!", $tag, $i) unless ($num % 100);

    # or a simple one-level data structures
    $logger->data(
        my_func_returning_hashref($data),
        $tag,
        $i
    );

}

autotest.pl

Script to make it easier to start developing your new Perl module under pressure of unit tests written in Test::More and the likes.

Suggested use is to sit on the other monitor, run all .t files around and around and be annoying about the fact that they fail. Then the rule of thumb goes without saying: "no green, no commit".

timestamp.pl

Script to measure how long mone second takes. For those that know how long one second takes, it can serve as a snippet for Perl &stamp().

helper.pm

Container module for some utility methods for Perl. Probably only dmup() is interesting—it bears a nice quick and dirty way for dumping Perl data.

watchdump.pl

Trivial utility that prints a text file, clears the screen and pauses for 2s over and over.

Designed mainly for use with helper::dmup(); to enable you to see changes in your dumped data structure continuously, but obviously you can use it for any text file that will fit your screen.

For improved visual feedack, it will pre-pend the file contents with the file path and an "animation". Display of the header can be controlled by options, see --usage.