evandhoffman

evan@evan-desktop: ~ $ git clone evan@10.3.0.77:/home/evan/gitrepo clonedrepo2
Cloning into clonedrepo2...
evan@10.3.0.77's password: 
remote: Counting objects: 3, done.
remote: Total 3 (delta 0), reused 0 (delta 0)
Receiving objects: 100% (3/3), done.
evan@evan-desktop: ~ $ cd clonedrepo2/
evan@evan-desktop: ~/clonedrepo2 $ ls
poop
evan@evan-desktop: ~/clonedrepo2 $ echo poop2 > poop2

evandhoffman

#!/usr/bin/perl
#

use strict;
use warnings;

#use MP3::M3U::Parser;
use MP3::Tag;
use Data::Dumper;
use File::Copy;

evandhoffman

def getDeviceProps(device, propNames):
   res = ''
   for i in propNames:
      res += str(getattr(device, i)) + "\t"
   return res

res = ''
#propNames = ('id', 'snmpindex', 'monitor', 'manageIp', 'productionState','preMWProductionState','snmpAgent','snmpDescr','snmpOid','snmpContact','snmpSysName','snmpLocation','snmpLastCollection','snmpAgent','rackSlot','comments','sysedgeLicenseMode','priority','zDeviceTemplates')
propNames = ('id','manageIp')

evandhoffman

<?php

define('IN_PHPBB', true);
define('ADMIN_START', true);
define('NEED_SID', true);

// Include files
$phpbb_root_path = (defined('PHPBB_ROOT_PATH')) ? PHPBB_ROOT_PATH : './../';
$phpEx = substr(strrchr(__FILE__, '.'), 1);
require($phpbb_root_path . 'common.' . $phpEx);

evandhoffman

PICARD: Will, what the hell are you still doing here?
RIKER: Sir?
PICARD: You've been offered the Melbourne.
RIKER: I've decided not to pursue that commission at this time.
PICARD: She's a fine ship, Will.
RIKER: Yes, but she's not the Enterprise. With all due respect, sir, you need me. Particularly now.
PICARD: Indeed? Starfleet needs good captains, particularly now. Reconsider your decision.
RIKER: Are you telling me to leave, Captain?
PICARD: I'm asking you to look at your career objectively. Will, you're ready to work without a net. You're ready to take command. And, you know, the Enterprise will go along just fine without you. 

evandhoffman

# Logformat fed into the script is this:

    log_format  cachemiss  '$remote_addr - $remote_user [$time_local] "$request" '
                      '$status $body_bytes_sent "$http_referer" '
                      '"$http_user_agent" "$http_x_forwarded_for" "$upstream_cache_status"';

evandhoffman

#!/usr/bin/perl
# Resize all images in a directory for the Insignia 7" Digital photo
# frame (Model: NS-DPF0712G), 800x480 resolution.

use strict;
use warnings;

use File::Find;
use Image::Magick;
use Image::ExifTool;

evandhoffman

find /src/ -iname \*jpg -execdir convert -scale 800x533 -quality 80 {} /target/{} \;

evandhoffman

#!/usr/local/bin/perl

# Converts flac files en masse to MP3, setting ID3v2 tags pulled from the flac files
# (c) November 7, 2005 Evan D. Hoffman <evandhoffman@gmail.com>
# Licensed under the BSD license, use it as your own risk
#
# http://www.freebsd.org/copyright/freebsd-license.html
# flac: http://flac.sourceforge.net/download.html
# lame: http://lame.sourceforge.net/download/download.html

evandhoffman

#!/usr/bin/perl

use strict;
use warnings;

require LWP::UserAgent;
#require HTTP::Request;
require HTTP::Response;
#use Data::Dumper::Perltidy;