jbarber

#!/usr/bin/env perl

=head1 NAME

chrome-reload

=head1 SYNOPSIS

  chrome-reload 1

jbarber

sudo stap -v - <<'EOF'
probe tcp.sendmsg {
  # 2  = AF_INET
  # 10 = AF_INET6
  if ((family == 2 || family == 10) && tcpmib_remote_port($sk) == 80) {
    printf("%i %s\n", pid(), cmdline_str())
  }
}
EOF

jbarber

#!/bin/bash

MIRROR_URL="http://centos.netnitco.net/6.4/os/x86_64/"
MIRROR_URL_UPDATES="http://centos.netnitco.net/6.4/updates/x86_64/"

yum install -y febootstrap xz

febootstrap -i bash -i coreutils -i tar -i bzip2 -i gzip -i vim-minimal -i wget -i patch -i diffutils -i iproute -i yum centos centos64  $MIRROR_URL -u $MIRROR_URL_UPDATES
touch centos64/etc/resolv.conf
touch centos64/sbin/init

jbarber

#!/usr/bin/env perl

# This script provides a basis for futzing about with redmine via it's API 
# You will also need to refer to TFM at:
# http://www.redmine.org/projects/redmine/wiki/Rest_Issues
# to fully learn how to manipulate the system.
# It's my impression from the Redmine bugtrackker that there seem to be plenty
# of bugs in the Redmine API implimentation, and that the implimentation
# doesn't cover everything you can do via the GUI.

jbarber

#!/usr/bin/env python
import os
import sys
import yum

yb = yum.YumBase()
yb.setCacheDir()

#pkgs = yb.pkgSack.searchNames(["perl"])
pkgs = yb.pkgSack.searchNames(sys.argv[1:])

jbarber

use strict;
use warnings;

use Moose;

my $meta = Moose::Meta::Class->create_anon_class();
$meta->add_attribute("foo" => (is => "rw", isa  => "Int"));
$meta->make_immutable;
my $object = $meta->new_object(foo => 2);

jbarber

package main

/*
 Example of creating go routine with time based channel - this time can be
 adjusted by the parent, so it can postpone (or bring forwards) whatever the
 child should do. This could be useful for creating a polling mechanism which
 you occasionally want to run sooner.

 The parent creates the channel and passes it to the go routine to wait for 10
 seconds. This channel is used to communicate how long the child should wait

jbarber

package main

import (
	"encoding/xml"
	"log"
	"strings"
)

type document struct {
	Title string `xml:"title"`

jbarber

package main

import (
	"fmt"
	"time"
)

// This function returns a function that returns the current time. The current
// time is only updated when the returned function is called, and at most once
// during every period

jbarber

(comment (defproject otrs "0.1.0-SNAPSHOT"
           :description "Example of Shibboleth login to OTRS with htmlunit"
           :url "http://example.com/FIXME"
           :license {:name "Eclipse Public License"
                     :url "http://www.eclipse.org/legal/epl-v10.html"}
           :dependencies [[org.clojure/clojure "1.6.0"]
                          [net.sourceforge.htmlunit/htmlunit "2.15"]]))

(ns otrs.core
  (:import (com.gargoylesoftware.htmlunit WebClient)))