Skip to content

Instantly share code, notes, and snippets.

View justingit's full-sized avatar

Justin J justingit

31 followers · 3 following
View GitHub Profile
@justingit
justingit / Cover Letter
Created March 27, 2021 17:25
#!/usr/bin/perl
# copy this into a text file, then run it:
eval eval '"'.
'#'.'!'.'/'.
("\["^ '.').('['^'(').
('['^')'). '/'.('`'|'"').('`'
@justingit
justingit / MailingList.pm
Created October 22, 2019 17:37
dada/DADA/MailingList.pm fix for, " Undefined subroutine &DADA::MailingList::strip called at DADA/MailingList.pm line 81, <CONFIG> line 1."
package DADA::MailingList;
use lib qw(./ ../ ../DADA ../perllib);
use Carp qw(croak carp);
use DADA::Config qw(!:DEFAULT);
use DADA::App::Guts;
require Exporter;
@justingit
justingit / example.html
Created August 18, 2016 19:13
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"><head><link rel="stylesheet" type="text/css" href="css/app.css"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><meta name="viewport" content="width=device-width"><title>Subject of Message</title></head><body style="-moz-box-sizing:border-box;-ms-text-size-adjust:100%;-webkit-box-sizing:border-box;-webkit-text-size-adjust:100%;Margin:0;box-sizing:border-box;color:#0a0a0a;font-family:Helvetica,Arial,sans-serif;font-size:16px;font-weight:400;line-height:1.3;margin:0;min-width:100%;padding:0;text-align:left;width:100%!important"><style>@media only screen{html{min-height:100%;background:#f3f3f3}}@media only screen and (max-width:596px){.small-float-center{margin:0 auto!important;float:none!important;text-align:center!important}.small-text-center{text-align:center!important}.small-text-left{text-align:left!impo
@justingit
justingit / Tour de 14er Calculations
Last active August 11, 2016 05:23
#!/usr/bin/perl
use DateTime;
my $start_str = '05:11:43 AM (MDT) 07/26/16';
my $end_str = '02:58:07 PM (MDT) 08/10/16';
my $num_14ers = 27;
my $start = parse_trackleaders_str($start_str);
my $end = parse_trackleaders_str($end_str);
@justingit
justingit / gist:7012331
Created October 16, 2013 18:17
Perl email address regex. Spooky
(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n
\015()]|\\[^\x80-\xff])*\))*\))*(?:(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\
xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"
]|\\[^\x80-\xff])*")(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xf
f]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?:[
^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\
xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;
:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*"))
*(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\
n\015()]|\\[^\x80-\xff])*\))*\))*@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\
@justingit
justingit / gist:6533386
Last active December 22, 2015 21:29
Larry Black Pe[a]rl 5
#!/usr/bin/perl
eval eval '"'.
                         '#'.'!'.'/'.('['
                      ^'.').('['^'(').(('[')^
                 ')').'/'.('`'|'"').('`'|')').(
               "\`"|                         '.')
             .'/'                              .+(
           '['^                                  '+'
@justingit
justingit / gist:5368489
Created April 12, 2013 01:09
.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.
@justingit
justingit / gist:5246834
Last active December 15, 2015 10:39
inject.cgi
#!/usr/bin/perl
my $list = 'test';
my $verbose = 1;
my $test = 1;
use CGI::Carp qw(fatalsToBrowser);
use FindBin;