www/routino/router.pl

#
# Routino generic router Perl script
#
# 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 directory paths script
require "paths.pl";

# Load the profiles variables
require "profiles.pl";

# Use the perl Time::HiRes module
use Time::HiRes qw(gettimeofday tv_interval);

$t0 = [gettimeofday];

# Filename prefix

$data_prefix="";

#
# Fill in the default parameters using the ones above (don't use executable compiled in defaults)
#

sub FillInDefaults
  {
   my(%params)=@_;

   $params{transport}=$routino->{transport} if(!defined $params{transport});

   my($transport)=$params{transport};

   foreach $highway (keys %{$routino->{highways}})
     {
      $key="highway-$highway";
      $value=$routino->{profile_highway}->{$highway}->{$transport};
      $params{$key}=$value if(!defined $params{$key});

      $key="speed-$highway";
      $value=$routino->{profile_speed}->{$highway}->{$transport};
      $params{$key}=$value if(!defined $params{$key});
     }

   foreach $property (keys %{$routino->{properties}})
     {
      $key="property-$property";
      $value=$routino->{profile_property}->{$property}->{$transport};
      $params{$key}=$value if(!defined $params{$key});
     }

   $params{oneway} =~ s/(true|on)/1/;
   $params{oneway} =~ s/(false|off)/0/;

   $params{turns} =~ s/(true|on)/1/;
   $params{turns} =~ s/(false|off)/0/;

   foreach $restriction (keys %{$routino->{restrictions}})
     {
      $key="$restriction";
      $value=$routino->{profile_restrictions}->{$restriction}->{$transport};
      $params{$key}=$value if(!defined $params{$key});
     }

   return %params;
  }


#
# Run the router
#

sub RunRouter
  {
   my($optimise,%params)=@_;

   # Combine all of the parameters together

   my($params)="--$optimise";

   foreach $key (keys %params)
     {
      $params.=" --$key=$params{$key}";
     }

   # Change directory

   mkdir $results_dir,0755 if(! -d $results_dir);
   chdir $results_dir;

   # Create a unique output directory

   chomp($uuid=`echo '$params' $$ | md5sum | cut -f1 '-d '`);

   mkdir $uuid;
   chmod 0775, $uuid;
   chdir $uuid;

   # Run the router

   $params.=" --dir=$data_dir" if($data_dir);
   $params.=" --prefix=$data_prefix" if($data_prefix);
   $params.=" --loggable";

   system "$bin_dir/$router_exe $params > router.log 2>&1";

   (undef,undef,$cuser,$csystem) = times;
   $time=sprintf "time: %.3f CPU / %.3f elapsed",$cuser+$csystem,tv_interval($t0);

   $message="";

   if($? != 0)
     {
      $message=`tail -1 router.log`;
     }

   $result="";

   if(-f "$optimise.txt")
     {
      $result=`tail -1 $optimise.txt`;
      @result=split(/\t/,$result);
      $result = $result[4]." , ".$result[5];
     }

   # Return the results

   return($uuid,$time,$result,$message);
  }


#
# Return the output file
#

# Possible file formats

%suffixes=(
           "html"      => ".html",
           "gpx-route" => "-route.gpx",
           "gpx-track" => "-track.gpx",
           "text"      => ".txt",
           "text-all"  => "-all.txt",
           "log"       => ".log"
          );

# Possible MIME types

%mimetypes=(
            "html"      => "text/html",
            "gpx-route" => "text/xml",
            "gpx-track" => "text/xml",
            "text"      => "text/plain",
            "text-all"  => "text/plain",
            "log"       => "text/plain"
           );

sub ReturnOutput
  {
   my($uuid,$type,$format)=@_;

   if($type eq "router") { $format="log" }

   $suffix=$suffixes{$format};
   $mime  =$mimetypes{$format};

   $file="$results_dir/$uuid/$type$suffix";

   # Return the output

   if(!$type || !$uuid || !$format || ! -f $file)
     {
      print header('text/plain','404 Not found');
      print "Not Found!\n";
     }
   else
     {
      print header($mime);

      system "cat $file";
     }
  }

