jimclarkuk

# My Screen Config
# Borrowed heavily from http://www.pixelbeat.org/lkdb/screen.html

startup_message off

# Window list at the bottom.
hardstatus alwayslastline
hardstatus string "%-w%{= BW}%50>%n %t%{-}%+w%<"

# Allow editors etc. to restore display on exit

jimclarkuk

# Assuming you've configured tunnelblick

cd ~/Library/Application\ Support/Tunnelblick/Configurations
cp -r * /Volumes/<drive>/tblk/
rm -r Configurations
ln -s /Volumes/<drive>/tblk/ Configurations

jimclarkuk

sub upload_with_date {
  my (
    $dt,
    $file,                  # Input CSV
    $trade_dt,              # The key date field
    $db,                    # The DB name
    $user,                  # The DB user (must have permissions configured)
    $schema,                # The DB schema
    $table,                 # The DB table name 
    $requiredfieldcount,    

jimclarkuk

use strict;
use warnings;
use JSON qw( decode_json );
use Data::Dumper;  
use LWP;
use Term::ReadKey;

#####
# Perl version of http://www.supertom.com/code/download_build_artifacts_from_jenkins.html with added auth
#