chiark - git - mdw - odin-cgi/blob - bin/shorturl.userv

   1 #! /usr/bin/perl
   2 ###
   3 ### URL shortening userv interface for Odin
   4 ###
   5 ### (c) 2015 Mark Wooding
   6 ###
   7
   8 ###----- Licensing notice ---------------------------------------------------
   9 ###
  10 ### This file is part of the `odin.gg' service, `odin-cgi'.
  11 ###
  12 ### `odin-cgi' is free software; you can redistribute it and/or modify
  13 ### it under the terms of the GNU Affero General Public License as
  14 ### published by the Free Software Foundation; either version 3 of the
  15 ### License, or (at your option) any later version.
  16 ###
  17 ### `odin-cgi' is distributed in the hope that it will be useful,
  18 ### but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ### GNU Affero General Public License for more details.
  21 ###
  22 ### You should have received a copy of the GNU Affero General Public
  23 ### License along with `odin-cgi'; if not, see
  24 ### <http://www.gnu.org/licenses/>.
  25
  26 use lib "lib";
  27
  28 use Odin;
  29 use DBI;
  30
  31 Odin::cmdline_who;
  32
  33 my $op = shift(@ARGV) // "help";
  34 if ($op eq "help") {
  35   print <<EOF;
  36 Commands available:
  37
  38         del TAG ...
  39         get TAG ...
  40         help
  41         list
  42         new URL
  43 EOF
  44 } elsif ($op eq "list") {
  45   @ARGV == 0 or Odin::fail "usage: list";
  46   my $db = Odin::open_db;
  47   for my $r (@{$db->selectall_arrayref
  48       ("SELECT tag, stamp, url
  49         FROM odin_shorturl WHERE owner = ?
  50         ORDER BY stamp", undef, $Odin::WHO)}) {
  51     my ($tag, $stamp, $url) = @$r;
  52     Odin::print_columns Odin::fmt_time $stamp => 25, $tag => 12, $url =>0;
  53   }
  54 } elsif ($op eq "new") {
  55   @ARGV == 1 or Odin::fail "usage: new URL";
  56   my ($url) = @ARGV;
  57   my $tag = Odin::new_shorturl $url;
  58   print "$Odin::SHORTURL/$tag\n";
  59 } elsif ($op eq "get") {
  60   @ARGV >= 0 or Odin::fail "usage: get TAG ...";
  61   if (@ARGV == 1) { print Odin::get_shorturl $ARGV[0], "\n"; }
  62   else {
  63     for my $tag (@ARGV)
  64       { printf "%-12s  %s\n", $tag, Odin::get_shorturl $tag; }
  65   }
  66 } elsif ($op eq "del") {
  67   @ARGV >= 0 or Odin::fail "usage: del TAG ...";
  68   Odin::delete_shorturl @ARGV;
  69 } else {
  70   Odin::fail "unknown operation `$op'";
  71 }