jacoby

#!/usr/bin/env perl

use strict ;
use warnings ;
use utf8 ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;

use Carp ;
use Getopt::Long ;

jacoby

#!/usr/bin/env perl

use strict ;
use warnings ;
use utf8 ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;

use Mojo::UserAgent ;

jacoby

" Dave Jacoby - 2016-06-23
"
" A key to .vimrc happiness is to have an alias like
"       alias vimrc="vi ~/.vimrc"
" in your .alias file or .bashrc or whatever, so, should you have
" a tweak to add or disable, you just go in and tweak it. Just
" a little pessimization removal
"
" Also, it is good to have the long version of settings in your
" configuration, so you have the best chance of reading and 

jacoby

#!/home/djacoby/webserver/perl/bin/perl

# replacement of the shell-based ltl-backup.sh, using Expect.pm, both for me
# to gain experience with Expect and to keep control over output so I do not
# get mail on successful operation.

use strict ;
use warnings ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;

jacoby

" Dave Jacoby - 2016-06-23
"
" A key to .vimrc happiness is to have an alias like
"       alias vimrc="vi ~/.vimrc"
" in your .alias file or .bashrc or whatever, so, should you have
" a tweak to add or disable, you just go in and tweak it. Just
" a little pessimization removal
"
" Also, it is good to have the long version of settings in your
" configuration, so you have the best chance of reading and 

jacoby

#!/usr/bin/env perl

use strict ;
use warnings ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;

use Carp ;
use Getopt::Long ;
use IO::Interactive qw{ interactive } ;

jacoby

#!/usr/bin/env perl

use feature qw{ postderef say signatures } ;
use strict ;
use warnings ;
use utf8 ;

no warnings qw{ experimental::postderef experimental::signatures } ;

use Carp ;

jacoby

#!/usr/bin/env perl

##        ##      ##          ##    ##                ##
##            ##  ##          ##                      ##
##   #### ## #### ## #  ## ## ####  ##  ###     # ##  ##
##  ## ## ##  ##  ##### ## ## ## ## ## ## ##    ## ## ##
##  ## ## ##  ##  ## ## ## ## ## ## ## ## ##    ## ## ##
##  ## ## ##  ##  ## ## ## ## ## ## ## ## ##    ## ## ##
##  ## ## ##  ##  ## ## ## ## ## ## ## ## ## ## ## ## ##
##   #### ##   ## ## ##  ## # ####  ##  ###  ## ####  ##

jacoby

                                                                                              cpan[1]> upgrade IO::Pty
Reading '/home/jacoby/.local/share/.cpan/Metadata'
  Database was generated on Mon, 03 Jul 2017 16:41:02 GMT

Package namespace         installed    latest  in CPAN file
IO::Pty                        1.08      1.12  TODDR/IO-Tty-1.12.tar.gz
Running install for module 'IO::Pty'
Checksum for /home/jacoby/.local/share/.cpan/sources/authors/id/T/TO/TODDR/IO-Tty-1.12.tar.gz ok
Scanning cache /home/jacoby/.local/share/.cpan/build for sizes

jacoby

# DEFAULT
prompt='\033[1;38;5;242m' 
revert='\033[00m'

# CARTER
if [ $HOST = 'carter-fe00' ]; then
    prompt='\033[1;38;5;210m\033[1;48;5;88m' # pink on dark red background
fi
if [ $HOST = 'carter-fe01' ]; then
    prompt='\033[1;38;5;211m\033[1;48;5;88m' # pink on dark red background