kurtraschke

#!/bin/sh
#set -x
#
###################################################################
# smb.sh  Charles Gillanders charles.gillanders@toucan.ie
# Modified by Kurt Raschke <kurt@kurtraschke.com>:
# No longer requires a valid user/pass for each machine
# Minor bug-fixing; better handling of the "dialup" and "nonetpage" directives
#
# A Big Brother External Script

kurtraschke

#!/usr/local/bin/perl -T

#NRC ENR Atom feed generator
#Kurt Raschke
#kurt@kurtraschke.com

#Resources:
#http://linuxgazette.net/108/oregan2.html
#http://linuxgazette.net/109/oregan.html
#http://ttul.org/repos/cpan/trunk/Kwiki-Atom/lib/Kwiki/Atom.pm

kurtraschke

import re

myfile = open('list', 'r')

callnos = myfile.readlines()

p = re.compile("""^(?P<aclass>[A-Z]{1,3})
		  (?P<nclass>\\d{1,4})(\\ ?)
		  (\\.(?P<dclass>\\d{1,3}))?
		  (?P<date>\\ [A-Za-z0-9]{1,4}\\ )?