From daniel at rimspace.net Sun Mar 4 22:17:33 2007 From: daniel at rimspace.net (Daniel Pittman) Date: Mon, 05 Mar 2007 17:17:33 +1100 Subject: [Melbourne-pm] Testing: stub modules and Test::More. Message-ID: <87lkicb4ea.fsf@rimspace.net> G'day. I seem to be having a foolish day, and despite my best efforts I can't work out how to get past a stumbling block in putting together an automated test suite. I have a module that is part of a large, heavy-weight and third party product, so I want to test it independent of the main system. It actually has very few dependencies on the real system, just two functions in a single module, so I figured: easy! Just stub out that module in my test script and it will "just work." Unfortunately I can't seem to make that work. The existing module uses a bit of common third party infrastructure: use Product::Toolkit::General qw/string log/; Now, even with a test script that reads (roughly): use Test::More plan => 27; use_ok('My::Module'); ...; package Product::Toolkit::General; ... stub version of the module here ... I get the error: 'Can't locate Product/Toolkit/General.pm in @INC' I tried every darn thing I could think of, including the Test::MockModule package, delaying the 'use' of my module until later -- even in a string eval statement -- and so forth. Nothing! Heck, I even tried setting the appropriate value into %INC to try and fool the module loader into thinking that the third party module was already loaded -- to no avail. So, can someone help me out? What on earth have I missed? Regards, Daniel -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From krobert at realestate.com.au Sun Mar 4 22:22:33 2007 From: krobert at realestate.com.au (Kirrily Robert) Date: Mon, 5 Mar 2007 17:22:33 +1100 Subject: [Melbourne-pm] Testing: stub modules and Test::More. In-Reply-To: <87lkicb4ea.fsf@rimspace.net> Message-ID: <6FA6124E9378214883CA93A54AED601D059E19C1@EMAIL.win.int.realestate.com.au> Daniel, No time for a detailed answer I'm afraid, but take a look at Test::MockObject. K. From steve at sabljak.org Mon Mar 5 04:39:18 2007 From: steve at sabljak.org (Steve Sabljak) Date: Mon, 5 Mar 2007 23:39:18 +1100 Subject: [Melbourne-pm] Testing: stub modules and Test::More. In-Reply-To: <87lkicb4ea.fsf@rimspace.net> References: <87lkicb4ea.fsf@rimspace.net> Message-ID: <81c28d920703050439k5ae28348vef418292e08ce60a@mail.gmail.com> Hi Daniel, I think MockModule only overrides functions in existing modules, it doesn't take any measures to avoid loading the module. Kirrily mentioned Test::MockObject. This does not need to load an existing module at all in order to fake it. You just need to make sure the MockObject code runs before your module is 'used' in the test, so put it in a BEGIN block. If you're using non-oo modules you'll need your mocked module to provide an import function to export the mocked modules interface. Should work with fully qualified functions and exported ones. Here's an example... ------ start baz.t ----- #!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; use Test::MockObject; BEGIN { my $foo = sub { return 'Mock::foo' }; my $bar = sub { return 'Mock::bar' }; my $mock = Test::MockObject->new(); $mock->fake_module( 'MyA', import => sub { my $pkg = shift; my $callpkg = caller(0); { no strict 'refs'; *{"$callpkg\::foo"} = $foo; *{"$callpkg\::bar"} = $bar; } }, foo => $foo, bar => $bar, ); use_ok('MyB'); } is(baz(), 'Mock::foo|Mock::bar', 'baz returned value based on mocked values'); ----- end baz.t ----- ----- start MyB.pm ----- package MyB; use MyA; use Exporter; use base qw( Exporter ); our @EXPORT = qw( baz ); sub baz { my $foo = foo(); my $bar = MyA::bar(); return $foo . '|' . $bar; } 1; ----- end MyB.pm ----- Hope this helps. cheers, Steve From daniel at rimspace.net Mon Mar 5 18:38:03 2007 From: daniel at rimspace.net (Daniel Pittman) Date: Tue, 06 Mar 2007 13:38:03 +1100 Subject: [Melbourne-pm] Testing: stub modules and Test::More. In-Reply-To: <81c28d920703050439k5ae28348vef418292e08ce60a@mail.gmail.com> (Steve Sabljak's message of "Mon\, 5 Mar 2007 23\:39\:18 +1100") References: <87lkicb4ea.fsf@rimspace.net> <81c28d920703050439k5ae28348vef418292e08ce60a@mail.gmail.com> Message-ID: <878xeb9jw4.fsf@rimspace.net> "Steve Sabljak" writes: > I think MockModule only overrides functions in existing modules, it > doesn't take any measures to avoid loading the module. Kirrily > mentioned Test::MockObject. Yes -- thanks to both of you for the pointer. That does what I need, after taking the time to write the 'import' based version of the mock object. Regards, Daniel -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From blm at woodheap.org Mon Mar 5 20:11:06 2007 From: blm at woodheap.org (blm at woodheap.org) Date: Tue, 6 Mar 2007 15:11:06 +1100 Subject: [Melbourne-pm] Meeting 14 March 2007 Message-ID: <20070306041106.GA5311@woodheap.org> G'day everyone, Just a quick reminder that our regular monthly meeting will run next week on Wednesday 14th. You are welcome to come and encouraged to bring friends, family, co-workers. Date: Wednesday 14th March 2007 Time: 6:30pm Location: Level 8, 14 Blackwood Street, North Melbourne The downstairs doors may lock at 6:30pm. I will make sure that there is a note on the doors for a number you can call to be let in. We have a talk from David Dick on Perl packaging that will talk about packaging perl fo customers. It will look at cross platform issues. It would be great to have other talks so if you have a talk to give please email me. Regards, Ben Marsh From scottp at dd.com.au Tue Mar 13 18:38:59 2007 From: scottp at dd.com.au (Scott Penrose) Date: Wed, 14 Mar 2007 12:38:59 +1100 Subject: [Melbourne-pm] Meeting 14 March 2007 Message-ID: <3BB02EBF-39D4-4C60-A195-CBF62F9A1F09@dd.com.au> G'day everyone, Just a quick reminder that our regular monthly meeting will run next week on Wednesday 14th. You are welcome to come and encouraged to bring friends, family, co-workers. Date: Wednesday 14th March 2007 Time: 6:30pm Location: Level 8, 14 Blackwood Street, North Melbourne The downstairs doors may lock at 6:30pm. I will make sure that there is a note on the doors for a number you can call to be let in. We have a talk from David Dick on Perl packaging that will talk about packaging perl fo customers. It will look at cross platform issues. It would be great to have other talks so if you have a talk to give please email me. Regards, Ben Marsh _______________________________________________ Melbourne-pm mailing list Melbourne-pm at pm.org http://mail.pm.org/mailman/listinfo/melbourne-pm From pjf at perltraining.com.au Tue Mar 13 21:05:34 2007 From: pjf at perltraining.com.au (Paul Fenwick) Date: Wed, 14 Mar 2007 15:05:34 +1100 Subject: [Melbourne-pm] Meeting TONIGHT In-Reply-To: <3BB02EBF-39D4-4C60-A195-CBF62F9A1F09@dd.com.au> References: <3BB02EBF-39D4-4C60-A195-CBF62F9A1F09@dd.com.au> Message-ID: <45F7748E.6070709@perltraining.com.au> Scott Penrose wrote: > Just a quick reminder that our regular monthly meeting will run next > week on Wednesday 14th. Time sure flies when you're having fun, it's next week already! I look forward to seeing you all at tonight's meeting! ;) Date: Wednesday 14th March 2007 (TONIGHT) Time: 6:30pm Location: Level 8, 14 Blackwood Street, North Melbourne Cheerio, Paul -- Paul Fenwick | http://perltraining.com.au/ Director of Training | Ph: +61 3 9354 6001 Perl Training Australia | Fax: +61 3 9354 2681 From scottp at dd.com.au Tue Mar 13 21:34:25 2007 From: scottp at dd.com.au (Scott Penrose) Date: Wed, 14 Mar 2007 15:34:25 +1100 Subject: [Melbourne-pm] Meeting TONIGHT In-Reply-To: <45F7748E.6070709@perltraining.com.au> References: <3BB02EBF-39D4-4C60-A195-CBF62F9A1F09@dd.com.au> <45F7748E.6070709@perltraining.com.au> Message-ID: <76F7CC7F-ED75-4A8A-A261-258D7E9154C9@dd.com.au> Woops, I just resent last weeks mail - should have read it more carefully :-) Scooter On 14/03/2007, at 3:05 PM, Paul Fenwick wrote: > Scott Penrose wrote: > >> Just a quick reminder that our regular monthly meeting will run next >> week on Wednesday 14th. > > Time sure flies when you're having fun, it's next week already! I > look > forward to seeing you all at tonight's meeting! ;) > > Date: Wednesday 14th March 2007 (TONIGHT) > Time: 6:30pm > Location: Level 8, 14 Blackwood Street, North Melbourne > > Cheerio, > > Paul > > -- > Paul Fenwick | http://perltraining.com.au/ > Director of Training | Ph: +61 3 9354 6001 > Perl Training Australia | Fax: +61 3 9354 2681 > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm -- * - * http://www.osdc.com.au - Open Source Developers Conference * - * Scott Penrose VP in charge of Pancakes http://linux.dd.com.au/ scottp at dd.com.au Dismaimer: If you receive this email in error - please eat it immediately to prevent it from falling into the wrong hands. Please do not send me Word or PowerPoint attachments. See http://www.gnu.org/philosophy/no-word-attachments.html Microsoft is not the answer. It's the question. And the answer is no. From blm at woodheap.org Tue Mar 13 23:02:12 2007 From: blm at woodheap.org (blm at woodheap.org) Date: Wed, 14 Mar 2007 17:02:12 +1100 Subject: [Melbourne-pm] Meeting update 14-Feb-2007 Message-ID: <20070314060211.GA2916@woodheap.org> G'day everyone, You and all of your friends, family and other interested people are invited to our meeting Date: Wednesday 14th February 2007 Time: 6:30pm Location: Editure (Usual place) Level 8, 14 Blackwood Street, North Melbourne Talks: 1. Installing Perl web applications with native packages Speaker: Philip Dick 2. An overview of testing modules available on CPAN Speaker: Kirrily Robert 3. Optimising Performance of Perl Objects Speaker: Leif Eriksen Regards, Ben Marsh Treasurer Melbourne Perl Mongers From steve at sabljak.org Tue Mar 13 23:10:05 2007 From: steve at sabljak.org (Steve Sabljak) Date: Wed, 14 Mar 2007 17:10:05 +1100 Subject: [Melbourne-pm] Meeting update 14-Feb-2007 In-Reply-To: <20070314060211.GA2916@woodheap.org> References: <20070314060211.GA2916@woodheap.org> Message-ID: <81c28d920703132310n42ec8cb2v8a289dea80b2d9d2@mail.gmail.com> They all sound really interesting. Unfortunately I won't be able to make it tonight. Will slides of the talks be made available? cheers, Steve Sabljak On 3/14/07, blm at woodheap.org wrote: > > G'day everyone, > > You and all of your friends, family and other interested people are invited to > our meeting > > Date: Wednesday 14th February 2007 > Time: 6:30pm > Location: Editure > (Usual place) > Level 8, 14 Blackwood Street, North Melbourne > > Talks: > > 1. Installing Perl web applications with native packages > Speaker: Philip Dick > > 2. An overview of testing modules available on CPAN > Speaker: Kirrily Robert > > 3. Optimising Performance of Perl Objects > Speaker: Leif Eriksen > > > Regards, > > Ben Marsh > Treasurer > Melbourne Perl Mongers > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm > From blm at woodheap.org Tue Mar 13 23:16:37 2007 From: blm at woodheap.org (blm at woodheap.org) Date: Wed, 14 Mar 2007 17:16:37 +1100 Subject: [Melbourne-pm] Amended: Meeting update 14-Feb-2007 In-Reply-To: <20070314060211.GA2916@woodheap.org> References: <20070314060211.GA2916@woodheap.org> Message-ID: <20070314061636.GB2916@woodheap.org> Actually, the speaker for the first talk is David Dick. Sorry. * blm at woodheap.org (blm at woodheap.org) wrote: > > G'day everyone, > > You and all of your friends, family and other interested people are invited to > our meeting > > Date: Wednesday 14th February 2007 > Time: 6:30pm > Location: Editure > (Usual place) > Level 8, 14 Blackwood Street, North Melbourne > > Talks: > > 1. Installing Perl web applications with native packages > Speaker: David Dick > > 2. An overview of testing modules available on CPAN > Speaker: Kirrily Robert > > 3. Optimising Performance of Perl Objects > Speaker: Leif Eriksen > > > Regards, > > Ben Marsh > Treasurer > Melbourne Perl Mongers > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm From rick at measham.id.au Tue Mar 13 23:43:17 2007 From: rick at measham.id.au (Rick Measham) Date: Wed, 14 Mar 2007 17:43:17 +1100 Subject: [Melbourne-pm] Amended: Meeting update 14-Feb-2007 In-Reply-To: <20070314061636.GB2916@woodheap.org> References: <20070314060211.GA2916@woodheap.org> <20070314061636.GB2916@woodheap.org> Message-ID: <45F79985.80106@measham.id.au> blm at woodheap.org wrote: > Actually, the speaker for the first talk is David Dick. Sorry. No offense David, but I was kinda looking forward to hearing Philip K Dick talk about perl ... Cheers! Rick Measham (who won't be there .. sorry) From leif.eriksen at hpa.com.au Wed Mar 14 17:34:45 2007 From: leif.eriksen at hpa.com.au (leif.eriksen at hpa.com.au) Date: Thu, 15 Mar 2007 11:34:45 +1100 Subject: [Melbourne-pm] March Meeting Notes up Message-ID: <6462CBB658614845A7702E379880769801C317FC@exhnat2.nsw.hpa> http://perl.net.au/wiki/Melbourne_Perl_Mongers/Meeting_History_2007 Please add, correct and expand!!! L ********************************************************************** IMPORTANT The contents of this e-mail and its attachments are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you received this e-mail in error, please notify the HPA Postmaster, postmaster at hpa.com.au, then delete the e-mail. This footnote also confirms that this e-mail message has been swept for the presence of computer viruses by Ironport. Before opening or using any attachments, check them for viruses and defects. Our liability is limited to resupplying any affected attachments. HPA collects personal information to provide and market our services. For more information about use, disclosure and access see our Privacy Policy at www.hpa.com.au ********************************************************************** -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/melbourne-pm/attachments/20070315/acb07b03/attachment.html From bonobo at bigpond.net.au Sun Mar 18 23:56:47 2007 From: bonobo at bigpond.net.au (Alexis Hazell) Date: Mon, 19 Mar 2007 17:56:47 +1100 Subject: [Melbourne-pm] Untainting locale-based data? Message-ID: <200703191756.48242.bonobo@bigpond.net.au> Hi all, i'm working on a Web app in which the supplied data (to wit, people's names) might include Latin 1 supplement characters. So i'm wanting to use taint checking, given the untrusted data source; but making use of the ISO-8859-1 locale, to enable \w+ to match Latin 1 supplement characters, will mean that the data remains tainted even after being filtered through a regexp, due to Perl's view of the untrustworthiness of locales. How, then, can i untaint such data? Any help would be much appreciated! Alexis. From jarich at perltraining.com.au Mon Mar 19 03:55:49 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Mon, 19 Mar 2007 21:55:49 +1100 Subject: [Melbourne-pm] Untainting locale-based data? In-Reply-To: <200703191756.48242.bonobo@bigpond.net.au> References: <200703191756.48242.bonobo@bigpond.net.au> Message-ID: <45FE6C35.6040900@perltraining.com.au> Alexis Hazell wrote: > Hi all, > > i'm working on a Web app in which the supplied data (to wit, people's names) > might include Latin 1 supplement characters. So i'm wanting to use taint > checking, given the untrusted data source; but making use of the ISO-8859-1 > locale, to enable \w+ to match Latin 1 supplement characters, will mean that > the data remains tainted even after being filtered through a regexp, due to > Perl's view of the untrustworthiness of locales. How, then, can i untaint > such data? Taint's restriction is that data from outside your program cannot be used to affect other things outside your program (at least not unintentionally). Unfortunately, locales come from outside your program and it's considered possible for a user to edit them before your program runs. If a user then suggests that certain punctuation characters are included in the definition of "word characters" they might use your extra-privileged program to do naughty things. For example the following code: # only accept filenames containing word characters and .s ($filename) = ($filename =~ m/^([\w.]+)$/); if($filename) { unlink("/tmp/$filename") or die $!; } is probably safe under taint and no locale, even if run under suidperl. But if you use a locale the user can edit and they increase \w so that it allows pretty much anything: \w = [A-Za-z./;!@#$%^&*()+=-] then suddenly that previous code isn't so safe. The only way I know of solving this is to avoid using \w, \W, \s and \S in your code. This probably means that you'll have to spell out your character classes with the supplement characters. You can also _hope_ that your locale is safe, and do the following: if(my ($name) = ($tainted =~ m/^(\w)+/)) { # $name is still tainted because of locale, force it otherwise ($name) = ($name =~ m/^(.*)/); # $name is no longer tainted } which might be an acceptable solution. I don't believe that there are any other alternatives. All the best, Jacinta From rob at cataclysm.cx Mon Mar 19 21:17:56 2007 From: rob at cataclysm.cx (Robert Norris) Date: Tue, 20 Mar 2007 15:17:56 +1100 Subject: [Melbourne-pm] Position at Monash for Perl programmer/sysadmin Message-ID: <20070320041756.GA8213@plastic.home> We're hiring. Might be a good one for a savvy recent graduate. Rob. Registration and Authentication Services Administrator/Developer Identity and Messaging Services Information Technology Services You will join a focused team providing identity management (registration and authentication) services to the university, including services such as computer account creation and management, central LDAP directory services, computer systems integration and digital certificate services. Applicants should have strong programming experience in Perl, PHP or C, and be familiar working in a Unix environment. Please address the key selection criteria located in the position description when applying. Salary range: $57,379-$62,934 pa HEW Level 7 plus generous superannuation Duration: Three-year appointment Location: Clayton campus Contact: Mr. Leon Troeth on 9905 1025 or email leon.troeth at its.monash.edu.au. Ref No: G077621 Applications close: Friday, 30 March 2007 Applications: By email to the above contact http://sssd.adm.monash.edu.au/employ/job.asp?refnumber=G077621 From jarich at perltraining.com.au Tue Mar 20 05:05:26 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Tue, 20 Mar 2007 23:05:26 +1100 Subject: [Melbourne-pm] Perl tip ideas Message-ID: <45FFCE06.30508@perltraining.com.au> G'day everyone, Perl Training Australia has been writing Perl Tips on an infrequent basis for some time now. You can find many of these at: http://www.perltraining.com.au/tips/ What I'm asking of you is what kind of tips you'd like to see in the future. Suggestions can be specific, or vague. You can say that you'd like to see coverage of a certain module, or suggestions for solving a kind of problem you run into often, or are running into now. If you ever wanted to learn more about some aspect of Perl, now might be your opportunity. If you post these ideas to this list, you may even get someone volunteering to give a talk on one of them! Thanks in advance. All the best, Jacinta From shlomif at iglu.org.il Tue Mar 20 10:37:12 2007 From: shlomif at iglu.org.il (Shlomi Fish) Date: Tue, 20 Mar 2007 19:37:12 +0200 Subject: [Melbourne-pm] Perl tip ideas In-Reply-To: <45FFCE06.30508@perltraining.com.au> References: <45FFCE06.30508@perltraining.com.au> Message-ID: <200703201937.13218.shlomif@iglu.org.il> On Tuesday 20 March 2007, Jacinta Richardson wrote: > G'day everyone, > > Perl Training Australia has been writing Perl Tips on an infrequent basis > for some time now. You can find many of these at: > > http://www.perltraining.com.au/tips/ > > What I'm asking of you is what kind of tips you'd like to see in the > future. Suggestions can be specific, or vague. You can say that you'd like > to see coverage of a certain module, or suggestions for solving a kind of > problem you run into often, or are running into now. If you ever wanted to > learn more about some aspect of Perl, now might be your opportunity. > > If you post these ideas to this list, you may even get someone volunteering > to give a talk on one of them! > > Thanks in advance. > Off the top of my head, I have the following tips: 1. Displaying the test results in color - using Test::Run, not some Test::Harness/Test::Harness::Straps hackery. See: http://freshmeat.net/screenshots/63811/68853/ For a screenshot. It will basically be a rehash of: http://search.cpan.org/dist/Task-Test-Run-AllPlugins/lib/Task/Test/Run/AllPlugins.pm but possibly with some information on how to customise the colours to your liking (which is possible with setting environment variables). I can also cover integrating it into the build system (i.e: being able to run "{./Build,make} {runtest,distruntest}" and get them processed by Test::Run.). Caveat Emptor: I'm the main Test::Run developer. 2. How to generate ctags file for a hieararchy of Perl modules. I've ripped and tweaked a "ctags" snippet I found in the Test::Harness Makefile.PL, and can write a small tip about it. ----------------- I'd like my tips to be Public Domain (under the Creative Commons deed), and that they'll include attribution and a link to my homesite. But this is negotiatble. Do I get anything in return for writing a tip besides some fame and a feeling of gratification? Even a T-shirt would be nice, and that's what one gets for writing a Freshmeat.net editorial. Regards, Shlomi Fish --------------------------------------------------------------------- Shlomi Fish shlomif at iglu.org.il Homepage: http://www.shlomifish.org/ Chuck Norris wrote a complete Perl 6 implementation in a day but then destroyed all evidence with his bare hands, so no one will know his secrets. From rick at measham.id.au Tue Mar 20 13:25:25 2007 From: rick at measham.id.au (Rick Measham) Date: Wed, 21 Mar 2007 07:25:25 +1100 Subject: [Melbourne-pm] Perl tip ideas In-Reply-To: <200703201937.13218.shlomif@iglu.org.il> References: <45FFCE06.30508@perltraining.com.au> <200703201937.13218.shlomif@iglu.org.il> Message-ID: <46004335.9060301@measham.id.au> Shlomi Fish wrote: > I'd like my tips to be Public Domain (under the Creative Commons deed), and > that they'll include attribution and a link to my homesite. That sounds more like the 'by' or 'Attribution' licence: http://creativecommons.org/licenses/by/3.0/ By using the Public Domain Deed you relinquish the right to attribution. Cheers! Rick Measham From jarich at perltraining.com.au Tue Mar 20 17:25:46 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Wed, 21 Mar 2007 11:25:46 +1100 Subject: [Melbourne-pm] Perl tip ideas In-Reply-To: <200703201937.13218.shlomif@iglu.org.il> References: <45FFCE06.30508@perltraining.com.au> <200703201937.13218.shlomif@iglu.org.il> Message-ID: <46007B8A.4070206@perltraining.com.au> Shlomi Fish wrote: > I'd like my tips to be Public Domain (under the Creative Commons deed), and > that they'll include attribution and a link to my homesite. But this is > negotiatble. Do I get anything in return for writing a tip besides some fame > and a feeling of gratification? Even a T-shirt would be nice, and that's what > one gets for writing a Freshmeat.net editorial. I'm not asking for people to write tips for us, but rather to suggest ideas of what they'd like to see us write tips about. I'll contact you further about your ideas off-list however. J From shlomif at iglu.org.il Tue Mar 20 21:26:05 2007 From: shlomif at iglu.org.il (Shlomi Fish) Date: Wed, 21 Mar 2007 06:26:05 +0200 Subject: [Melbourne-pm] Perl tip ideas In-Reply-To: <46007B8A.4070206@perltraining.com.au> References: <45FFCE06.30508@perltraining.com.au> <200703201937.13218.shlomif@iglu.org.il> <46007B8A.4070206@perltraining.com.au> Message-ID: <200703210626.07183.shlomif@iglu.org.il> Hi! On Wednesday 21 March 2007, Jacinta Richardson wrote: > Shlomi Fish wrote: > > I'd like my tips to be Public Domain (under the Creative Commons deed), > > and that they'll include attribution and a link to my homesite. But this > > is negotiatble. Do I get anything in return for writing a tip besides > > some fame and a feeling of gratification? Even a T-shirt would be nice, > > and that's what one gets for writing a Freshmeat.net editorial. > > I'm not asking for people to write tips for us, but rather to suggest ideas > of what they'd like to see us write tips about. > Ah. Sorry for misunderstanding. > I'll contact you further about your ideas off-list however. > Sure. No problem. Please CC your message to shlomif at gmail.com. Regards, Shlomi Fish --------------------------------------------------------------------- Shlomi Fish shlomif at iglu.org.il Homepage: http://www.shlomifish.org/ Chuck Norris wrote a complete Perl 6 implementation in a day but then destroyed all evidence with his bare hands, so no one will know his secrets. From shlomif at iglu.org.il Tue Mar 20 21:30:14 2007 From: shlomif at iglu.org.il (Shlomi Fish) Date: Wed, 21 Mar 2007 06:30:14 +0200 Subject: [Melbourne-pm] Perl tip ideas In-Reply-To: <46004335.9060301@measham.id.au> References: <45FFCE06.30508@perltraining.com.au> <200703201937.13218.shlomif@iglu.org.il> <46004335.9060301@measham.id.au> Message-ID: <200703210630.15564.shlomif@iglu.org.il> Hi Mr. Measham! (and List) On Tuesday 20 March 2007, Rick Measham wrote: > Shlomi Fish wrote: > > I'd like my tips to be Public Domain (under the Creative Commons deed), > > and that they'll include attribution and a link to my homesite. > > That sounds more like the 'by' or 'Attribution' licence: > http://creativecommons.org/licenses/by/3.0/ > > By using the Public Domain Deed you relinquish the right to attribution. > You misunderstood me. While the text of the tip itself would be PD and not require any attribution when re-distributed or modified, I'd like the original version as published on the Perl Training Australia site to include an attribution, so people who read it *there* will learn about me and my site. But as it seems from Ms. Richardson's letter, I'm not the one who's going to write it after all, but may possibly be credited with the idea and with giving technical support in writing the tips. Regards, Shlomi Fish --------------------------------------------------------------------- Shlomi Fish shlomif at iglu.org.il Homepage: http://www.shlomifish.org/ Chuck Norris wrote a complete Perl 6 implementation in a day but then destroyed all evidence with his bare hands, so no one will know his secrets. From daniel at rimspace.net Thu Mar 22 21:09:01 2007 From: daniel at rimspace.net (Daniel Pittman) Date: Fri, 23 Mar 2007 15:09:01 +1100 Subject: [Melbourne-pm] Perl and SIP/RTP application coding Message-ID: <87bqikfvoi.fsf@rimspace.net> G'day. Has anyone out there got experience with Perl and SIP/RTP IP telephony applications -- specifically, constructing a voice application with Perl. In my particular case I am looking at building a relatively simple voicemail application with Perl, if possible, for the "fun" of learning more about the insides of VoIP. The Net::SIP and Net::oRTP CPAN modules look reasonably capable of handling this, but if anyone has specific comments or suggests I am very happy to hear them.[1] Regards, Daniel Footnotes: [1] Except for "just use Asterisk" since the point is to learn the protocol, not deliver a commercial product. :) -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From melbourne-pm at mjch.net Wed Mar 28 23:15:34 2007 From: melbourne-pm at mjch.net (Malcolm Herbert) Date: Thu, 29 Mar 2007 16:15:34 +1000 Subject: [Melbourne-pm] emulating ctelnet? Message-ID: <20070329061534.GM1372@mjch.net> OK, Sun have an X11-based tool for managing hosts in a cluster called ctelnet. This opens a number of normal-looking telnet windows and one smaller text-input window. When each of the individual telnet windows has focus, keyboard interaction happens with that window only. When the text-input window is in use, the keyboard output goes to all of the telnet windows at once. I'd like to do something similar, but with any command rather than just telnet and without needing X11 - I'd prefer to run it under screen, if possible. I seem to remember talking to someone about this problem before and being pointed at a Perl package which provided something similar. Does anyone know what I'm talking about? I ask here because of Paul's intriguing use of the perl module to simulate typing, which I'm guessing would be at least part of the solution I'm after if I have to build it myself ... Annoyingly this feature sounds like something that would be perfect to add to screen as it's probably 95% of the way to supporting it already but i'm told that even the merest look at the code for screen will cause blindness, so I haven't done that yet ... :) Regards, Malcolm -- Malcolm Herbert This brain intentionally mjch at mjch.net left blank