aleks-mariusz

set trackers to {}
tell application "iTunes"
	if selection is not {} then
		set trackers to (get selection)
	else if view of front window is not library playlist 1 and special kind of view of front window is «constant eSpKkSpN» then -- iTunes 4.9 or better uses "special kind"
		set trackers to every file track of view of front window
	end if
end tell
if trackers is not {} then
	repeat with i from 1 to number of items in trackers

aleks-mariusz

#!/usr/bin/perl
use MIDI;
use MIDI::Simple;
use Getopt::Std;

$g_chan = 9;
$g_tempo = 200;
$g_vol = 100;

$g_types = 'csrhftt1t2t3t4t5t6ff1f2sb2tm';

aleks-mariusz

#!/usr/bin/perl
$| = 1;

use strict;	# discipline is good
use Getopt::Std; my %optionPassed;
getopts("f:nkchs",\%optionPassed);

&printUsage() if $optionPassed{'h'};

# typical sanity checking

aleks-mariusz

#!/usr/bin/perl
$| = 1;

use strict;
use Expect;
use Net::DNS;
use Getopt::Std;
use Data::Dumper;

no strict 'refs';

aleks-mariusz

::cisco::eem::event_register_timer watchdog name linkmon time $linkmon_period maxrun 45
# _________________________________________________________________________#
# |                                                                       |#
# | cogent-monitor                                                        |#
# |                                                                       |#
# | by: Alex Koralewski                                                   |#
# | (c) 2008, Forex Capital Markets, LLC.                                 |#
# |                                                                       |#
# | Version 0.8 03/14/2008                                                |#
# | Version 1.0 04/03/2008                                                |#

aleks-mariusz

#!/usr/bin/perl

#
## NAME:    parseDAMP.pl
##
## FUNCTION:    Creates graphs from Hitatchi DAMP utility log file
##
## USAGE:    cat pfm.txt|./parseDAMP.pl
##
##         Can also be run with a progress indicator (takes slightly longer to start up)

aleks-mariusz

tell application "iTunes"
	set debuggingFlag to false
	set thisPlaylist to (get view of front window)
	set pathToAnalyze to "/Users/cynikal/analyze/"
	set allKeyList to {"1A", "1B", "2A", "2B", "3A", "3B", "4A", "4B", "5A", "5B", "6A", "6B", "7A", "7B", "8A", "8B", "9A", "9B", "10A", "10B", "11A", "11B", "12A", "12B"}
	
	if exists selection then
		copy selection to selectedTracks
	else
		copy (get every track of thisPlaylist) to selectedTracks

aleks-mariusz

#!/usr/bin/perl
$| = 1;

use Data::Dumper;
use Fcntl qw(:flock SEEK_END);
use File::Copy;
use HTTP::Request::Common qw(PUT POST);
use HTTP::Cookies;
use HTTP::Status;
use LWP::UserAgent;

aleks-mariusz

#!/ms/dist/perl5/PROJ/core/5.8/bin/perl
#
#   Last edited by:  $Author: koramari $
#           on:  $Date: 2010/05/28 21:33:24 $
#     Revision:  $Revision: 1.5 $
#
#           ID:  $Id: pcon.pl,v 1.5 2010/05/28 21:33:24 koramari Exp koramari $
#
# this script opens up xterms and attaches pconsole to those xterms

aleks-mariusz

#!/ms/dist/python/PROJ/core/2.7.1/bin/python

import os
import sys
import time
import signal
import shutil
from time import time, sleep
from tempfile import mkdtemp
from subprocess import Popen, PIPE