From aed8761dd9b9f00cecf1655be88e3eb6ff29359e Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Wed, 17 Feb 2010 15:30:48 +0000 Subject: get list of allowed dropboxes git-svn-id: https://svn.helsinki.at/rhimport/trunk@2 7c65635b-ec39-4f67-a626-873dbafdd612 diff --git a/rhimport.pl b/rhimport.pl new file mode 100755 index 0000000..a8b1c0a --- /dev/null +++ b/rhimport.pl @@ -0,0 +1,59 @@ +#!/usr/bin/perl -w +# +# + +use strict; + +use Getopt::Long; +use DBI; + +my $DBHOST = "airplay"; +my $DBUSER = "rivendellro"; +my $DBPW = "lldrivenro"; +my $DB = "rivendell"; +my $HELP = 0; +my $M3U = ""; +my $DONTCONCAT = 0; + +GetOptions ("help!" => \$HELP, + "m3u=s" => \$M3U, + "dont-concat!" => \$DONTCONCAT, + ); + +if($HELP || !$M3U) { + print << "EOF"; +usage: $0 --m3u --dont-concat + +options: + --m3u the playlist file to import + --dont-concat dont concat the audio files, import as seperate files + +EOF + exit; +} + +(-e "$M3U") or die "file '$M3U' not found"; + +my $user = $ENV{'USER'}; + +$user or die "Username not found in environment"; + +print "Will import $M3U, with user $user\n"; + + +my $dbh = DBI->connect( "DBI:mysql:$DB:$DBHOST","$DBUSER","$DBPW") or die "Database Error: $DBI::errstr"; + +my $sql = qq{select USER_PERMS.GROUP_NAME,DROPBOXES.PATH from USER_PERMS, DROPBOXES where USER_PERMS.USER_NAME='$user' and DROPBOXES.GROUP_NAME=USER_PERMS.GROUP_NAME;}; + +my $sth = $dbh->prepare($sql); +$sth->execute(); +my $cur_start_time = "out of order"; +my $cart_cnt = 0; +while(my ($group, $path) = $sth->fetchrow_array()) { + $path =~ s/\/\*$//; + + print "GROUP: $group, PATH: $path\n" +} + +$sth->finish(); +$dbh->disconnect(); -- cgit v0.10.2