Added first revision of experimental MPmix software - DJ player using Mplayer, PERL...

[mirrors/Programs.git] / perl / mpmix / mpmix.pl

diff --git a/perl/mpmix/mpmix.pl b/perl/mpmix/mpmix.pl
new file mode 100755 (executable)
index 0000000..835edd6
--- /dev/null
+++ b/perl/mpmix/mpmix.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+#ArchLinux Daemon Manager Gui! by Harvie 2oo9
+use strict;
+use warnings;
+use utf8;
+require "MPlayer.pm";
+use Gtk2 qw(-init);
+
+my $player = Audio::Play::MPlayer->new;
+$player->load( "/home/harvie/Downloads/Shared/Bonobo-Walk_In_The_Sky_(Feat.Bajka).mp3" );
+sleep 1;
+#print $player->title. "\n";
+#print $player->{track}->{title}, "\n";
+$player->speed(0.3);
+$player->poll( 1 ) until $player->state == 0;
+
+my $builder = Gtk2::Builder->new();
+$builder->add_from_file('mpmix.ui');
+
+my %widgets;
+foreach my $widget qw(window1)
+{
+       $widgets{$widget}=$builder->get_object($widget);
+}
+
+$builder->connect_signals(undef);
+$builder = undef;
+
+$widgets{'window1'}->show();
+
+
+Gtk2->main();
+exit;
+
+sub on_window1_destroy
+{
+    Gtk2->main_quit();
+}