1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/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 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 $LISTALLOWED = 0;
GetOptions ("help!" => \$HELP,
"m3u=s" => \$M3U,
"dont-concat!" => \$DONTCONCAT,
"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 $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
if(!$M3U) {
Gtk2->init;
my $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 $combo_db = $guixml->get_widget('co_dropbox');
$combo_db->set_model($model);
my $renderer = Gtk2::CellRendererText->new;
$combo_db->pack_start ($renderer, 1);
$combo_db->add_attribute ($renderer, text => 0);
$combo_db->set_active(0);
my $appwin = $guixml->get_widget('appwin');
$appwin or die "can't find Main Window";
$appwin->show;
Gtk2->main;
# $dbh->disconnect();
exit 0;
}
###########################################
## command line mode
(-e "$M3U") or die "file '$M3U' not found";
if($DONTCONCAT) {
print "Will import $M3U (seperate files), with user $user\n\n";
} else {
print "Will import $M3U (concatenated), with user $user\n\n";
}
# $dbh->disconnect();
exit 0;
|
