From jvromans at squirrel.nl Wed Jul 12 00:51:17 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Wed, 12 Jul 2006 09:51:17 +0200 (CEST) Subject: [Groningen-pm] Bijeenkomst Groningen Perl Mongers, donderdag 20 juli 2006 Message-ID: <20060712075117.E718BC777D@phoenix.squirrel.nl> De "Perl Mongers" zijn groepen van gebruikers van de programmeertool Perl. Er zijn er meer dan 300 wereldwijd, waarvan een tiental in Nederland. "Groningen.pm" richt zich op de Perl gebruikers in de noordelijke provinci?n. We organiseren informele bijeenkomsten waar Perl gebruikers kunnen samenkomen en informatie en gebruikservaringen met betrekking tot Perl kunnen uitwisselen. Deze bijeenkomsten worden als regel gehouden op elke derde donderdag van de maand. Zoals gebruikelijk voor dit soort bijeenkomsten is er ook hier gelegenheid tot CAcert certificering en het uitwisselen van PGP keys. De eerstvolgende bijeenkomst vindt plaats op donderdag 20 juli van 20:00 tot 22:30 uur bij Chatfone BV, St. Jansstraat 2D 9712 JN, in Groningen. Johan zal het derde deel van zijn serie praatjes over Perl houden. Dit keer over subroutines. Heb je zin deze bijeenkomst bij te wonen, laat dit dan even weten via onze mailing list, groningen-pm at pm.org. Zin in een gezellig etentje vooraf? Verzamelen rond 18:15 bij Wagamama op de Vismarkt. Laat dit ook even weten op de mailing list, dan weten we met z'n hoevelen we zijn. Bezoek ook onze web site, http://groningen.pm.org/ . ------------------------------------------------------------------------------ Johan Vromans jvromans at squirrel.nl Squirrel Consultancy Exloo, the Netherlands http://www.squirrel.nl http://johan.vromans.org PGP Key 2048/4783B14D KFP = 65 44 CA 66 B3 50 0B 34 CE 0E FB CA 2D 95 34 D0 ------------------------ "Arms are made for hugging" ------------------------- From helmo at initfour.nl Thu Jul 13 14:45:10 2006 From: helmo at initfour.nl (Herman van Rink) Date: Thu, 13 Jul 2006 23:45:10 +0200 Subject: [Groningen-pm] Bijeenkomst Groningen Perl Mongers, donderdag 20 juli 2006 In-Reply-To: <20060712075117.E718BC777D@phoenix.squirrel.nl> References: <20060712075117.E718BC777D@phoenix.squirrel.nl> Message-ID: <44B6BEE6.4030403@initfour.nl> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Johan Vromans wrote: > Heb je zin deze bijeenkomst bij te wonen, laat dit dan even weten via > onze mailing list, groningen-pm at pm.org. Zelf zal ik er wel zijn. Martin is waarschijnlijk nog op vakantie. Gerhard is naar mijn idee dan weer terug, dus die verwacht ik wel. Groeten, Herman -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) iD8DBQFEtr7lotIcHbEq9qYRAvK3AJ9bMC9muFPY6MwHgGf35c+cNCFHdACgjgAJ ldLAYSWliecb/GcXfK3b3vU= =G23q -----END PGP SIGNATURE----- From smunt at qux.nl Sat Jul 15 10:41:46 2006 From: smunt at qux.nl (Gerhard C. Muntingh) Date: Sat, 15 Jul 2006 19:41:46 +0200 (CEST) Subject: [Groningen-pm] Bijeenkomst Groningen Perl Mongers, donderdag 20 juli 2006 In-Reply-To: <44B6BEE6.4030403@initfour.nl> References: <20060712075117.E718BC777D@phoenix.squirrel.nl> <44B6BEE6.4030403@initfour.nl> Message-ID: <46694.82.73.34.94.1152985306.squirrel@www.initfour.nl> Hoi PM'ers, > Johan Vromans wrote: >> Heb je zin deze bijeenkomst bij te wonen, laat dit dan even weten via >> onze mailing list, groningen-pm at pm.org. > > Gerhard is naar mijn idee dan weer terug, dus die verwacht ik wel. Jep. I'll be there. Groeten, Gerhard. From jvromans at squirrel.nl Thu Jul 20 05:46:27 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Thu, 20 Jul 2006 14:46:27 +0200 Subject: [Groningen-pm] Hoe komt Perl in Groningen? Message-ID: Deze kreeg ik per ongeluk uit een Google search: http://plannerint.b-rail.be/bin/query.exe/n?S=Perl!&Z=Groningen!&start=1&L=nsnl -- Johan From jvromans at squirrel.nl Thu Jul 20 03:12:37 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Thu, 20 Jul 2006 12:12:37 +0200 Subject: [Groningen-pm] Herinnering: Bijeenkomst Groningen Perl Mongers, vanavond! In-Reply-To: <20060712075117.E718BC777D@phoenix.squirrel.nl> (Johan Vromans's message of "Wed, 12 Jul 2006 09:51:17 +0200 (CEST)") References: <20060712075117.E718BC777D@phoenix.squirrel.nl> Message-ID: Johan Vromans writes: > De eerstvolgende bijeenkomst vindt plaats op donderdag 20 juli van 20:00 tot > 22:30 uur bij Chatfone BV, St. Jansstraat 2D 9712 JN, in Groningen. > > Heb je zin deze bijeenkomst bij te wonen, laat dit dan even weten via > onze mailing list, groningen-pm at pm.org. > > Zin in een gezellig etentje vooraf? Verzamelen rond 18:15 bij Wagamama > op de Vismarkt. Laat dit ook even weten op de mailing list, dan weten > we met z'n hoevelen we zijn. > > Bezoek ook onze web site, http://groningen.pm.org/ . -- Johan From pietplomp at xs4all.nl Thu Jul 20 04:17:03 2006 From: pietplomp at xs4all.nl (Piet Plomp) Date: Thu, 20 Jul 2006 13:17:03 +0200 (CEST) Subject: [Groningen-pm] Bijeenkomst Groningen Perl Mongers, donderdag 20 juli 2006 Message-ID: <16272.145.33.222.253.1153394223.squirrel@webmail.xs4all.nl> Hoi Perlers, >Heb je zin deze bijeenkomst bij te wonen, laat dit dan even weten via >onze mailing list, groningen-pm at pm.org. Ja ik zal er zijn, onweersbuien die me verhinderen erheen te fietsen voorbehouden. Ik kom ook mee eten. Gea komt ook mee eten, maar is niet bij de bijeenkomst, Groetjes en tot vanavond, Piet From smunt at qux.nl Fri Jul 21 01:58:25 2006 From: smunt at qux.nl (Gerhard C. Muntingh) Date: Fri, 21 Jul 2006 10:58:25 +0200 (CEST) Subject: [Groningen-pm] Nummerbord Message-ID: <59887.82.73.178.21.1153472305.squirrel@www.initfour.nl> PM'ers, Gezien in vinkhuizen, het nummerbord: PF-RL-06 Jammer dat de F geen E is, maar de E wordt volgens mij ook helemaal niet gebruikt op nummerborden in Nederland. Ik zal er binnenkort even een foto van maken en neerzetten op: http://qux.nl/pfrl06.png Deze URL werkt nu dus nog niet. Groeten, Gerhard. From jvromans at squirrel.nl Fri Jul 21 09:13:15 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Fri, 21 Jul 2006 18:13:15 +0200 Subject: [Groningen-pm] Het weer in Eelde Message-ID: <17600.64795.494473.658821@phoenix.squirrel.nl> http://vromans.org/cgi-bin/weer.cgi?double=1&type=2 Voor de liefhebbers: #!/usr/bin/perl use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use Time::Local qw(timelocal timelocal_nocheck); my @months = qw(januari februari maart april mei juni juli augustus september oktober november december); my @days = qw(zondag maandag dinsdag woensdag donderdag vrijdag zaterdag); my $date = param("date"); my $double = param("double"); my $nocache = param("nocache"); my $type = param("type") || 3; my $prev = param("prev"); my $loc = "Eelde"; my $cache_dir = "/home/jv/cgi-bin/cache/%s"; my $cache_url = "cache/%s"; my @current = localtime(time); $current[4] += 1; $current[5] += 1900; my $today = sprintf("%4d%02d%02d", @current[5,4,3]); unless ( $date && $date =~ /^\d{8}$/ ) { $date = $today; } $date = $today if $date gt $today; $date = $today if $date lt "20050101"; my ($y, $m, $d) = $date =~ /(\d\d\d\d)(\d\d)(\d\d)/; $m += 0; $d += 0; my $url = "http://www.wunderground.com/cgi-bin/histGraphAll?year=%d&month=%d&day=%d&ID=EHGG&type=$type"; my ($y1, $m1, $d1); if ( $prev ) { ($y, $m, $d) = calc_prev($y, $m, $d); $date = sprintf("%4d%02d%02d", $y, $m, $d); } if ( $double ) { ($y1, $m1, $d1) = calc_prev($y, $m, $d); } ################ Main ################ print(header, start_html("Weeroverzicht $loc"), "\n", " \n"); print(" \n\n"); print(" \n") if $double; print(" \n", " \n", " \n"); print(" \n") if $double; print(" \n", " \n", "
", "Weeroverzicht
$loc, ", dpdate($y1,$m1,$d1), "$loc, ", dpdate($y,$m,$d), "
\n"); print ("
\n", start_form, "\n", "
", "Datum: ", textfield(-name => 'date', -default => $date, -value => $date, -size => 8, -maxlength => 8, -override => 1, ), "", checkbox(-name=>'double', -checked=>0, -value=>1, -label=>'Vorige ook'), "", radio_group(-name => 'type', -values => [1,2,3], -default => 3, -labels => { 1 => "Maand", 2 => "Week", 3 => "Dag", }), "", submit(-name => "submit", -value => "Toon overzicht"), "", submit(-name => "prev", -value => "Toon vorige"), "
\n", end_form, "\n"); print end_html; ################ Subroutines ################ sub calc_prev { my ($y, $m, $d) = @_; my $time; if ( $type == 1 ) { $time = timelocal_nocheck(0, 0, 0, $d, $m-2, $y-1900); } elsif ( $type == 2 ) { $time = timelocal_nocheck(0, 0, 0, $d-7, $m-1, $y-1900); } else { $time = timelocal_nocheck(0, 0, 0, $d-1, $m-1, $y-1900); } my @tm = localtime($time); (1900 +$tm[5], 1+$tm[4], $tm[3]); } sub dpdate { my ($y, $m, $d) = @_; my $time = timelocal(0, 0, 0, $d, $m-1, $y-1900); my @tm = localtime($time); if ( $type == 1 ) { join(" ", $months[$tm[4]], 1900+$tm[5]); } elsif ( $type == 2 ) { $time = timelocal_nocheck(0, 0, 0, $d-$tm[6], $m-1, $y-1900); @tm = localtime($time); join(" ", "week van", $tm[3], $months[$tm[4]], 1900+$tm[5]); } else { join(" ", $days[$tm[6]], $tm[3], $months[$tm[4]], 1900+$tm[5]); } } use LWP::Simple qw(get); sub dpurl { my ($y, $m, $d) = @_; my $nocache = $nocache; if ( $type == 1 ) { # Monthly overview. Get first of month date. my $time = timelocal(0, 0, 0, 1, $m-1, $y-1900); my @tm = localtime($time); $tm[4] += 1; $tm[5] += 1900; ($y, $m, $d) = @tm[5,4,3]; # Bypass cache if current month. if ( $m == $current[4] && $y == $current[5] ) { $nocache++; } } elsif ( $type == 2 ) { # Weekly overview. Get first day of week. my $time = timelocal(0, 0, 0, $d, $m-1, $y-1900); my @tm = localtime($time); $time = timelocal_nocheck(0, 0, 0, $d-$tm[6], $m-1, $y-1900); @tm = localtime($time); $tm[4] += 1; $tm[5] += 1900; ($y, $m, $d) = @tm[5,4,3]; # Bypass cache if it is current week. $time = timelocal_nocheck(0, 0, 0, $current[3]-$current[6], $current[4]-1, $current[5]-1900); @tm = localtime($time); $tm[4] += 1; $tm[5] += 1900; if ( $d == $tm[3] && $m == $tm[4] && $y == $tm[5] ) { $nocache++; } } elsif ( $d == $current[3] && $m == $current[4] && $y == $current[5] ) { $nocache++; } if ( $nocache ) { return sprintf($url, $y, $m ,$d); } my $date = sprintf("%4d%02d%02d", $y, $m, $d); my $img = "EHGG-$date-$type.gif"; my $curl = sprintf($cache_dir, $img); unless ( -s $curl ) { unlink($curl); my $doc = get(sprintf($url, $y, $m, $d)); open(my $fh, ">", $curl) or die("$curl: $!\n"); binmode($fh); print {$fh} ($doc) or die("$curl: $!\n"); close($fh) or die("$curl: $!\n"); } return sprintf($cache_url, $img); } From smunt at qux.nl Sat Jul 22 01:14:39 2006 From: smunt at qux.nl (Gerhard C. Muntingh) Date: Sat, 22 Jul 2006 10:14:39 +0200 (CEST) Subject: [Groningen-pm] Nummerbord In-Reply-To: <59887.82.73.178.21.1153472305.squirrel@www.initfour.nl> References: <59887.82.73.178.21.1153472305.squirrel@www.initfour.nl> Message-ID: <37062.82.73.34.94.1153556079.squirrel@www.initfour.nl> > Gezien in vinkhuizen, het nummerbord: PF-RL-06 [...] > Ik zal er binnenkort even een foto van maken en neerzetten op: > http://qux.nl/pfrl06.png > Deze URL werkt nu dus nog niet. Maar nu wel! Groeten, Gerhard. From jvromans at squirrel.nl Sat Jul 22 03:40:22 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Sat, 22 Jul 2006 12:40:22 +0200 Subject: [Groningen-pm] Nummerbord In-Reply-To: <59887.82.73.178.21.1153472305.squirrel@www.initfour.nl> (Gerhard C. Muntingh's message of "Fri, 21 Jul 2006 10:58:25 +0200 (CEST)") References: <59887.82.73.178.21.1153472305.squirrel@www.initfour.nl> Message-ID: "Gerhard C. Muntingh" writes: > http://qux.nl/pfrl06.png http://www.squirrel.nl/pub/xfer/perl06.png :-) -- Johan From jvromans at squirrel.nl Mon Jul 24 13:31:51 2006 From: jvromans at squirrel.nl (Johan Vromans) Date: Mon, 24 Jul 2006 22:31:51 +0200 (CEST) Subject: [Groningen-pm] Bijeenkomst Amsterdam Perl Mongers, dinsdag 1 augustus 2006 Message-ID: <20060724203151.C0049C77AE@phoenix.squirrel.nl> [English version follows the dutch text] Amsterdam.pm staat voor de "Amsterdamse Perl Mongers", een groep van gebruikers van Perl. In tegenstelling tot wat de naam suggereert is Amsterdam.pm niet beperkt tot alleen Amsterdam, maar functioneert ook als de algemene Nederlandse gebruikersgroep. Iedereen die gelegenheid heeft is welkom, ook al bent u al bij Alphen.pm, Nijmegen.pm, Rotterdam.pm, Echt.pm, Exloo.pm, Groningen.pm of Wageningen.pm op bezoek geweest. Amsterdam.pm organiseert informele bijeenkomsten waar Perl gebruikers kunnen samenkomen en informatie en gebruikservaringen met betrekking tot Perl kunnen uitwisselen. De bijeenkomsten vinden normaliter plaats op elke eerste dinsdag van de maand. Zoals gebruikelijk voor dit soort bijeenkomsten is er ook hier gelegenheid tot CAcert certificering en het uitwisselen van PGP keys. De voertaal binnen Amsterdam.pm is in principe Nederlands, maar indien nodig zal Engels worden gebruikt, b.v. om te communiceren met niet-Nederlandssprekende aanwezigen. De eerstvolgende bijeenkomst vindt plaats op dinsdag 1 augustus van 20:00 tot 22:30 uur op het kantoor van XS4All, Eekholt 42, Diemen. Voor een routebeschrijving, zie http://www.xs4all.nl/contact/routebeschrijving.html Liefhebbers van een etentje vooraf kunnen tussen 17:45 en 18:15 verzamelen. Om 18:15 (?cht om 18:15!) gaan we naar restaurant Ling Hong in Diemen (zie b.v. http://restaurant.diemen.klup.nl/) op om een hapje te eten. Bezoek onze Web site http://amsterdam.pm.org voor meer details. [English version] Amsterdam.pm stands for the Amsterdam Perl Mongers. We're basically a Perl user group. Despite its name, it is not local to the Amsterdam environment, but it welcomes Perl mongers from all over the Netherlands. Amsterdam.pm organises informal meetings where Perl users can meet, and exchange information and experiences with regard to using Perl. The meetings are normally held every first Tuesday of the month. As conventional for these kind of meetings, there is also an opportunity to get CAcert certified, and to exchange PGP keys. Although the preferred language for communication is Dutch, English will be spoken if necessary. Our next meeting is Tuesday, August 1, from 20:00 till 22:30 at the office of XS4All, Eekholt 42, Diemen. See http://www.xs4all.nl/contact/routebeschrijving.html for directions to get there. Should you want to join some of us for dinner, please gather between 17:45 and 18:15. At 18:15 sharp we'll leave for restaurant Ling Hong in Diemen (http://www.linghong.tk) for dinner. See http://amsterdam.pm.org for more details. ------------------------------------------------------------------------------ Johan Vromans jvromans at squirrel.nl Squirrel Consultancy Exloo, the Netherlands http://www.squirrel.nl http://johan.vromans.org PGP Key 2048/4783B14D KFP = 65 44 CA 66 B3 50 0B 34 CE 0E FB CA 2D 95 34 D0 ------------------------ "Arms are made for hugging" -------------------------