From cd12fd737768df244344bfa198838b2feff10377 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Mon, 22 Feb 2010 22:27:52 +0000 Subject: changed to pool/nopool setup no concat anymore git-svn-id: https://svn.helsinki.at/rhimport/trunk@19 7c65635b-ec39-4f67-a626-873dbafdd612 diff --git a/gui_callbacks.pm b/gui_callbacks.pm index 05b6adf..dd2291d 100644 --- a/gui_callbacks.pm +++ b/gui_callbacks.pm @@ -32,6 +32,13 @@ sub on_exit Gtk2->main_quit; } +sub on_cb_pool_toggled +{ + my ($widget, $data) = @_; + + ::change_pool_gui(); +} + sub on_b_apply_clicked { my ($widget, $data) = @_; diff --git a/rhimport b/rhimport index 94b367e..82823f6 100755 --- a/rhimport +++ b/rhimport @@ -36,25 +36,25 @@ my $DBUSER = "rivendellro"; my $DBPW = "lldrivenro"; my $DB = "rivendell"; my $HELP = 0; -my $M3U = ""; -my $DONTCONCAT = 0; +my $FILE = ""; +my $POOL = 0; my $DROPBOX = ""; my $LISTALLOWED = 0; GetOptions ("help!" => \$HELP, - "m3u=s" => \$M3U, - "dont-concat!" => \$DONTCONCAT, + "file=s" => \$FILE, + "pool!" => \$POOL, "dropbox=s" => \$DROPBOX, "list-allowed!" => \$LISTALLOWED, ); if($HELP) { print << "EOF"; -usage: $0 --m3u --dont-concat +usage: $0 --file