brettfreer

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;

my $url = 'https://someurl.com/einvoice.dll';

my $filename = $ARGV[0];
my $sid = "username";
my $spwd = "password";

brettfreer

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Net::SSL;
use LWP::Protocol::https;
use URI::https;

my $url = 'https://someurl.com/SubmitCXML';

brettfreer

import datetime
import calendar

def last_day_of_month(d):
    return datetime.datetime(d.year, d.month, calendar.mdays[d.month]).date()

brettfreer

import datetime

def first_day_of_month(d):
    return datetime.date(d.year, d.month, 1)

brettfreer

#!/bin/sh
#
# linux_idleout.sh [idle time]
#
# Auto-logout process for telnet/ssh sessions
#

IDLE_TIME=180
LOG_FILE=/tmp/idle.out
EXEMPT_PROCESSES="app1|app2|app3|etc" # optional list of apps which can be excluded

brettfreer

#!/bin/sh
# restart print queues

process()
{
  host=$1 queue=$2

  ping -c 1 ${host} 2>&1 >/dev/null
  status=$?

brettfreer

# convert base-10 integer a to base-b, returning a string
def convert(a,b):
    add = a % b
    if a <= 1:
        return str(a)
    return str(convert(a//b, b)) + str(add)