1 files changed, 0 insertions, 126 deletions
diff --git a/rhimport b/rhimport
deleted file mode 100755
index f0be9df..0000000
--- a/rhimport
+++ /dev/null
@@ -1,126 +0,0 @@
-#!/usr/bin/perl -w
-#
-#
-#  rhimport
-#
-#  Copyright (C) 2009-2015 Christian Pointner <equinox@helsinki.at>
-#
-#  This file is part of rhimport.
-#
-#  rhimport is free software: you can redistribute it and/or modify
-#  it under the terms of the GNU General Public License as published by
-#  the Free Software Foundation, either version 3 of the License, or
-#  any later version.
-#
-#  rhimport is distributed in the hope that it will be useful,
-#  but WITHOUT ANY WARRANTY; without even the implied warranty of
-#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#  GNU General Public License for more details.
-#
-#  You should have received a copy of the GNU General Public License
-#  along with rhimport. If not, see <http://www.gnu.org/licenses/>.
-#
-
-use strict;
-use Getopt::Long;
-use RHRD::rddb;
-
-use lib '/usr/local/share/rhimport/';
-use rhimport;
-
-my $HELP = 0;
-my $FILE = "";
-my $DROPBOX = "";
-my $LISTALLOWED = 0;
-
-GetOptions ("help!" => \$HELP,
-            "file=s" => \$FILE,
-            "dropbox=s" => \$DROPBOX,
-            "list-allowed!" => \$LISTALLOWED,
-             ) or die();
-
-if($HELP) {
-  print << "EOF";
-usage: $0 --file <audio file> --dropbox <path to dropbox> --list-allowed
-
-options:
-     -f | --file          the media file or playlist to import
-     -i | --id            the show id to import to
-     -l | --list-allowed  list allowed shows and exit
-
-EOF
-  exit 0;
-}
-
-my $user = `/usr/bin/id -un`;
-$user =~ s/\n//;
-$user = 'heslinki';
-
-my ($dbh, undef, $errorstring) = RHRD::rddb::opendb();
-if(!defined $dbh) {
-  print "$errorstring\n";
-  exit 1;
-}
-my @allowed_dbs = RHRD::rddb::get_dropboxes($dbh, $user);
-if(!defined $allowed_dbs[0] && defined $allowed_dbs[2]) {
-  print "$allowed_dbs[2]\n";
-  exit 1;
-}
-
-if($LISTALLOWED) {
-  print "| id    | Title\n";
-  print "+-------+-------------------------------------------------------------------\n";
-  for my $href ( @allowed_dbs ) {
-    if($href->{'TYPE'} eq 'show') {
-      my @show_carts = RHRD::rddb::get_show_carts($dbh, $href->{'SHOWLOG'}, $href->{'GROUPLOWCART'}, $href->{'GROUPHIGHCART'});
-      if(!defined $show_carts[0] && defined $show_carts[2]) {
-        print "$show_carts[2]\n";
-        exit 1;
-      }
-      print "| $href->{'SHOWID'} | $href->{'SHOWTITLE'}, Carts: [" . join(', ', @show_carts) . "]\n";
-    }
-  }
-  RHRD::rddb::closedb($dbh);
-  exit 0;
-}
-
-my $cl_error_cb = sub {
-  my ($text) = @_;
-
-  print "\n$text .. cancel operation [Y/n]? ";
-  my $x = scalar(<STDIN>);
-  $x =~ /^n/i;
-};
-
-(-e "$FILE") or die "file '$FILE' not found\n";
-print "will import $FILE, with user $user\n\n";
-
-my $group = '';
-my $to_cart = 0;
-for my $href (@allowed_dbs) {
-  if($href->{'PATH'} eq $DROPBOX) {
-    $group = $href->{'GROUP'};
-    $to_cart = $href->{'TO_CART'};
-    last;
-  }
-}
-
-if($group eq '') {
-  print "Dropbox not found or not allowed\n";
-  exit 1
-}
-
-my $ret;
-my $log;
-$log = rhimport::clear_carts($dbh, $group, $to_cart);
-my $import_log;
-($ret, $import_log) = rhimport::import_single($FILE, $DROPBOX, $user, 0, $cl_error_cb);
-$log .= $import_log;
-
-RHRD::rddb::closedb($dbh);
-
-if(!$ret) {
-  exit 1;
-}
-
-exit 0;