Skip to content

Instantly share code, notes, and snippets.

@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.