diff options
Diffstat (limited to 'rhimport')
| -rwxr-xr-x | rhimport | 164 |
1 files changed, 164 insertions, 0 deletions
diff --git a/rhimport b/rhimport new file mode 100755 index 0000000..6e1a9d3 --- /dev/null +++ b/rhimport @@ -0,0 +1,164 @@ +#!/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 rhimport; + +use Getopt::Long; +use DBI; +use Gtk2; +use Gtk2::GladeXML; + +my $DBHOST = "airplay"; +my $DBUSER = "rivendellro"; +my $DBPW = "lldrivenro"; +my $DB = "rivendell"; +my $HELP = 0; +my $M3U = ""; +my $DONTCONCAT = 0; +my $DROPBOX = ""; +my $LISTALLOWED = 0; + +GetOptions ("help!" => \$HELP, + "m3u=s" => \$M3U, + "dont-concat!" => \$DONTCONCAT, + "dropbox=s" => \$DROPBOX, + "list-allowed!" => \$LISTALLOWED, + ); + +if($HELP) { + print << "EOF"; +usage: $0 --m3u <playlist file> --dont-concat + +options: + --m3u the playlist file to import + --dont-concat dont concat the audio files, import as seperate files + --list-allowed list allowed dropboxes and exit + +EOF + exit; +} + +my $CONCAT = 0; +$CONCAT = 1 unless $DONTCONCAT; +my $user = $ENV{'USER'}; +$user or die "Username not found in environment"; + +# 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 @allowed_dbs; +push @allowed_dbs, { 'GROUP' => "groupa", 'PATH' => "/programm/dropboxA/" }; +push @allowed_dbs, { 'GROUP' => "groupb", 'PATH' => "/programm/dropboxB/" }; +push @allowed_dbs, { 'GROUP' => "groupc", 'PATH' => "/programm/dropboxC/" }; +# while(my ($group, $path) = $sth->fetchrow_array()) { +# $path =~ s/\/\*$//; +# my $perm = {}; +# $perm->{'GROUP'} = $group; +# $perm->{'PATH'} = $path; +# push @allowed_dbs, $perm; +# } +# $sth->finish(); + +if($LISTALLOWED) { + for my $href ( @allowed_dbs ) { + print "$href->{'PATH'}\n"; + } +# $dbh->disconnect(); + exit 0; +} + +########################################### +## GUI mode + +my $guixml; + +if(!$M3U && !$DROPBOX) { + Gtk2->init; + + $guixml = Gtk2::GladeXML->new('rhimport.glade'); + $guixml or die "can't load glade xml file"; + require gui_callbacks; + $guixml->signal_autoconnect_from_package('gui_callbacks'); + + my $model = Gtk2::ListStore->new('Glib::String'); + for my $href ( @allowed_dbs ) { + $model->set ($model->append, 0, $href->{'PATH'}); + } + my $co_dropbox = $guixml->get_widget('co_dropbox'); + $co_dropbox->set_model($model); + my $renderer = Gtk2::CellRendererText->new; + $co_dropbox->pack_start($renderer, 1); + $co_dropbox->add_attribute($renderer, text => 0); + $co_dropbox->set_active(0); + + my $filter = Gtk2::FileFilter->new; + $filter->add_pattern("*.m3u"); + my $filechooser = $guixml->get_widget('filechooser'); + $filechooser->set_filter($filter); + + my $appwin = $guixml->get_widget('appwin'); + $appwin or die "can't find Main Window"; + $appwin->show; + + Gtk2->main; +# $dbh->disconnect(); + exit 0; +} + +sub start_import_gui() +{ + if(!$guixml) { + print STDERR "no GUI definition found!\n"; + exit 0; + } + + my $co_dropbox = $guixml->get_widget('co_dropbox'); + my $dropbox = $co_dropbox->get_active_text; + + my $filechooser = $guixml->get_widget('filechooser'); + my $m3u = $filechooser->get_filename; + + my $cb_concat = $guixml->get_widget('cb_concat'); + my $concat = 1; + $concat = 0 unless $cb_concat->get_active; + + rhimport::start_import($m3u, $dropbox, $concat); +} + +########################################### +## command line mode + +(-e "$M3U") or die "file '$M3U' not found"; +if($CONCAT) { + print "Will import $M3U (concatenated), with user $user\n\n"; +} else { + print "Will import $M3U (seperate files), with user $user\n\n"; +} + +my $ret = rhimport::start_import($M3U, $DROPBOX, $CONCAT); + +# $dbh->disconnect(); +exit $ret; |