mapweaver/mwDir.pl

use strict ;
use warnings ;

use OSM::osm 8.3 ;

my $version = "1.00" ;

my $streetFileName ;
my $poiFileName ;
my $pdfFileName ;
my $texFileName ;
my $titleText ;
my $numColumns ;

my $streetFile ;
my $poiFile ;
my $texFile ;


($streetFileName, $poiFileName, $titleText, $pdfFileName, $numColumns) = @ARGV ;


print "mwDir.pl: $streetFileName, $poiFileName, $titleText, $pdfFileName, $numColumns\n" ;

$texFileName = $pdfFileName ;
$texFileName =~ s/.pdf/.tex/ ;

open ($texFile, ">", $texFileName) or die ("can't open tex output file") ;
print $texFile "\\documentclass[a4paper,12pt]{book}\n" ;
print $texFile "\\usepackage{multicol}\n" ;
print $texFile "\\usepackage[utf8]{inputenc}\n" ;
print $texFile "\\usepackage[top=2.5cm,bottom=2cm,left=3cm,right=2cm]{geometry}\n" ;
print $texFile "\\columnsep7mm\n" ;
print $texFile "\\begin{document}\n" ;
print $texFile "\\section*{$titleText}\n" ;
print $texFile "\n" ;

print $texFile "\\tiny\n" ;
print $texFile "Data CC-BY-SA www.openstreetmap.org\n" ;
print $texFile "\\normalsize\n\n" ;

# streets
if ($streetFileName ne "none") {
	my $result = open ($streetFile, "<", $streetFileName) ;
	if ($result) {
		my $line ;
		print $texFile "\\begin{multicols}{$numColumns}[\\subsubsection*{Streets}]\n" ;
		print $texFile "\\tiny\n" ;
		while ($line = <$streetFile>) {
			$line = convertToLatex ($line) ;
			my (@entry) = split /\t/, $line ;
			print $texFile $entry[0] ;
			print $texFile " \\dotfill " ;
			print $texFile $entry[1], " \\\\\n" ;
		}
		close ($streetFile) ;
		print $texFile "\\normalsize\n" ;
		print $texFile "\\end{multicols}\n" ;
	}
	else {
		print "WARNING: street file $streetFile could not be opened." ;
	}
}




# POIs
if ($poiFileName ne "none") {
	my $result = open ($poiFile, "<", $poiFileName) ;
	if ($result) {
		my $line ;
		print $texFile "\\begin{multicols}{$numColumns}[\\subsubsection*{Points of interest}]\n" ;
		print $texFile "\\tiny\n" ;
		while ($line = <$poiFile>) {
			$line = convertToLatex ($line) ;
			my @entry = split /\t/, $line ;
			print $texFile $entry[0] ;
			print $texFile " \\dotfill " ;
			print $texFile $entry[1], "\\\\\n" ;
		}
		close ($poiFile) ;
		print $texFile "\\normalsize\n" ;
		print $texFile "\\end{multicols}\n" ;
	}
	else {
		print "WARNING: POI file $poiFile could not be opened." ;
	}
}




print $texFile "\\end{document}\n" ;
close ($texFile) ;
print "directory tex file created.\n" ;


my $dviFileName = $pdfFileName ;
$dviFileName =~ s/.pdf/.dvi/ ;
my $psFileName = $pdfFileName ;
$psFileName =~ s/.pdf/.ps/ ;


`latex $texFileName` ;
print "directory dvi file created.\n" ;
`dvips -D600 $dviFileName -o` ;
print "directory ps file created.\n" ;
`ps2pdf $psFileName $pdfFileName` ;
print "directory pdf file created.\n" ;
`rm *.dvi` ;
`rm *.tex` ;
`rm *.ps` ;
`rm *.aux` ;
`rm *.log` ;
print "directory FINISHED.\n" ;