2 Коментара

1. frankopld
   Posted 03/11/2009 at 23:04 | Permalink | Reply

   @admin,статията е много добра (y).
   Може евентуално само да добавиш и следното скриптче за MOC:

   [perl]####################################################################
   #!/usr/bin/perl

   use strict;
   use Irssi;
   use vars qw($VERSION %IRSSI);

   $VERSION="0.2.2";

   %IRSSI = (
   authors => "#hack.se",
   name => "iMOCP",
   description => "iMOCP makes it possible to control mocp via Irssi. Use the /mocp command. See \"/mocp help\" for documentation",
   );

   #Print out the load status to the status list
   Irssi::print("* $IRSSI{name} $VERSION successfully loaded!\n* Author: $IRSSI{authors}\n* $IRSSI{description}\n");

   #########
   # DOCUMENTATION
   #########
   #
   # iMOCP is a script that make Irssi able to talk with MOCP. Put the script in ~/.irssi/scripts or
   # ~/.irssi/scripts/autorun to make it autoload, when you start Irssi. If you dosen’t use the autorun folder
   # then you have to load iMOCP with this command:
   #
   # /script load imocp.pl
   #
   # iMOCP commands:
   # /mocp play - Play track
   # /mocp pause - Pause track
   # /mocp p - Toggle between play and pause
   # /mocp next - Play next track
   # /mocp n
   # /mocp prev - Play previous track
   # /mocp b
   # /mocp info - Display track information i status window
   # /mocp i
   # /mocp npf - Print now playing filename to channel.
   # /mocp np - Print current track title to
   # chat window. This only supports
   # id3-tag yet.
   #
   #########

   #########
   # CHANGELOG
   #########
   #
   # 0.2.2:
   # * Play / pause bug fixed thanks Curium for bugreport!
   #
   # 0.2.1:
   # * Fixed bug that caused iMOCP to crash.
   # * Added /mocp help, command to display all functions
   # * Created a changelog
   #
   #
   # 0.2:
   # * Added more bindings to mocp.
   # * Fixed stop-play problem
   # * Added support for toggle between play and pause
   #
   ########

   # Display help
   sub mocp_help {
   Irssi::print("iMOCP commands:");
   Irssi::print("/mocp play – Play track");
   Irssi::print("/mocp pause – Pause track");
   Irssi::print("/mocp p – Toggle between play and pause");
   Irssi::print("/mocp next – Next track");
   Irssi::print("/mocp n – Next track");
   Irssi::print("/mocp prev – Previous track");
   Irssi::print("/mocp b – Previous track");
   Irssi::print("/mocp np – Print out current track in channel, title by ID3 tag");
   Irssi::print("/mocp npf – Print out current track in channel, filename");
   Irssi::print("/mocp info – Information about the current track");
   Irssi::print("/mocp i – Information about the current track");
   Irssi::print("/mocp help – Display this help");
   }

   # Fetch title
   sub mocp_np {
   my ($data, $server, $item) = @_;

   my $info=`mocp -i`;
   my($title) = $info =~ /^Title: (.*?)\n/ms;

   if ($title == "") {
   my($title) = $info =~ /^File: (.*?)\n/ms;
   }

   # These are the text’s that should be shown before and after the filename in the output
   my $msg_first = ‘Music_On_Console playing:’;
   my $msg_last = ”;

   if ($item && ($item->{type} eq "CHANNEL" || $item->{type} eq "QUERY")) {
   $item->command("MSG ".$item->{name}." $msg_first\’$title\’$msg_last");
   } else {
   Irssi::print("Hey, c’mon idiot! You’re not in an channel!");
   }
   }

   # Fetch now playing file
   sub mocp_npf {
   my ($data, $server, $item) = @_;

   my $info=`mocp -i`;
   my($title) = $info =~ /^File: (.*?)\n/ms;

   my @arr = split(‘/’,$title);

   # These are the text’s that should be shown before and after the filename in the output
   my $msg_first = ‘np: ‘;
   my $msg_last = ‘ – moc 2.4.0′;

   if ($item && ($item->{type} eq "CHANNEL" || $item->{type} eq "QUERY")) {
   $item->command("MSG ".$item->{name}." $msg_first\’@arr[scalar(@arr) - 1]\’$msg_last");
   } else {
   Irssi::print("Hey, c’mon idiot! You’re not in an channel!");
   }
   }

   # Switch to the next song
   sub mocp_next {
   my ($data, $server, $item) = @_;

   my $next=`mocp -f`;
   Irssi::print("iMOCP: Switching to next song");
   }

   # Switch to prev song
   sub mocp_prev {
   my ($data, $server, $item) = @_;

   my $next=`mocp -r`;
   Irssi::print("iMOCP: Switching to previous song");
   }

   # Fetch song info
   sub mocp_info {
   my ($data, $server, $item) = @_;

   my $info=`mocp -i`;

   Irssi:print("iMOCP:\n*****\n".$info."\n*****");

   }

   # Play or pause the music
   sub mocp_play_pause {
   my ($data, $server, $item) = @_;

   my $next=`mocp -G`;
   Irssi::print("iMOCP: Play/pause");
   }

   # Stop the music
   #sub mocp_stop {
   # my ($data, $server, $item) = @_;
   #
   # my $next=`mocp -s`;
   # Irssi::print("iMOCP: Stop");
   #}

   # This is used to bind the mocp command the the fetch function
   Irssi::command_bind ‘mocp’ => sub {
   my ( $data, $server, $item ) = @_;
   $data =~ s/\s+$//g;
   Irssi::command_runsub (‘mocp’, $data, $server, $item ) ;
   };

   # Handle subactions
   Irssi::signal_add_first ‘default command mocp’ => sub {
   # If unknown subcommand
   Irssi::print("iMOCP: Unknown command, \"/mocp help\" might give you a clue!");
   };

   # Bindings
   Irssi::command_bind(‘mocp np’, ‘mocp_np’);
   Irssi::command_bind(‘mocp npf’, ‘mocp_npf’);
   Irssi::command_bind(‘mocp next’, ‘mocp_next’);
   Irssi::command_bind(‘mocp n’, ‘mocp_next’);
   Irssi::command_bind(‘mocp prev’, ‘mocp_prev’);
   Irssi::command_bind(‘mocp b’, ‘mocp_prev’);
   Irssi::command_bind(‘mocp play’, ‘mocp_play_pause’);
   Irssi::command_bind(‘mocp p’, ‘mocp_play_pause’);
   Irssi::command_bind(‘mocp pause’, ‘mocp_play_pause’);
   Irssi::command_bind(‘mocp info’, ‘mocp_info’);
   Irssi::command_bind(‘mocp i’, ‘mocp_info’);
   Irssi::command_bind(‘mocp help’, ‘mocp_help’);

   ####################################################################[/perl]

   Именуваме скрипта примерно “imocp.pl”

2. Владимир Колев
   Posted 15/03/2010 at 21:24 | Permalink | Reply

   Ето и едно скриптче, което за съжаление никъде не намерих и трябваше сам да направя. Това ще покаже актуалната песен свиреща в Banshee:

   [perl]#!/usr/bin/perl -w

   BEGIN{
   use vars ‘$hook’,'$info’;
   eval q {
   use Irssi;
   };
   $hook = !!$@;
   }

   sub bp
   {
   $artist_info = `banshee –query-artist`;
   $title_info = `banshee –query-title`;;

   $info = substr($artist_info, 6, -2) . " – " . substr($title_info, 6, -1);
   Irssi::active_win->command("/me is now playing".$info."\r\n");
   return 1;
   }

   if ($hook){
   rb();
   }else{
   Irssi::command_bind(‘bp’, ‘bp’)
   }[/perl]