added rhimport for autoimporting democracy now!

1 files changed, 104 insertions, 0 deletions

diff --git a/rhimport-dn b/rhimport-dn
new file mode 100755
index 0000000..abcda30
--- /dev/null
+++ b/rhimport-dn
@@ -0,0 +1,104 @@
+#!/usr/bin/perl -w
+#
+#
+#  rhimport
+#
+#  Copyright (C) 2009 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 DBI;
+use Date::Calc;
+
+use lib '/usr/local/share/rhimport/';
+use rhimport;
+
+my $DBHOST = "airplay";
+my $DBUSER = "rivendell";
+my $DBPW = "lldriven";
+my $DB = "rivendell";
+
+
+my $luser = `/usr/bin/id -un`;
+$luser =~ s/\n//;
+($luser eq "equinox") or die "You are not allowed to use this script\n";
+my $user = "autoimport";
+my $group = "democracyn";
+
+my $dbh = DBI->connect("DBI:mysql:$DB:$DBHOST","$DBUSER","$DBPW") or die "Database Error: $DBI::errstr";
+my @allowed_dbs = rhimport::get_dropboxes($dbh, $user, $group);
+
+
+my $dropbox = "";
+my $to_cart = 0;
+
+my @today = Date::Calc::Today();
+my @yesterday = Date::Calc::Add_Delta_Days($today[0], $today[1], $today[2], -1);
+
+print "today: " . Date::Calc::Date_to_Text(@today) . "\n";
+print "yesterday: " . Date::Calc::Date_to_Text(@yesterday) . "\n";
+
+
+for my $href ( @allowed_dbs ) {
+  my $dow = Date::Calc::Day_of_Week(@today);
+  if ($dow == int(substr($href->{'NAME'},0,2))) {
+    $dropbox = $href->{'PATH'};
+    $to_cart = $href->{'TO_CART'};    
+  }
+}
+
+if($dropbox eq "") {
+  print "no dropbox for today\n";
+  $dbh->disconnect();
+  exit 0;
+}
+
+my $file = sprintf("dn%04d-%02d%02d-?.mp3", $yesterday[0], $yesterday[1], $yesterday[2]);
+print "looking for file like: $file\n";
+
+
+
+my $error_cb = sub {
+  my ($text) = @_;
+
+  print "\n$text .. cancel operation [Y/n]? ";
+  my $x = scalar(<STDIN>);
+  $x =~ /^n/i;
+};
+
+#rhimport::check_key_file() or die "Import Key not found, use rhimport-create-id to create one\n";
+
+#(-e "$file") or die "file '$file' not found\n";
+print "will import $file to dropbox $dropbox (cart=$to_cart)\n\n";
+
+exit 0;
+
+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, $error_cb);
+$log .= $import_log;
+
+$dbh->disconnect();
+
+if(!$ret) {
+  exit 1;
+}
+
+exit 0;