reyjrar

commit 32e77a880484a60431b7e2d841549e0b6a96057f
Author: Brad Lhotsky <brad.lhotsky@booking.com>
Date:   Wed Apr 2 22:11:05 2014 +0200

    Initializing source repository.
    ---
    audit_repo: /Users/blhotsky/tmp/repo
    branch: master
    reviewer: brad.lhotsky@booking.com
    source_repo: git@github.com:reyjrar/Parse-Syslog-Line.git

reyjrar

Expunge Slave
Create Both
CopyArrivalDate yes
Sync All
SyncState *

IMAPAccount company
  Host imap.company.com
  CertificateFile ~/Certificates/godaddy.pem
  UseIMAPS yes

reyjrar

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

use Benchmark qw(cmpthese timethese);

my @tests = (
  q{testing 12345 some more stuff},
  q{123 testing some stuff},

reyjrar

WITH dups AS(
	select response_id, answer_id, section
	from meta_answer
	group by response_id, answer_id, section
	having count(1) > 1
)
DELETE FROM meta_answer ma
 WHERE EXISTS (
      SELECT 1 
      FROM   dups

reyjrar

#!/usr/bin/perl
#
# Code to turn the security report into
# a tab delimited text file.
#
# Code By Brad Lhotsky <lhotskyb@mail.nih.gov>
#
# use at your own risk, no guarantees or warranties associated.
# distributed under the same license as perl itself

reyjrar

package authentication::kerberos;

=head1 NAME

authentication::kerberos - kerberos authentication

=head1 SYNOPSYS

  use authentication::kerberos;
  my ( $authReturn, $err ) = authenticate (

reyjrar

alter table configfile add PRIMARY KEY ( filename );

reyjrar

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

use feature qw{ say };
use lib qw{
        /usr/local/pf/lib
        /opt/local/eris/lib};

use pf::schema;

reyjrar

#!/usr/bin/env perl

use strict;
use warnings;
use Config::IniFiles;
use DBIx::Class::Schema::Loader qw/ make_schema_at /;

if( !-d './lib') {
        die "must be run in the root dir of PacketFence!\n";
}

reyjrar

# Generic Chi-Squared Graph at 5 D of F.
x <- seq(0, 20, length=100)
hx <- dchisq(x, 5)
plot(x, hx, type="l", col="red", xlab="test statistics",
  ylab="Density", main="Chi-Squared Distribution")
segments( x0=9.26, y0=0, x1=9.236, y1=max(hx), lty=2 )
text( 12, 0.12, "cv=9.236" )
legend( "topright", inset=0.05, c("df = 5"), lty=c(1), col=c("red") )