#!/usr/bin/perl

use strict;
use warnings;

use FixMyStreet::App;
use FixMyStreet::Geocode::OSM;
use Data::Dumper;

FixMyStreet::App->model('DB::Problem')->send_reports();

my $cobrand = FixMyStreet::Cobrand->get_class_for_moniker('fiksgatami')->new();

sub isRoadOperator {
    my ($latitude, $longitude, $operatorname) = @_;
    my $osmtags = FixMyStreet::Geocode::OSM::get_nearest_road_tags(
        $cobrand, $latitude, $longitude);
    print STDERR Dumper($osmtags);
    my $operator = $osmtags->{operator} || $osmtags->{operatorguess};
    if ($operator) {
        my ($name, $ref) = ('','');
        $name = " named $osmtags->{name}" if exists $osmtags->{name};
        $ref = " ($osmtags->{ref})" if exists $osmtags->{ref};
        print STDERR "Claiming operator $operator for way$name$ref\n";
        return ($operator eq $operatorname);
    }
    return undef;
}

my $latitude = $ARGV[0] || 63.37638;
my $longitude = $ARGV[1] || 10.37595;

unless (isRoadOperator($latitude, $longitude, "Statens vegvesen")) {
    print STDERR "Operator is not Statens vegvesen\n";
}