addpoints

   1 #!/usr/bin/perl
   2
   3 #=======================================================================
   4 # addpoints
   5 # File ID: d9355770-f923-11dd-b366-0001805bf4b1
   6 # Add new waypoints or trackpoints to the database.
   7 #
   8 # Character set: UTF-8
   9 # ©opyleft 2008– Øyvind A. Holm <sunny@sunbase.org>
  10 # License: GNU General Public License version 3 or later, see end of
  11 # file for legal stuff.
  12 #=======================================================================
  13
  14 use strict;
  15 use warnings;
  16 use Getopt::Long;
  17
  18 $| = 1;
  19
  20 our $Debug = 0;
  21
  22 our %Std = (
  23
  24     'database' => "gps",
  25     'timezone' => "",
  26     'type' => "track",
  27
  28 );
  29
  30 our %Opt = (
  31
  32     'database' => $Std{'database'},
  33     'debug' => 0,
  34     'help' => 0,
  35     'timezone' => $Std{'timezone'},
  36     'type' => $Std{'type'},
  37     'verbose' => 0,
  38     'version' => 0,
  39     'waypoint' => 0,
  40
  41 );
  42
  43 our $progname = $0;
  44 $progname =~ s/^.*\/(.*?)$/$1/;
  45 our $VERSION = "0.00";
  46
  47 Getopt::Long::Configure("bundling");
  48 GetOptions(
  49
  50     "database|D=s" => \$Opt{'database'},
  51     "debug" => \$Opt{'debug'},
  52     "help|h" => \$Opt{'help'},
  53     "timezone|T=s" => \$Opt{'timezone'},
  54     "type|t=s" => \$Opt{'type'},
  55     "verbose|v+" => \$Opt{'verbose'},
  56     "version" => \$Opt{'version'},
  57     "waypoint|w" => \$Opt{'waypoint'},
  58
  59 ) || die("$progname: Option error. Use -h for help.\n");
  60
  61 $Opt{'debug'} && ($Debug = 1);
  62 $Opt{'help'} && usage(0);
  63 if ($Opt{'version'}) {
  64     print_version();
  65     exit(0);
  66 }
  67
  68 my $tz_str = "";
  69 if (length($Opt{'timezone'})) {
  70     if ($Opt{'timezone'} =~ /^[\+\-][0-2][0-9]{3}$/) {
  71         $tz_str = $Opt{'timezone'};
  72     } elsif ($Opt{'timezone'} =~ /^z$/i) {
  73         $tz_str = $Opt{'timezone'};
  74     } elsif ($Opt{'timezone'} =~ /^[a-z]+$/i) {
  75         $tz_str = " $Opt{'timezone'}";
  76     } else {
  77         die("$progname: $Opt{'timezone'}: Invalid time zone\n");
  78     }
  79 }
  80
  81 for my $Currarg (@ARGV) {
  82     for my $Currfile (glob($Currarg)) {
  83         D("Currfile = '$Currfile'");
  84         if ($Opt{'type'} =~ /picture/) {
  85             if ($Currfile =~ /\.jpg$/i) {
  86                 my $tz_str = length($Opt{'timezone'})
  87                     ? "-T $Opt{'timezone'} "
  88                     : "";
  89                 my $exec_str =
  90                     "gpst-pic $tz_str$Currfile | psql -c \"COPY pictures (" .
  91                     join(", ",
  92                         "version",
  93                         "date",
  94                         "coor",
  95                         "descr",
  96                         "filename",
  97                         "author"
  98                     ) .
  99                     ") FROM stdin\" $Opt{'database'}";
 100                 msg(1, "Executing '$exec_str'...");
 101                 system($exec_str);
 102             }
 103         }
 104         if ($Opt{'type'} =~ /track/) {
 105             my $exec_str =
 106                 "gpst -o pgtab -R lat=6,lon=6 -d -rpt $Currfile | " .
 107                 "psql -a -c \"COPY logg (" .
 108                 join(", ",
 109                     "date",
 110                     "coor",
 111                     "ele",
 112                     "name",
 113                     "dist",
 114                     "description"
 115                 ) .
 116                 ") FROM stdin\" $Opt{'database'}";
 117             msg(1, "Executing '$exec_str'...");
 118             system($exec_str);
 119         }
 120         if ($Opt{'type'} =~ /waypoint/) {
 121             my $exec_str =
 122                 "gpst -o pgwtab $Currfile | " .
 123                 "psql -a -c \"COPY wayp_new (" .
 124                 join(", ",
 125                     "coor",
 126                     "name",
 127                     "ele",
 128                     "type",
 129                     "time",
 130                     "cmt",
 131                     "descr",
 132                     "src",
 133                     "sym"
 134                 ) .
 135                 ") FROM stdin\" $Opt{'database'}";
 136             msg(1, "Executing '$exec_str'...");
 137             system($exec_str);
 138         }
 139     }
 140 }
 141
 142 sub print_version {
 143     # Print program version {{{
 144     print("$progname v$VERSION\n");
 145     # }}}
 146 } # print_version()
 147
 148 sub usage {
 149     # Send the help message to stdout {{{
 150     my $Retval = shift;
 151
 152     if ($Opt{'verbose'}) {
 153         print("\n");
 154         print_version();
 155     }
 156     print(<<END);
 157
 158 Usage: $progname [options] [file [files [...]]]
 159
 160 Options:
 161
 162   -D X, --database X
 163     Load into PostgreSQL database X. Default: "$Std{'database'}".
 164   -h, --help
 165     Show this help.
 166   -T X, --timezone X
 167     Prepend X as timezone to the date. Valid formats:
 168       UTC offset
 169         A '+' or '-' followed by a four-digit number (HHMM) which
 170         indicates the offset relative to UTC. Examples:
 171           +0000
 172           -1600
 173           +0630
 174       Time zone abbreviation. Examples:
 175         UTC
 176         Z
 177         CET
 178   -t X, --type X
 179     Comma-separated list of point types to extract from files:
 180       picture
 181       track
 182       waypoint
 183     Default: "$Std{'type'}".
 184   -v, --verbose
 185     Increase level of verbosity. Can be repeated.
 186   --version
 187     Print version information.
 188   --debug
 189     Print debugging messages.
 190
 191 END
 192     exit($Retval);
 193     # }}}
 194 } # usage()
 195
 196 sub msg {
 197     # Print a status message to stderr based on verbosity level {{{
 198     my ($verbose_level, $Txt) = @_;
 199
 200     if ($Opt{'verbose'} >= $verbose_level) {
 201         print(STDERR "$progname: $Txt\n");
 202     }
 203     # }}}
 204 } # msg()
 205
 206 sub D {
 207     # Print a debugging message {{{
 208     $Debug || return;
 209     my @call_info = caller;
 210     chomp(my $Txt = shift);
 211     my $File = $call_info[1];
 212     $File =~ s#\\#/#g;
 213     $File =~ s#^.*/(.*?)$#$1#;
 214     print(STDERR "$File:$call_info[2] $$ $Txt\n");
 215     return("");
 216     # }}}
 217 } # D()
 218
 219 __END__
 220
 221 # Plain Old Documentation (POD) {{{
 222
 223 =pod
 224
 225 =head1 NAME
 226
 227
 228
 229 =head1 SYNOPSIS
 230
 231  [options] [file [files [...]]]
 232
 233 =head1 DESCRIPTION
 234
 235
 236
 237 =head1 OPTIONS
 238
 239 =over 4
 240
 241 =item B<-h>, B<--help>
 242
 243 Print a brief help summary.
 244
 245 =item B<-v>, B<--verbose>
 246
 247 Increase level of verbosity. Can be repeated.
 248
 249 =item B<--version>
 250
 251 Print version information.
 252
 253 =item B<--debug>
 254
 255 Print debugging messages.
 256
 257 =back
 258
 259 =head1 BUGS
 260
 261
 262
 263 =head1 AUTHOR
 264
 265 Made by Øyvind A. Holm S<E<lt>sunny@sunbase.orgE<gt>>.
 266
 267 =head1 COPYRIGHT
 268
 269 Copyleft © Øyvind A. Holm E<lt>sunny@sunbase.orgE<gt>
 270 This is free software; see the file F<COPYING> for legalese stuff.
 271
 272 =head1 LICENCE
 273
 274 This program is free software: you can redistribute it and/or modify it
 275 under the terms of the GNU General Public License as published by the
 276 Free Software Foundation, either version 3 of the License, or (at your
 277 option) any later version.
 278
 279 This program is distributed in the hope that it will be useful, but
 280 WITHOUT ANY WARRANTY; without even the implied warranty of
 281 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 282 See the GNU General Public License for more details.
 283
 284 You should have received a copy of the GNU General Public License along
 285 with this program.
 286 If not, see L<http://www.gnu.org/licenses/>.
 287
 288 =head1 SEE ALSO
 289
 290 =cut
 291
 292 # }}}
 293
 294 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :