Skip to content

Instantly share code, notes, and snippets.

Brad Lhotsky reyjrar

Block or report user

Report or block reyjrar

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@reyjrar
reyjrar / gist:628553
Created Oct 15, 2010
Mech/TreeBuilder Example
View gist:628553
#!/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
reyjrar / kerberos.pm
Created Mar 23, 2011
PacketFence authentication::kerberos
View kerberos.pm
package authentication::kerberos;
=head1 NAME
authentication::kerberos - kerberos authentication
=head1 SYNOPSYS
use authentication::kerberos;
my ( $authReturn, $err ) = authenticate (
@reyjrar
reyjrar / pf-add-primary-keys.sql
Created Apr 27, 2011
add primary keys to tables lacking them
View pf-add-primary-keys.sql
alter table configfile add PRIMARY KEY ( filename );
@reyjrar
reyjrar / chi-squared-dist-df5.r
Created May 17, 2011
Graph a Chi-Squared Distribution with 5 Degrees of Freedom
View chi-squared-dist-df5.r
# 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") )
@reyjrar
reyjrar / eris_import_users_devices.pl
Created May 17, 2011
Sample working with DBIx::Class and PacketFence
View eris_import_users_devices.pl
#!/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
reyjrar / orm_from_database.pl
Created May 17, 2011
Create the PacketFence ORM Classes from the Database
View orm_from_database.pl
#!/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";
}
View http_ping.pl
#!/usr/bin/perl
#
# HTTP "PING" Program.
# Allows someone to check latency to a webserver.
#
# Code by Brad Lhotsky <brad@divisionbyzero.net>
# And Mark Thomas <mark@ackers.net>
#
# Distributed under the same license as perl itself.
#
@reyjrar
reyjrar / dns-query-response-density.r
Created Jul 7, 2011
Probability Density of DNS Query/Response times
View dns-query-response-density.r
# Connect to Database
pgDrv <- dbDriver("PostgreSQL")
dbh <- dbConnect(pgDrv, host="", dbname="dnsmonitor", user="dnsmon", password="")
# Retrieve Statistics from DB
stats <- dbGetQuery(dbh, "select * from packet_timing")
# Close the Database Connection and free variables
dbDisconnect(dbh)
rm(dbh)
@reyjrar
reyjrar / DNS-A-AAAA.r
Created Jul 8, 2011
Evaluation of IPv6 readiness by looking at "A" and "AAAA" DNS Queries
View DNS-A-AAAA.r
# Library Loading
library("RPostgreSQL");
library("car");
library("reshape");
# Connect to Database
pgDrv <- dbDriver("PostgreSQL")
dbh <- dbConnect(pgDrv, host="localhost", dbname="dnsmonitor", user="dnsmon", password="tooEasy")
# Retrieve Statistics from DB
@reyjrar
reyjrar / DNS-Query-NX.r
Created Jul 8, 2011
Query vs NX Relationships
View DNS-Query-NX.r
# Library Loading
library("RPostgreSQL");
library("car");
# Connect to Database
pgDrv <- dbDriver("PostgreSQL")
dbh <- dbConnect(pgDrv, host="localhost", dbname="dnsmonitor", user="dnsmon", password="tooEasy")
# Retrieve Statistics from DB
stats <- dbGetQuery(dbh, "select client.id, client.ip, sum(queries) as queries, sum(nx) as nx, sum(answers) as answers, sum(errors) as errors, count(distinct day) as days_active
You can’t perform that action at this time.