Author: dom Date: 2007-07-02 14:36:29 +0100 (Mon, 02 Jul 2007) New Revision: 1102
Modified: utils/get-guide-versions Log: Sync with guides on http://openguides.org.
Modified: utils/get-guide-versions =================================================================== --- utils/get-guide-versions 2007-07-01 19:05:58 UTC (rev 1101) +++ utils/get-guide-versions 2007-07-02 13:36:29 UTC (rev 1102) @@ -10,12 +10,12 @@ my $out = "versions.html";
my %guides = ( Birmingham => 'http://birmingham.openguides.org/', - Chester => 'http://chesterguide.org.uk/', Cotswolds => 'http://cotswolds.openguides.org/', Glasgow => 'http://glasgow.openguides.org/', Lancaster => 'http://lancaster.openguides.org/', London => 'http://london.openguides.org/', Manchester => 'http://manchester.openguides.org/', + 'Randomness (London)' => 'http://london.randomness.org.uk/', 'Milton Keynes' => 'http://miltonkeynes.openguides.org/', Norwich => 'http://norwich.openguides.org/', Nottingham => 'http://nottingham.openguides.org/', @@ -23,11 +23,12 @@ 'Vegan Oxford' => 'http://the.earth.li/~kake/cgi-bin/openguides/vegan-oxford.cgi', Southampton => 'http://southampton.openguides.org/', Vienna => 'http://vienna.openguides.org/', + 'Montreal, QC' => 'http://montreal.openguides.org/', 'Victoria, BC' => 'http://victoria.openguides.org/', 'Boston, MA' => 'http://boston.openguides.org/', 'Saint Paul, MN' => 'http://saintpaul.openguides.org/', + 'New York' => 'http://newyork.openguides.org/', 'The Tourist Engineer' => 'http://engineer.openguides.org/', - "Earle's testing" => 'http://openguides.org/testing/' );
my $ua = LWP::UserAgent->new(agent => "OpenGuides get-guide-versions"); @@ -60,14 +61,14 @@ $response = $ua->get($guides{$guide}); if ($response->is_success) { my $content = $response->content; - if ($content =~ /version.(0.\d+)/s) { + if ($content =~ /version.(0.\d+(-\w+)?)/s) { print OUT $1; } else { print OUT "Not found"; } print OUT " (HTML)"; } else { - print "No methods worked"; + print OUT "No methods worked"; } print OUT "</td></tr>\n"; }