- Timestamp:
- 07/02/07 14:36:29 (19 months ago)
- Files:
-
- 1 modified
-
utils/get-guide-versions (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
utils/get-guide-versions
r879 r1102 11 11 12 12 my %guides = ( Birmingham => 'http://birmingham.openguides.org/', 13 Chester => 'http://chesterguide.org.uk/',14 13 Cotswolds => 'http://cotswolds.openguides.org/', 15 14 Glasgow => 'http://glasgow.openguides.org/', … … 17 16 London => 'http://london.openguides.org/', 18 17 Manchester => 'http://manchester.openguides.org/', 18 'Randomness (London)' => 'http://london.randomness.org.uk/', 19 19 'Milton Keynes' => 'http://miltonkeynes.openguides.org/', 20 20 Norwich => 'http://norwich.openguides.org/', … … 24 24 Southampton => 'http://southampton.openguides.org/', 25 25 Vienna => 'http://vienna.openguides.org/', 26 'Montreal, QC' => 'http://montreal.openguides.org/', 26 27 'Victoria, BC' => 'http://victoria.openguides.org/', 27 28 'Boston, MA' => 'http://boston.openguides.org/', 28 29 'Saint Paul, MN' => 'http://saintpaul.openguides.org/', 30 'New York' => 'http://newyork.openguides.org/', 29 31 'The Tourist Engineer' => 'http://engineer.openguides.org/', 30 "Earle's testing" => 'http://openguides.org/testing/'31 32 ); 32 33 … … 61 62 if ($response->is_success) { 62 63 my $content = $response->content; 63 if ($content =~ /version.(0\.\d+ )/s) {64 if ($content =~ /version.(0\.\d+(-\w+)?)/s) { 64 65 print OUT $1; 65 66 } else { … … 68 69 print OUT " (HTML)"; 69 70 } else { 70 print "No methods worked";71 print OUT "No methods worked"; 71 72 } 72 73 print OUT "</td></tr>\n";
