From james at rcpt.to Mon Oct 18 08:58:43 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 18 Oct 2010 23:58:43 +0800 Subject: [Perth-pm] Tap, tap, tap. In-Reply-To: <20101018143630.GB28070@Red.inatick.com> References: <4CB41BB5.7060706@rcpt.to> <20101012083512.GA3923@Red.inatick.com> <4CB422E1.3030200@rcpt.to> <4CB46FBB.50305@rcpt.to> <20101013045240.GA28070@Red.inatick.com> <4CBAF9C5.9050804@rcpt.to> <20101018143630.GB28070@Red.inatick.com> Message-ID: <4CBC6EB3.8080507@rcpt.to> On 18/10/2010 22:36, Peter Hallam wrote: > As for the archives and the website, I've no clue as to who's in > charge of those resources. Well, with a little social engineering and tapping some old friends on the shoulder for direction... its now me! ;) Unless anyone objects, of course, in which case I apologise if I have stepped on anyone's toes and will of course hand the reigns back. The archiving of the mailing list was turned off; I've turned this on. I see 26 subscribers as at now so there's a few people around. I've also got DAV access to the web site, so I have updated the meetings page with details; perhaps at our next catchup we can collaborate and put more input into this. :) So, next/first-in-a-long-time meeting Wednesday 10th November from 6:30pm at The Raffles, somewhere in there unless they've completely ripped out the bar in the refurb they did... and then at that we decide the next venue for Wednesday December 1st? James -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: From pjf at perltraining.com.au Mon Oct 18 17:43:49 2010 From: pjf at perltraining.com.au (Paul Fenwick) Date: Tue, 19 Oct 2010 11:43:49 +1100 Subject: [Perth-pm] Open Programming Miniconf (LCA) - CFP closes THIS FRIDAY Message-ID: <4CBCE9C5.2030403@perltraining.com.au> G'day Everyone! A friendly reminder that the CFP for the Open Programming Miniconf, part of LCA2011 being held in Brisbane in January, is closing on October 22. That's this Friday! If you're a developer working with or on Open Source development tools or languages, and especially Perl, they'd love to hear you share your tips and techniques. The CFP, including details about what we're after, is available from http://blogs.tucs.org.au/opm/cfp Best wishes, Paul == ABOUT THE MINICONF == The LCA2011 Open Programming Miniconf is the successor to the Open Programming Languages Miniconf held at LCA2010, and continues the tradition of bridging the gap between the low-level developer and the end-user by bringing the topic of tools and techniques for application development to Linux.conf.au. OPM2011 is part of Linux.conf.au 2011, being held at the Queensland University of Technology in Brisbane in January 2011. From lockster at gmail.com Wed Oct 20 00:35:20 2010 From: lockster at gmail.com (Matthew Lock) Date: Wed, 20 Oct 2010 15:35:20 +0800 Subject: [Perth-pm] Tap, tap, tap. In-Reply-To: <4CBC6EB3.8080507@rcpt.to> References: <4CB41BB5.7060706@rcpt.to> <20101012083512.GA3923@Red.inatick.com> <4CB422E1.3030200@rcpt.to> <4CB46FBB.50305@rcpt.to> <20101013045240.GA28070@Red.inatick.com> <4CBAF9C5.9050804@rcpt.to> <20101018143630.GB28070@Red.inatick.com> <4CBC6EB3.8080507@rcpt.to> Message-ID: Sounds great, but I have something on each first Wednesday of the Month (Port 80 http://www.port80.asn.au/) and another thing each second Wednesday of the month! Any chance we could make it the 3rd or 4th Wednesday or each month? 2010/10/18 James Bromberger : > On 18/10/2010 22:36, Peter Hallam wrote: > > As for the archives and the website, I've no clue as to who's in charge of > those resources. > > Well, with a little social engineering and tapping some old friends on the > shoulder for direction... its now me! ;) Unless anyone objects, of course, > in which case I apologise if I have stepped on anyone's toes and will of > course hand the reigns back. > > The archiving of the mailing list was turned off; I've turned this on. I see > 26 subscribers as at now so there's a few people around. > > I've also got DAV access to the web site, so I have updated the meetings > page with details; perhaps at our next catchup we can collaborate and put > more input into this. :) > > So, next/first-in-a-long-time meeting Wednesday 10th November from 6:30pm at > The Raffles, somewhere in there unless they've completely ripped out the bar > in the refurb they did... and then at that we decide the next venue for > Wednesday December 1st? > > ? James > -- > James Bromberger > Aus Mobile: +61 422 166 708 > Email: james _AT_ rcpt.to, Web: www.james.rcpt.to > MSN: james_AT_rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (_AT_ > -> @) > _______________________________________________ > Perth-pm mailing list > Perth-pm at pm.org > http://mail.pm.org/mailman/listinfo/perth-pm > From james at rcpt.to Sun Oct 24 09:39:49 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 25 Oct 2010 00:39:49 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// Message-ID: <4CC46155.3060601@rcpt.to> Hi all, I'm trying to to a substitution on a URL to lower-case the the protocol and host name in one regex, using variables for either side of the substitution: my $url = 'http://www.FOo.COm/wibbLE'; my $search = '^([^:]+://[^/]+)/?(.*)?$'; my $replace = '\L$1\E/$2'; print $url if $url =~ /$search/$replace/; Sadly, the result is the literal "*\L$1\E/$2*". Limitation is that I don't want to use eval() (also known as /e, and /ee), as I don't trust the content of $replace - fine if it doesn't nicely do a replace, bad if the eval() does a call to unlink and friends. (Of course, with using eval the $replace could contain '*lc($1) . "/$2"*'.) Any ideas? James -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: From neil.hunt at huntcorp.com.au Sun Oct 24 16:54:14 2010 From: neil.hunt at huntcorp.com.au (Neil Hunt) Date: Mon, 25 Oct 2010 07:54:14 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// In-Reply-To: <4CC46155.3060601@rcpt.to> References: <4CC46155.3060601@rcpt.to> Message-ID: Hi James, You can pull out the match (i.e. $1) and pass it through a tr, which should achieve your goal. Something like the following does what you're asking: my $url = "http://www.FOo.COm/wibbLE"; $url =~ m|(\w+)://([^/:]+)(:\d+)?/(.*)|; my $protocol = $1; my $domainName = $2; $uri= $4; $domainName=~tr/A-Z/a-z/; Note that a ' does not cause it's contents to be interpolated, you need to use ". Neil 2010/10/25 James Bromberger > Hi all, > > I'm trying to to a substitution on a URL to lower-case the the protocol and > host name in one regex, using variables for either side of the substitution: > my $url = 'http://www.FOo.COm/wibbLE'; > my $search = '^([^:]+://[^/]+)/?(.*)?$'; > my $replace = '\L$1\E/$2'; > print $url if $url =~ /$search/$replace/; > > Sadly, the result is the literal "*\L$1\E/$2*". > > Limitation is that I don't want to use eval() (also known as /e, and /ee), > as I don't trust the content of $replace - fine if it doesn't nicely do a > replace, bad if the eval() does a call to unlink and friends. (Of course, > with using eval the $replace could contain '*lc($1) . "/$2"*'.) > > Any ideas? > James > > -- > *James Bromberger* > Aus Mobile: +61 422 166 708 > Email: james *_AT_* rcpt.to, Web: www.james.rcpt.to > MSN: james*_AT_*rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (* > _AT_* -> @) > > _______________________________________________ > Perth-pm mailing list > Perth-pm at pm.org > http://mail.pm.org/mailman/listinfo/perth-pm > -- Neil Hunt Senior Consultant HuntCorp Enterprises Phone: 0412 474 140 -------------- next part -------------- An HTML attachment was scrubbed... URL: From perth.pm at inatick.com Sun Oct 24 16:58:59 2010 From: perth.pm at inatick.com (Peter Hallam) Date: Mon, 25 Oct 2010 07:58:59 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// In-Reply-To: <4CC46155.3060601@rcpt.to> References: <4CC46155.3060601@rcpt.to> Message-ID: <20101024235859.GD28070@Red.inatick.com> On Mon, 25 Oct, 00:39 +0800 James Bromberger wrote: > Hi all, > > I'm trying to to a substitution on a URL to lower-case the the protocol > and host name in one regex, using variables for either side of the > substitution: > my $url = 'http://www.FOo.COm/wibbLE'; > my $search = '^([^:]+://[^/]+)/?(.*)?$'; > my $replace = '\L$1\E/$2'; > print $url if $url =~ /$search/$replace/; Hi James, Given $url and $search I came up with: print $url if $url =~ s|$search|lc($1)."/$2"|e; However, I'd be tempted to capture the forward slash to with: my $search = '^([^:]+://[^/]+)(/?.*)?$'; Which then alleviates the need to use the pipe character in the substitution: print $url if $url =~ s/$search/lc($1).$2/e; Regards, Peter. From james at rcpt.to Sun Oct 24 17:58:52 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 25 Oct 2010 08:58:52 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// In-Reply-To: References: <4CC46155.3060601@rcpt.to> Message-ID: <4CC4D64C.2090508@rcpt.to> On 25/10/2010 07:54, Neil Hunt wrote: > You can pull out the match (i.e. $1) and pass it through a tr, which > should achieve your goal. > Something like the following does what you're asking: > > my $url = "http://www.FOo.COm/wibbLE"; > $url =~ m|(\w+)://([^/:]+)(:\d+)?/(.*)|; > my $protocol = $1; > my $domainName = $2; > $uri= $4; > $domainName=~tr/A-Z/a-z/; > > Note that a ' does not cause it's contents to be interpolated, you > need to use ". Thanks Neil, I hadn't through to use TR (face, palm); I was pulling a set of "search" and "replace" patterns from a database, and trying to use them all generically ALL as a substitution, with this one special case of a case change. Its the only time I can see a use for \[LlUu] in place of lc(), uc(), etc.... James -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: From james at rcpt.to Sun Oct 24 18:51:50 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 25 Oct 2010 09:51:50 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// In-Reply-To: <20101024235859.GD28070@Red.inatick.com> References: <4CC46155.3060601@rcpt.to> <20101024235859.GD28070@Red.inatick.com> Message-ID: <4CC4E2B6.6070600@rcpt.to> On 25/10/2010 07:58, Peter Hallam wrote: >> my $url = 'http://www.FOo.COm/wibbLE'; >> my $search = '^([^:]+://[^/]+)/?(.*)?$'; >> my $replace = '\L$1\E/$2'; >> print $url if $url =~ /$search/$replace/; > Given $url and $search I came up with: > print $url if $url =~ s|$search|lc($1)."/$2"|e; > > However, I'd be tempted to capture the forward slash to with: > my $search = '^([^:]+://[^/]+)(/?.*)?$'; > > Which then alleviates the need to use the pipe character in the substitution: > > print $url if $url =~ s/$search/lc($1).$2/e; Thanks Peter, I was also trying to see if I could guarantee that the URL would end up with a trailing slash after the hostname, as well as not having (possibly untrusted) replacement text as an expression in the RHS. I suspect using any escape sequence (either \L or back references $1...n) in the RHS (replacement) part of a substitution (s///) is going to only work if it is a literal, not inside a variable. Passing just '$1' inside a variable without "/e" (eval) isn't going to expand, and as soon as you have "/e" or eval, then your replacement string could be armed with Bad Stuff (like $replace = 'unlink "/some/file"'). My next test case I hit was: my $search = '^(http://[^/:]+):80(/.*)$'; my $replace = '$1$2'; $url =~ s!$search!$replace!; In order to strip out default port , but again, I end up with $url = '$1$2', not the sanitised string. So I think that, if I fetch my replace string from the database, and a add a pair of double quotes within the string, and use /ee (yep, double e), then I think it works: my $search = '^([^:]+://[^/]+(:\d+)?)/?(.*)?$'; # From database my $replace = '\L$1\E/$3'; # From database my $url = 'http://www.FOo.COm:80/wibbLE'; $replace = '"' . $replace . '"'; print $url . "\n" if $url =~ s/$search/$replace/ee; # Gives: http://www.foo.com:80/wibbLE Of course, then using: my $search = '^([^:]+://[^/]+(:\d+)?)/?(.*)?$'; # From database my $replace = '" eq ""; print time(); print "'; my $url = 'http://www.FOo.COm:80/wibbLE'; $replace = '"' . $replace . '"'; print $url . "\n" if $url =~ s/$search/$replace/ee; Just gives me the time (safest thing I could think of), and potentially a lot of trouble. So lastly: my $search = '^([^:]+://[^/]+(:\d+)?)/?(.*)?$'; # From database my $replace = '\L$1\E/$3'; # From database $replace =~ s/"/\\"/g; # Protection from embedded code $replace = '"' . $replace . '"'; # Put in a string for /ee my @urls = qw ( http://www.FOo.COm:80/wibbLE http://www.FOo.COm/ http://www.FOo.COm ); foreach (@urls) { print "$_\n" if s/$search/$replace/ee; } Hmm. Ponderous. :) James -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: From perth.pm at inatick.com Sun Oct 24 20:34:09 2010 From: perth.pm at inatick.com (Peter Hallam) Date: Mon, 25 Oct 2010 11:34:09 +0800 Subject: [Perth-pm] Using \L and \E inside a variable, inside a substitution s/// In-Reply-To: <4CC4D64C.2090508@rcpt.to> References: <4CC46155.3060601@rcpt.to> <4CC4D64C.2090508@rcpt.to> Message-ID: <20101025033409.GE28070@Red.inatick.com> On Mon, 25 Oct, 08:58 +0800 James Bromberger wrote: > On 25/10/2010 07:54, Neil Hunt wrote: > > You can pull out the match (i.e. $1) and pass it through a tr, which > > should achieve your goal. > > Something like the following does what you're asking: > > > Thanks Neil, > > I hadn't through to use TR (face, palm); I was pulling a set of "search" > and "replace" patterns from a database, and trying to use them all > generically ALL as a substitution, with this one special case of a case > change. Its the only time I can see a use for \[LlUu] in place of lc(), > uc(), etc.... Here's a benchmark of a modified version of my original answer compared to the escaped method: use 5.12.1; use Benchmark qw( :all ); my $search = '^([^:]+://[^/]+(:\d+)?)/?(.*)?$'; # From database my $replace = '\L$1\E/$3'; # From database $replace =~ s/"/\\"/g; # Protection from embedded code $replace = '"' . $replace . '"'; # Put in a string for /ee my @urls = qw ( http://www.FOo.COm:80/wibbLE http://www.FOo.COm/ http://www.FOo.COm ); for my $url (@urls) { my ( $result_escape, $result_lc ); say "URL = $url"; cmpthese( -1, { 'Escape' => sub { $url =~ s/$search/$replace/ee; }, 'lc' => sub { $url =~ m|([^:]+://[^/]+(:\d+)?)/?(.*)?$|; $result_lc = sprintf "%s%s/%s\n", lc $1 , ( $2 ? ":$2" : '' ) , ( $3 ? $3 : '' ); }, } ); print "\n"; say "Escape: $url"; say " lc: $result_lc"; print "\n\n"; } There's a couple of orders of magnitude difference here, something worth considering. I've also looked at Neil's regex, which is slightly faster by about 2%, and I've also looked at the tr// method, which is slower by about 10% Finally, if you want a concise (but slow) piece of code, I came up with: $url =~ s|([^:]+://[^/]+(:\d+)?/?)?(.*)?$|\L$1\E$3|; Regards, Peter. From neil.hunt at huntcorp.com.au Sun Oct 24 21:12:09 2010 From: neil.hunt at huntcorp.com.au (Neil Hunt) Date: Mon, 25 Oct 2010 12:12:09 +0800 Subject: [Perth-pm] Using perl? Message-ID: On 25 October 2010 11:34, Peter Hallam wrote: > On Mon, 25 Oct, 08:58 +0800 James Bromberger wrote: > > There's a couple of orders of magnitude difference here, something worth > considering. > > I've also looked at Neil's regex, which is slightly faster by about 2%, and > I've also looked at the tr// method, which is slower by about 10% > > Finally, if you want a concise (but slow) piece of code, I came up with: > > $url =~ s|([^:]+://[^/]+(:\d+)?/?)?(.*)?$|\L$1\E$3|; > > Regards, > Peter. > _______________________________________________ > Perth-pm mailing list > Perth-pm at pm.org > http://mail.pm.org/mailman/listinfo/perth-pm > "My regex" was taken from a website after I did a search. I'm dreadful at regular expressions, and would never claim it. On a similar note, what do you use Perl for? I do everything I can in it, and say to many of my clients: "I'd rather code something in Perl in 20 minutes that do something manually in 15 minutes". My best achievement in Perl was automating a user creation system for a company I used to work for (with the help of Sun One Identity Synchronisation Server for Windows). Essentially a script was run which extracted all new users from the payroll system, then sent a list of new accounts to AD, created those accounts, created email accounts, assigned them to user groups (and mailing lists), and then dropped into Unix and created proper accounts for Unix purposes, as well as Oracle identities. This was all based on a new person's job title (Customer Care Consultant, Credit Consultant, etc). In the end it was about 400 lines of code in production, and around 5 times that in development. Good times! Alas, the company no longer exists, and I never got a copy of it when I was made redundant... Neil -- Neil Hunt Senior Consultant HuntCorp Enterprises Phone: 0412 474 140 -------------- next part -------------- An HTML attachment was scrubbed... URL: From james at rcpt.to Sun Oct 24 22:37:22 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 25 Oct 2010 13:37:22 +0800 Subject: [Perth-pm] Using perl? In-Reply-To: References: Message-ID: <4CC51792.4070509@rcpt.to> Neil, you asked "On a similar note, what do you use Perl for?".... here goes.... Well more recent ones of mine were to generate the internal staff directory to HTML by traversing the corporate Active Directory users OU. I did this as a stand alone CGI, and under MediaWiki, and then also remoddled this to create the Snom (www.snom.com) VoIP hardphone directory (Snom handsets, very good). Another is the /*MySQL Query Cache Top*/, kind of like Mytop, which is kind of like top(1). It shows you performance of your MySQL query cache: http://www.james.rcpt.to/svn/trunk/MySQLQueryCacheTop/mysqlquerycachetop.pl I also have an Apache module that logs access to 3rd normal form, which I call /*Log3NF*/, in MySQL: http://www.james.rcpt.to/svn/trunk/Log3NFHandler/ I have done a bunch of Nagios tests, including: * A very thorough MySQL replication check (available at http://www.james.rcpt.to/svn/trunk/nagios/check_mysql_replication/check_mysql_replication.pl, and I think its on Nagios exchange) * A check for Bonded (teamed) interfaces under Linux to ensure that, if you lose one link but your bond stays up, you get alerted to this! http://www.james.rcpt.to/svn/trunk/nagios/check_bonding/check_bonding.pl I wrote (and published to CPAN) two packages: * /*WWW::IndexParser*/ (also in Debian as libwww-indexparser-perl) that fetches a URL, and tries to parse it for items in the return HTML - hence, making sense of the Auto Index pages (folders/directories) to make iterating published content easier * /*Net::Dynect::REST*/ (I spoke of a few weeks back) which implements the REST API to the DNS service provider Dynect. James On 25/10/2010 12:12, Neil Hunt wrote: > > > On 25 October 2010 11:34, Peter Hallam @inatick.com > wrote: > > On Mon, 25 Oct, 08:58 +0800 James Bromberger wrote: > > There's a couple of orders of magnitude difference here, something > worth considering. > > I've also looked at Neil's regex, which is slightly faster by > about 2%, and I've also looked at the tr// method, which is slower > by about 10% > > Finally, if you want a concise (but slow) piece of code, I came up > with: > > $url =~ s|([^:]+://[^/]+(:\d+)?/?)?(.*)?$|\L$1\E$3|; > > Regards, > Peter. > _______________________________________________ > Perth-pm mailing list > Perth-pm at pm.org > http://mail.pm.org/mailman/listinfo/perth-pm > > > "My regex" was taken from a website after I did a search. I'm > dreadful at regular expressions, and would never claim it. > > On a similar note, what do you use Perl for? > I do everything I can in it, and say to many of my clients: > "I'd rather code something in Perl in 20 minutes that do something > manually in 15 minutes". > > My best achievement in Perl was automating a user creation system for > a company I used to work for (with the help of Sun One Identity > Synchronisation Server for Windows). > > Essentially a script was run which extracted all new users from the > payroll system, then sent a list of new accounts to AD, created those > accounts, created email accounts, assigned them to user groups (and > mailing lists), and then dropped into Unix and created proper accounts > for Unix purposes, as well as Oracle identities. This was all based > on a new person's job title (Customer Care Consultant, Credit > Consultant, etc). In the end it was about 400 lines of code in > production, and around 5 times that in development. Good times! > Alas, the company no longer exists, and I never got a copy of it when > I was made redundant... > > Neil > > > -- > Neil Hunt > Senior Consultant > HuntCorp Enterprises > Phone: 0412 474 140 > > > _______________________________________________ > Perth-pm mailing list > Perth-pm at pm.org > http://mail.pm.org/mailman/listinfo/perth-pm -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: From perth.pm at inatick.com Sun Oct 24 23:30:53 2010 From: perth.pm at inatick.com (Peter Hallam) Date: Mon, 25 Oct 2010 14:30:53 +0800 Subject: [Perth-pm] Using perl? In-Reply-To: <4CC51792.4070509@rcpt.to> References: <4CC51792.4070509@rcpt.to> Message-ID: <20101025063053.GF28070@Red.inatick.com> On Mon, 25 Oct, 13:37 +0800 James Bromberger wrote: > I have done a bunch of Nagios tests, including: > * A very thorough MySQL replication check (available at > http://www.james.rcpt.to/svn/trunk/nagios/check_mysql_replication/check_mysql_replication.pl, > and I think its on Nagios exchange) I use that, albeit a different version to the one linked here in our Nagios installation :) (Thanks for that) I tend to agree with Neil and his statement about rather spending time programming in Perl than doing something manually. I also tend to use Perl where-ever I can, as I think in Perl whenever it comes to any kind of system related task. I do wonder sometimes though if I suffer from the "if all you have is a hammer, everything looks like a nail" proverb. Some of my usage for Perl: - TVRage.com listings to iCal converter - Uses their API to grab the XML feed and split out into various different calendars based off genre - IRC bot based on POE::Component::IRC - Used as a front-end to our CRM, provides a bunch of convenience tools mainly aimed towards reducing the number of RT tickets generated by the support team :) - Monitoring stuff - a whole big bunch of custom Nagios plugins, plus supporting scripts e.g. automatic configuration generators, written mainly because most of the plugins on NagiosExchange are either not quite suitable for our environment, or are just poorly written. In the dim and distant past, I wrote a nice tool to produce a nice table comparing the peerings between various BGP peers. Regards, Peter. From james at rcpt.to Sun Oct 31 23:35:57 2010 From: james at rcpt.to (James Bromberger) Date: Mon, 01 Nov 2010 14:35:57 +0800 Subject: [Perth-pm] Website update Message-ID: <4CCE5FCD.5040401@rcpt.to> Hi all, I've taken a stab at updating the Perth.pm.org web site. I've thrown in a Google Calendar with meetings. There's only two pages to the site so far. We can change anything, but it needed to get an update to have something a little more up to date on there. I've run through Validator.w3.org and it looks OK; if you've got suggestions for content or layout let me know. I've put the whole lot into SVN at https://www.james.rcpt.to/svn/Perth.pm/ -- unless anyone else has any suggestions. I'm happy to give SVN access to anyone who wants it. James (PS: It looks fine on my android phone too) -- *James Bromberger* Aus Mobile: +61 422 166 708 Email: james /_AT_/ rcpt.to, Web: www.james.rcpt.to MSN: james/_AT_/rcpt.to, AIM: JamesEBromberger, Skype: james.bromberger (/_AT_/ -> @) -------------- next part -------------- An HTML attachment was scrubbed... URL: