use strict ;
use warnings ;

# mwInteractive.pl

my $sStyle = "mwStandardRules.txt" ;
my $tStyle = "mwTopoRules.txt" ;

my $place = "" ;
my $near = "" ;
my $dist = 50000 ;
my $lonrad = 2 ;
my $latrad = 2 ;
my $scaleset = 10000 ;
my $png = 0 ;
my $pdf = 1 ;
my $outName = "" ;
my $style = "" ;

print "Mapweaver interactive\n\n" ;

while ($place eq "") {
	print "Please enter exact place name:\n" ;
	$place = <STDIN> ;
	print "\n" ;
	chomp $place ;
}

# ---

print "Please enter exact place name of bigger city i.e. in vicinity:\n" ;
$near = <STDIN> ;
print "\n" ;
chomp $near ;

# ---

print "Please enter radius in m for vicinity search (defaults to 50.000):\n" ;
$dist = <STDIN> ;
print "\n" ;
chomp $dist ;

if ($dist eq "") { $dist = 50000 ; }

# ---

print "Please enter radius in km for latitude (defaults to 2km):\n" ;
$latrad = <STDIN> ;
print "\n" ;
chomp $latrad ;
if ($latrad eq "") { $latrad=2 ; }

# ---

print "Please enter radius in km for longitude (defaults to 2km):\n" ;
$lonrad = <STDIN> ;
print "\n" ;
chomp $lonrad ;
if ($lonrad eq "") { $lonrad=2 ; }

# ---

print "Please enter scale of map (i.e. 10000 for 1:10.000):\n" ;
$scaleset = <STDIN> ;
print "\n" ;
chomp $scaleset ;
if ($scaleset eq "") { $scaleset = 10000 ; }

# ---

print "Output map in PDF format yes/no (defaults to yes):\n" ;
$pdf = <STDIN> ;
print "\n" ;
chomp $pdf ;
if (($pdf eq "") or (lc $pdf eq "yes")) { $pdf = 1 ; }

# ---

print "Output map in PNG format yes/no (defaults to no):\n" ;
$png = <STDIN> ;
print "\n" ;
chomp $png ;
if (($png eq "") or (lc $png eq "no")) { $png = 0 ; }
if (lc $png eq "yes") { $png = 1 ; }

# ---

$outName = $place . ".svg" ;

print "Output name (defaults to $outName):\n" ;
$outName = <STDIN> ;
print "\n" ;
chomp $outName ;

if ($outName eq "") { $outName = $place . ".svg" ; }
if (! grep /\.svg$/, $outName) { $outName .= ".svg" ; }

# ---

print "Select map style from list:\n" ;
print "1 - standard rules (default)\n" ;
print "2 - topo rules\n" ;
$style = <STDIN> ;
print "\n" ;
chomp $style ;

if ($style eq "2") { $style = "mwTopoRules.txt" ; }
else { $style = "mwStandardRules.txt" ; }




my $cmd = "perl mw.pl -place=\"$place\" -overpass -style=\"$style\" -out=\"$outName\" -scaleset=$scaleset " ;
if ($near ne "") { $cmd .= "-near=\"$near\" -overpassdistance=$dist " ; }
$cmd .= " -lonrad=$lonrad -latrad=$latrad " ;
if ($png eq "1") { $cmd .= " -png " ; }
if ($pdf eq "1") { $cmd .= " -pdf " ; }

print "call mw.pl: $cmd\n" ;

`$cmd` ;