mlbright

#!/usr/bin/env perl

use 5.018; # Why not?!

use Win32::OLE;
$Win32::OLE::Warn = 3;

my $speaker = Win32::OLE->new('SAPI.spvoice');

while (my $line = <DATA>) {

mlbright

// This script is for Jenkins' Groovy console, and sets a timeout
// strategy for any job which doesn't have one.
// Based on http://janmaterne.wordpress.com/2010/07/11/how-to-check-if-all-hudson-jobs-have-a-timeout/
// Updated and modified by Sean Flanigan.

String describe(strat) {
  if (strat instanceof hudson.plugins.build_timeout.impl.ElasticTimeOutStrategy) {
    return "Elastic(${strat.timeoutPercentage}, ${strat.numberOfBuilds}, ${strat.timeoutMinutesElasticDefault})"
  } else if (strat instanceof hudson.plugins.build_timeout.impl.AbsoluteTimeOutStrategy) {
      return strat.timeoutMinutes

mlbright

package main

import (
    "io/ioutil"
    "log"
    "os"
    "os/exec"
)

const compile_script = "run.sh"

mlbright

#!/usr/bin/env perl

my @scores;

while ( my $line = <DATA> ) {
    chomp $line;
    push @scores, $line;
}

@scores = reverse @scores;

mlbright

#!/usr/bin/env perl

use strict;
use warnings;
use File::Find;
use Digest::MD5;

my $pics = 'c:/pics';

sub md5sum {

mlbright

#!/usr/bin/env perl

use strict;
use warnings;
use Cwd qw(abs_path getcwd);
use File::Path qw(make_path);
use File::Spec;

my $backup_dir = "/home/backup";
my $domain     = 'acg-git.autodesk.com';

mlbright

#!/usr/bin/env perl

use strict;
use warnings;
use File::Find;

my $root = '/git';

my %gitdir = map { $_ => 1 } qw(
  branches

mlbright

/*

Adapted from Tim Kay's solo:

docs: http://timkay.com/solo/
source: http://timkay.com/solo/solo

*/

package main

mlbright

#!/usr/bin/env python
# inspired by http://timkay.com/solo/

import socket
import sys
import subprocess

HOST=''
port = int(sys.argv[1])

mlbright

#!/usr/bin/perl

use strict;
use warnings;
use BuildForge::Services;
use Try::Tiny;
use File::Slurp;
use Cwd 'abs_path';

my $USAGE = <<"USAGE";