www/routino/customrouter.cgi

#!/usr/bin/perl
#
# Routino router custom link CGI
#
# Part of the Routino routing software.
#
# This file Copyright 2008-2011 Andrew M. Bishop
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

# Use the generic router script
require "router.pl";

# Use the perl CGI module
use CGI ':cgi';

# Create the query and get the parameters

$query=new CGI;

@rawparams=$query->param;

# Legal CGI parameters with regexp validity check

%legalparams=(
              "lon"             => "[-0-9.]+",
              "lat"             => "[-0-9.]+",
              "zoom"            => "[0-9]+",

              "lon[1-9]"        => "[-0-9.]+",
              "lat[1-9]"        => "[-0-9.]+",
              "transport"       => "[a-z]+",
              "highway-[a-z]+"  => "[0-9.]+",
              "speed-[a-z]+"    => "[0-9.]+",
              "property-[a-z]+" => "[0-9.]+",
              "oneway"          => "(1|0|true|false|on|off)",
              "turns"           => "(1|0|true|false|on|off)",
              "weight"          => "[0-9.]+",
              "height"          => "[0-9.]+",
              "width"           => "[0-9.]+",
              "length"          => "[0-9.]+",

              "language"        => "[-a-zA-Z]+"
             );

# Validate the CGI parameters, ignore invalid ones

foreach $key (@rawparams)
  {
   foreach $test (keys (%legalparams))
     {
      if($key =~ m%^$test$%)
        {
         $value=$query->param($key);

         if($value =~ m%^$legalparams{$test}$%)
           {
            $cgiparams{$key}=$value;
            last;
           }
        }
     }
  }

# Fill in the default parameters

%fullparams=FillInDefaults(%cgiparams);

# Open template file and output it

$lang=$cgiparams{'language'};

if( -f "router.html.$lang")
  {
   open(TEMPLATE,"<router.html.$lang");
  }
else
  {
   open(TEMPLATE,"<router.html");
  }

# Parse the template and fill in the parameters

print header('text/html');

while(<TEMPLATE>)
  {
   if(m%^<BODY.+>%)
     {
      s/'lat'/$cgiparams{'lat'}/   if(defined $cgiparams{'lat'});
      s/'lon'/$cgiparams{'lon'}/   if(defined $cgiparams{'lon'});
      s/'zoom'/$cgiparams{'zoom'}/ if(defined $cgiparams{'zoom'});
      print;
     }
   elsif(m%<input% && m%<!-- ([^ ]+) *-->%)
     {
      $key=$1;

      m%type="([a-z]+)"%;
      $type=$1;

      m%value="([a-z]+)"%;
      $value=$1;

      if($type eq "radio")
        {
         $checked="";
         $checked="checked" if($fullparams{$key} eq $value);

         s%><!-- .+? *-->% $checked>%;
        }
      elsif($type eq "checkbox")
        {
         $checked="";
         $checked="checked" if($fullparams{$key});

         s%><!-- .+? *-->% $checked>%;
        }
      elsif($type eq "text")
        {
         s%><!-- .+? *-->% value="$fullparams{$key}">%;
        }

      print;
     }
   else
     {
      print;
     }
  }

close(TEMPLATE);
1	#!/usr/bin/perl
2	#
3	# Routino router custom link CGI
4	#
5	# Part of the Routino routing software.
6	#
7	# This file Copyright 2008-2011 Andrew M. Bishop
8	#
9	# This program is free software: you can redistribute it and/or modify
10	# it under the terms of the GNU Affero General Public License as published by
11	# the Free Software Foundation, either version 3 of the License, or
12	# (at your option) any later version.
13	#
14	# This program is distributed in the hope that it will be useful,
15	# but WITHOUT ANY WARRANTY; without even the implied warranty of
16	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17	# GNU Affero General Public License for more details.
18	#
19	# You should have received a copy of the GNU Affero General Public License
20	# along with this program. If not, see <http://www.gnu.org/licenses/>.
21	#
22
23	# Use the generic router script
24	require "router.pl";
25
26	# Use the perl CGI module
27	use CGI ':cgi';
28
29	# Create the query and get the parameters
30
31	$query=new CGI;
32
33	@rawparams=$query->param;
34
35	# Legal CGI parameters with regexp validity check
36
37	%legalparams=(
38	"lon" => "[-0-9.]+",
39	"lat" => "[-0-9.]+",
40	"zoom" => "[0-9]+",
41
42	"lon[1-9]" => "[-0-9.]+",
43	"lat[1-9]" => "[-0-9.]+",
44	"transport" => "[a-z]+",
45	"highway-[a-z]+" => "[0-9.]+",
46	"speed-[a-z]+" => "[0-9.]+",
47	"property-[a-z]+" => "[0-9.]+",
48	"oneway" => "(1\|0\|true\|false\|on\|off)",
49	"turns" => "(1\|0\|true\|false\|on\|off)",
50	"weight" => "[0-9.]+",
51	"height" => "[0-9.]+",
52	"width" => "[0-9.]+",
53	"length" => "[0-9.]+",
54
55	"language" => "[-a-zA-Z]+"
56	);
57
58	# Validate the CGI parameters, ignore invalid ones
59
60	foreach $key (@rawparams)
61	{
62	foreach $test (keys (%legalparams))
63	{
64	if($key =~ m%^$test$%)
65	{
66	$value=$query->param($key);
67
68	if($value =~ m%^$legalparams{$test}$%)
69	{
70	$cgiparams{$key}=$value;
71	last;
72	}
73	}
74	}
75	}
76
77	# Fill in the default parameters
78
79	%fullparams=FillInDefaults(%cgiparams);
80
81	# Open template file and output it
82
83	$lang=$cgiparams{'language'};
84
85	if( -f "router.html.$lang")
86	{
87	open(TEMPLATE,"<router.html.$lang");
88	}
89	else
90	{
91	open(TEMPLATE,"<router.html");
92	}
93
94	# Parse the template and fill in the parameters
95
96	print header('text/html');
97
98	while(<TEMPLATE>)
99	{
100	if(m%^<BODY.+>%)
101	{
102	s/'lat'/$cgiparams{'lat'}/ if(defined $cgiparams{'lat'});
103	s/'lon'/$cgiparams{'lon'}/ if(defined $cgiparams{'lon'});
104	s/'zoom'/$cgiparams{'zoom'}/ if(defined $cgiparams{'zoom'});
105	print;
106	}
107	elsif(m%<input% && m%<!-- ([^ ]+) *-->%)
108	{
109	$key=$1;
110
111	m%type="([a-z]+)"%;
112	$type=$1;
113
114	m%value="([a-z]+)"%;
115	$value=$1;
116
117	if($type eq "radio")
118	{
119	$checked="";
120	$checked="checked" if($fullparams{$key} eq $value);
121
122	s%><!-- .+? *-->% $checked>%;
123	}
124	elsif($type eq "checkbox")
125	{
126	$checked="";
127	$checked="checked" if($fullparams{$key});
128
129	s%><!-- .+? *-->% $checked>%;
130	}
131	elsif($type eq "text")
132	{
133	s%><!-- .+? *-->% value="$fullparams{$key}">%;
134	}
135
136	print;
137	}
138	else
139	{
140	print;
141	}
142	}
143
144	close(TEMPLATE);