thowe

#!/usr/bin/env raku

use DB::Pg;

sub MAIN( Str $file = 'default.txt',
          Str :$host = '',
          Str :$username = '',
          Str :$password = '',
          Str :$database = '', ) {

thowe

#!/usr/bin/env perl

use Mojo::Base -strict;
use Mojo::UserAgent;
use Getopt::Long;

#edit these to your data
my $api_key = 'fffffff-ffff-ffff-ffff-fffffffff';
my $id = 'libd_id_0000';
my $tn;

thowe

#!/usr/bin/env perl
#
use 5.010;
use strict;
use warnings;

use Net::SNMP;
use Getopt::Long;
use List::MoreUtils qw(firstidx);

thowe

-- getting a list of tables
select d.datname as name from pg_catalog.pg_database d
WHERE d.datname != 'template1' AND d.datname != 'template0'
AND d.datname != 'postgres';

thowe

#!/usr/bin/env perl
#
# Only forward certain messages to some additional users.
#
# For postfix, you need a transport entry.  For example in
# /etc/postfix/transport a line like:
#    thfilter.example.com    thfilter:
#
# Then you would also need an entry in master.cf like so:
# thfilter   unix  -       n       n       -       -       pipe

thowe

#!/usr/bin/env perl
use Mojolicious::Lite;

# Documentation browser under "/perldoc"
#plugin 'PODRenderer';

get '/' => sub {
  my $c = shift;

  my $thing = [ { 'name' => 'Parent',