#!/usr/local/bin/perl

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use lib "/var/www/html/Pm";

use Bc_chef qw(cookie_get);

use Bc_sql qw(sql_execute

              user_exists

              get_country_cities

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Bc_misc qw(get_param);

use Html qw(pre_html_header);

use Redir qw(error_redir);

use Security qw(banned);

$DB->{'mysql_enable_utf8'} = 1;

my $DEBUG = 0;

my $country = get_param("c");

if (not $country) {

  if (not @ARGV) {

    print pre_html_header();

    #print "<table border=0 cellpading=0 cellspacing=0 height=100% width=100%><tr><td align=center>\n";

    #print "  at least gimme a country ID to work with!\n";

    #print "</td></tr></table>";

    exit 1;

  } else {

    # oh!  we got command line arguments! cool

    $country = $ARGV[0];

    $country =~ s/c\=//;

  }

}

my $add999 = get_param("add999");

my @cities = get_country_cities($country, $add999);

my $rv = "";

foreach my $city (@cities) {

  $rv .= "$city\n";

}

$rv =~ s/(\n)*$//;

print pre_html_header({type=>"text/plain"});

print $rv;

exit 1;