test-bucket2.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:57 2010 from test-bucket2.pl 2009/11/18 893.

#!/perl -w
# NAME: test-bucket2.pl
# AIM: Final debug on Bucket2.pm
# 18/11/2009 geoff mclane http://geoffair.net/mperl
use strict;
use warnings;
use Bucket2; # see Bucket2.pm
require 'logfile.pl' or die "Unable to load logfile.pl ...\n";
# log file stuff
my ($LF);
my $pgmname = $0;
if ($pgmname =~ /\w{1}:\\.*/) {
   my @tmpsp = split(/\\/,$pgmname);
   $pgmname = $tmpsp[-1];
}
my $outfile = "temp.$pgmname.txt";
open_log($outfile);
#prt( "$0 ... Hello, World ...\n" );
my $in_lon = -122.38;
my $in_lat =   37.62;
sub show_bucket($$) {
   my ($lon,$lat) = @_;
   my $bucket = Bucket2->new;
   prt("Using lon=$lon, lat=$lat\n");
   $bucket->set_bucket($lon,$lat);
   prt( "Bucket info = [".$bucket->bucket_info()."]\n" );
   prt( "Base path = ". $bucket->gen_base_path() . "\n" );
}
show_bucket($in_lon,$in_lat);
close_log($outfile,0);
exit(0);
# eof

index -|- top