1;
1	amb	569	#
2			# Routino generic router Perl script
3			#
4			# Part of the Routino routing software.
5			#
6	amb	622	# This file Copyright 2008-2011 Andrew M. Bishop
7	amb	569	#
8			# This program is free software: you can redistribute it and/or modify
9			# it under the terms of the GNU Affero General Public License as published by
10			# the Free Software Foundation, either version 3 of the License, or
11			# (at your option) any later version.
12			#
13			# This program is distributed in the hope that it will be useful,
14			# but WITHOUT ANY WARRANTY; without even the implied warranty of
15			# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			# GNU Affero General Public License for more details.
17			#
18			# You should have received a copy of the GNU Affero General Public License
19			# along with this program. If not, see <http://www.gnu.org/licenses/>.
20			#
21
22			# Use the directory paths script
23			require "paths.pl";
24
25	amb	635	# Load the profiles variables
26			require "profiles.pl";
27
28	amb	569	# Use the perl Time::HiRes module
29			use Time::HiRes qw(gettimeofday tv_interval);
30
31			$t0 = [gettimeofday];
32
33			# Filename prefix
34
35			$data_prefix="";
36
37	amb	577	#
38			# Fill in the default parameters using the ones above (don't use executable compiled in defaults)
39			#
40
41			sub FillInDefaults
42			{
43			my(%params)=@_;
44
45			$params{transport}=$routino->{transport} if(!defined $params{transport});
46
47			my($transport)=$params{transport};
48
49			foreach $highway (keys %{$routino->{highways}})
50			{
51			$key="highway-$highway";
52			$value=$routino->{profile_highway}->{$highway}->{$transport};
53			$params{$key}=$value if(!defined $params{$key});
54
55			$key="speed-$highway";
56			$value=$routino->{profile_speed}->{$highway}->{$transport};
57			$params{$key}=$value if(!defined $params{$key});
58			}
59
60			foreach $property (keys %{$routino->{properties}})
61			{
62			$key="property-$property";
63			$value=$routino->{profile_property}->{$property}->{$transport};
64			$params{$key}=$value if(!defined $params{$key});
65			}
66
67			$params{oneway} =~ s/(true\|on)/1/;
68			$params{oneway} =~ s/(false\|off)/0/;
69
70	amb	622	$params{turns} =~ s/(true\|on)/1/;
71			$params{turns} =~ s/(false\|off)/0/;
72
73	amb	577	foreach $restriction (keys %{$routino->{restrictions}})
74			{
75			$key="$restriction";
76			$value=$routino->{profile_restrictions}->{$restriction}->{$transport};
77			$params{$key}=$value if(!defined $params{$key});
78			}
79
80			return %params;
81			}
82
83
84			#
85	amb	569	# Run the router
86	amb	577	#
87	amb	569
88			sub RunRouter
89			{
90	amb	577	my($optimise,%params)=@_;
91	amb	569
92			# Combine all of the parameters together
93
94	amb	577	my($params)="--$optimise";
95	amb	569
96			foreach $key (keys %params)
97			{
98			$params.=" --$key=$params{$key}";
99			}
100
101			# Change directory
102
103			mkdir $results_dir,0755 if(! -d $results_dir);
104			chdir $results_dir;
105
106			# Create a unique output directory
107
108			chomp($uuid=`echo '$params' $$ \| md5sum \| cut -f1 '-d '`);
109
110	amb	572	mkdir $uuid;
111			chmod 0775, $uuid;
112	amb	569	chdir $uuid;
113
114			# Run the router
115
116			$params.=" --dir=$data_dir" if($data_dir);
117			$params.=" --prefix=$data_prefix" if($data_prefix);
118	amb	629	$params.=" --loggable";
119	amb	569
120	amb	629	system "$bin_dir/$router_exe $params > router.log 2>&1";
121	amb	569
122			(undef,undef,$cuser,$csystem) = times;
123			$time=sprintf "time: %.3f CPU / %.3f elapsed",$cuser+$csystem,tv_interval($t0);
124
125	amb	629	$message="";
126
127			if($? != 0)
128			{
129			$message=`tail -1 router.log`;
130			}
131
132			$result="";
133
134	amb	569	if(-f "$optimise.txt")
135			{
136			$result=`tail -1 $optimise.txt`;
137			@result=split(/\t/,$result);
138			$result = $result[4]." , ".$result[5];
139			}
140
141			# Return the results
142
143			return($uuid,$time,$result,$message);
144			}
145
146	amb	577
147			#
148			# Return the output file
149			#
150
151			# Possible file formats
152
153			%suffixes=(
154			"html" => ".html",
155			"gpx-route" => "-route.gpx",
156			"gpx-track" => "-track.gpx",
157			"text" => ".txt",
158	amb	629	"text-all" => "-all.txt",
159			"log" => ".log"
160	amb	577	);
161
162			# Possible MIME types
163
164			%mimetypes=(
165			"html" => "text/html",
166			"gpx-route" => "text/xml",
167			"gpx-track" => "text/xml",
168			"text" => "text/plain",
169	amb	629	"text-all" => "text/plain",
170			"log" => "text/plain"
171	amb	577	);
172
173			sub ReturnOutput
174			{
175			my($uuid,$type,$format)=@_;
176
177	amb	629	if($type eq "router") { $format="log" }
178
179	amb	577	$suffix=$suffixes{$format};
180			$mime =$mimetypes{$format};
181
182			$file="$results_dir/$uuid/$type$suffix";
183
184			# Return the output
185
186			if(!$type \|\| !$uuid \|\| !$format \|\| ! -f $file)
187			{
188			print header('text/plain','404 Not found');
189			print "Not Found!\n";
190			}
191			else
192			{
193			print header($mime);
194
195			system "cat $file";
196			}
197			}
198
199	amb	569	1;