From db75c9860e6d5b14ad0b8d29331e08d27beaa02c Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=98yvind=20A=2E=20Holm?= <sunny@sunbase.org>
Date: Mon, 10 Dec 2012 15:29:50 +0100
Subject: [PATCH] plass: It works, but no SQL sanitization yet

2dba0098-42d6-11e2-a9bf-fefdb24f8e10
731ddca6-42de-11e2-8c91-fefdb24f8e10
---
 plass | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/plass b/plass
index 5d2cb53..cc5e0e4 100755
--- a/plass
+++ b/plass
@@ -55,6 +55,23 @@ sub main {
     # {{{
     my %Opt = @_;
     my $Retval = 0;
+    defined($ARGV[0]) || (warn("$progname: Name not specified\n"), return 1);
+    my $name = $ARGV[0];
+    my $dist = defined($ARGV[1]) ? $ARGV[1] : '0.00050';
+    msg(0, "name = '$name'");
+    msg(0, "dist = '$dist'");
+
+    system(sprintf("psql gps -c \"%s\" | less", <<END));
+    SELECT date, coor, name, dist
+        FROM logg
+        WHERE (
+            SELECT coor
+                FROM wayp
+                WHERE name LIKE '$name'
+                LIMIT 1
+            )::point <-> coor <= $dist
+        ORDER BY id;
+END
 
     return($Retval);
     # }}}
@@ -77,7 +94,7 @@ sub usage {
     }
     print(<<"END");
 
-Usage: $progname [options] [file [files [...]]]
+Usage: $progname [options] name [dist]
 
 Options:
 
-- 
2.11.4.GIT