jettero

// ==UserScript== 
// @name Blogger Content Warning Autoskip
// @namespace http://www.kuribo.info/ 
// @include https://www.blogger.com/blogin.g?blogspotURL=* 
// ==/UserScript== 

(function () {
  var link = document.getElementById("continueButton");
  if (link) {
    location.href = link.href;

jettero

SHELL=/bin/bash

key=my key

go: clean
	@ make --no-print-directory `git ls-files | sed 's/$$/.ubf/'`
	@ for i in *.ubf; do x=`basename $$i .ubf`; ./my_diff.pl $$x $$i; done

words.bf: enc
	./enc "$(key)" $(words) $@

jettero

#!/usr/bin/perl
# Copyright 2009 - Paul Miller - GPL
# trivial port knocker script

use strict;
use IO::Socket::INET;
use Getopt::Long;

my ($h, @p);
GetOptions("host=s"=>\$h, "port=s"=>\@p);

jettero

#!/usr/bin/perl
# perldoc me for full desc

use strict;
use warnings;
use POE qw(Wheel::ReadLine);

my $rls = POE::Session->create( package_states => [
    main=>[qw(_start input spam)]
]);

jettero

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

my ($kill_all, $one_line, $execute, $force);

Getopt::Long::Configure("bundling"); # make switches case sensitive (and turn on bundling)

jettero

    my $smtp = Net::SMTP->new("mail.gateway.company.com",
        Hello=>"sending-hostname.company.com", Debug=>1)
            or croak $!;

    # This is the SMTP Return path.  It's the actual return path of the
    # mail and should be real.  It's used in the accept/deny decision
    # (sometimes) and populates the return-path: header in the email.  It's
    # the MAIL FROM SMTP command.
    $smtp->mail('real-sender@company.com');

jettero

#!/usr/bin/perl

use common::sense;
use List::Util qw(sum);

my $ccard = shift;

print crunch($ccard) ? "OK" : "BAD", "\n";

sub crunch {

jettero

#!/usr/bin/perl

use common::sense;

SimpleEchoServer->run(port => 80);


package SimpleEchoServer;

use common::sense;

jettero

#!/usr/bin/perl

# This program was written for the purpose of testing an XML RPC system.
# Copyright 2010 Barry County Services Company
# LICENSE: GPL -- http://www.gnu.org/licenses/gpl-3.0.txt

use common::sense;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;

jettero

#!/usr/bin/perl

use common::sense;
use IPC::System::Simple qw(systemx system);
use POSIX;
use Term::ReadLine;
use File::Basename;
use Data::Dump qw(dump);
use Date::Lima qw(beek_date);
use Digest::MD5 qw(md5_hex);