*** empty log message ***

eserte · Jan 11, 2006 · 7d078fe · 7d078fe
1 parent 6689763
commit 7d078fe
Show file tree

Hide file tree

Showing 6 changed files with 59 additions and 5 deletions.
diff --git a/MANIFEST.addtocvs b/MANIFEST.addtocvs
@@ -353,6 +353,7 @@ miscsrc/newstreetform_data.pl
 miscsrc/gpsman2gpx
 data/.cvsignore
 miscsrc/LuiseBerlin.pm
+miscsrc/AltBerlin.pm
 miscsrc/yaml2bbd
 data/kneipen.yml
 miscsrc/parse_mapbender_plz.pl

diff --git a/MANIFEST.withcvs b/MANIFEST.withcvs
@@ -1285,6 +1285,7 @@ miscsrc/newstreetform_data.pl
 miscsrc/gpsman2gpx
 data/.cvsignore
 miscsrc/LuiseBerlin.pm
+miscsrc/AltBerlin.pm
 miscsrc/yaml2bbd
 data/kneipen.yml
 miscsrc/parse_mapbender_plz.pl

diff --git a/data/temp_blockings/bbbike-temp-blockings-optimized.pl b/data/temp_blockings/bbbike-temp-blockings-optimized.pl
@@ -112,8 +112,8 @@
        undef,
        undef,
        {
-         'until' => 1146434400,
-         'text' => 'B 001 Potsdamer Str. OD Groß Kreutz Kanal- und Straßenbau Vollsperrung 27.04.2005-30.04.2006 ',
+         'until' => 1143756000,
+         'text' => 'B 001 Potsdamer Str. OD Groß Kreutz Kanal- und Straßenbau; Vollsperrung 27.04.2005-30.03.2006 ',
          'from' => 1114466400,
          'data' => 'userdel	q4	-28793,-1618 -31991,-1024
 ',

diff --git a/data/temp_blockings/bbbike-temp-blockings.pl b/data/temp_blockings/bbbike-temp-blockings.pl
@@ -1840,8 +1840,8 @@
 EOF
      },
      { from  => 1114466400, # 2005-04-26 00:00
-       until => 1146434400, # 2006-05-01 00:00
-       text  => 'B 001 Potsdamer Str. OD Groß Kreutz Kanal- und Straßenbau Vollsperrung 27.04.2005-30.04.2006 ',
+       until => 1143756000, # 2006-03-31 00:00
+       text  => 'B 001 Potsdamer Str. OD Groß Kreutz Kanal- und Straßenbau; Vollsperrung 27.04.2005-30.03.2006 ',
        type  => 'handicap',
        data  => <<EOF,
 userdel	q4	-28793,-1618 -31991,-1024

diff --git a/miscsrc/AltBerlin.pm b/miscsrc/AltBerlin.pm
@@ -0,0 +1,51 @@
+# -*- perl -*-
+
+#
+# $Id: AltBerlin.pm,v 1.1 2006/01/11 21:54:58 eserte Exp $
+# Author: Slaven Rezic
+#
+# Copyright (C) 2006 Slaven Rezic. All rights reserved.
+# This package is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Mail: slaven@rezic.de
+# WWW:  http://www.rezic.de/eserte/
+#
+
+package AltBerlin;
+
+use BBBikePlugin;
+push @ISA, 'BBBikePlugin';
+
+use strict;
+use vars qw($VERSION);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
+
+sub register {
+    $main::info_plugins{__PACKAGE__ . ""} =
+	{ name => "Alt-Berlin (1946)",
+	  callback => sub { altberlin(@_) },
+	};
+}
+
+sub altberlin {
+    my(%args) = @_;
+
+    my $px = $args{px};
+    my $py = $args{py};
+
+    my $url = sprintf "http://www.alt-berlin.info/cgi/stp/lana.pl?nr=10&gr=5&nord=%f&ost=%f", $py, $px;
+    start_browser($url);
+}
+
+sub start_browser {
+    my($url) = @_;
+    main::status_message("Der WWW-Browser wird mit der URL $url gestartet.", "info");
+    WWWBrowser::start_browser($url);
+}
+
+1;
+
+__END__
+
+
diff --git a/miscsrc/vmzrobot.pl b/miscsrc/vmzrobot.pl
@@ -2,7 +2,7 @@
 # -*- perl -*-
 
 #
-# $Id: vmzrobot.pl,v 1.21 2005/12/10 23:50:10 eserte Exp $
+# $Id: vmzrobot.pl,v 1.22 2006/01/11 21:28:26 eserte Exp $
 # Author: Slaven Rezic
 #
 # Copyright (C) 2003,2004 Slaven Rezic. All rights reserved.
@@ -328,6 +328,7 @@ sub mark_irrelevant_entry {
 	    /( Fahrbahn\s+(teilweise\s+)?auf\s+\S+\s+$Fahrstreifen\s+verengt
 	     | $Fahrstreifen\s+gesperrt
 	     | Fahrbahnverengung
+	     | Fahrstreifenverschwenkung
 	     | Ampeln\s+ausgefallen
 	     | Ampeln\s+in\s+Betrieb
 	     | auf\s+$zahl\s+$Fahrstreifen\s+$reduziert