rendered paste body#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE;
my $version="1.0.1";
Xchat::register("iTunes-Info", $version, "DMS",sub{&unload();});
Xchat::print("\n\n\00312.:: iTunes-Info 2005 ::.\003\n");
Xchat::print("\00312::: Version $version :::\003\n");
Xchat::print("\00312::: © DMS '05 :::\003\n\n");
Xchat::hook_command('iTunes_play','playHandler',{help_text => ''});
Xchat::hook_command('iTunes_pause','pauseHandler',{help_text => ''});
Xchat::hook_command('iTunes_stop','stopHandler',{help_text => ''});
Xchat::hook_command('iTunes_prev','prevHandler',{help_text => ''});
Xchat::hook_command('iTunes_next','nextHandler',{help_text => ''});
Xchat::hook_command('iTunesInfo','getInfo',{help_text => 'announce info to chanel'});
Xchat::hook_command('iTunesInfo_Set','iTunesInfoSet',{help_text => 'usage: iTunesInfo_Set [Field [Value]]'});
Xchat::hook_command('iTunesInfo_addFileLine','addFileLine',{help_text => 'add announce line for files'});
Xchat::hook_command('iTunesInfo_addStreamLine','addStreamLine',{help_text => 'add announce line for streams'});
Xchat::hook_command('iTunesInfo_showConf','showConfig',{help_text => 'show config'});
Xchat::hook_command('iTunesInfo_reloadTheme','loadTheme',{help_text => 'reloads theme'});
Xchat::hook_command('iTunesInfo_addButton','addButton',{help_text => 'reloads theme'});
Xchat::hook_print('Channel Message', 'chanMsg'); #uncomment this line if you don't want to announce by !mp3 command
Xchat::hook_print('Channel Msg Hilight', 'chanMsg'); #uncomment this line if you don't want to announce by !mp3 command
my @FILE_LINES;
my @STREAM_LINES;
my %VAR;
&init();
sub addButton{
Xchat::command("addbutton iTunes itunesinfo");
return Xchat::EAT_ALL;
}
sub playHandler{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
$iTunesApp->Play();
return Xchat::EAT_ALL;
}
sub pauseHandler{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
$iTunesApp->Pause();
return Xchat::EAT_ALL;
}
sub stopHandler{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
$iTunesApp->Stop();
return Xchat::EAT_ALL;
}
sub prevHandler{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
$iTunesApp->PreviousTrack(); #BackTrack();
return Xchat::EAT_ALL;
}
sub nextHandler{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
$iTunesApp->NextTrack();
return Xchat::EAT_ALL;
}
sub showConfig{
my $tBar=getBar(40);
Xchat::print("\nITunesInfo-Configuration");
my $line;
foreach $line(@FILE_LINES){ IRC::print(" File-Line: $line");}
foreach $line(@STREAM_LINES){IRC::print(" Stream-Line: $line");}
Xchat::print(" Stopedcommand: $VAR{STOPEDCOMMAND}");
Xchat::print(" Barchar: $VAR{BARCHAR}");
Xchat::print(" Barusedcolor: $VAR{BARUSEDCOLOR}");
Xchat::print(" Barfreecolor: $VAR{BARFREECOLOR}");
Xchat::print(" Samplebar: $tBar");
}
sub printSet{
my $field=shift(@_);
my $line;
if (($field eq "FILE_LINE")||($field eq "STREAM_LINE")){
if ($field eq "FILE_LINE"){foreach $line(@FILE_LINES){ IRC::print(" File-Line: $line");}}
if ($field eq "STREAM_LINE"){foreach $line(@STREAM_LINES){IRC::print(" Stream-Line: $line");}}
}
else {Xchat::print("$field = $VAR{$field}");}
}
sub printSetHelp(){
Xchat::print("Available Settings for iTunesInfo");
Xchat::print("BARCHAR - Char used in progresbar");
Xchat::print("BARUSEDCOLOR - Colorcode for used part of bar (e.g. 03)");
Xchat::print("BARFREECOLOR - Colorcode for rest part of bar (e.g. 16)");
Xchat::print("STOPEDCOMMAND - command to announce to channel if iTunes is stoped/paused");
Xchat::print("FILE_LINE - comand to announce if file is played (all other will be removed, better use \"iTunesInfo_addFileLine\")");
Xchat::print("STREAM_LINE - command to annoince if stream is played (all other will be removed, better use \"iTunesInfo_addStreamLine\")");
}
sub iTunesInfoSet{
if (!$_[0][1]){printSetHelp();return Xchat::EAT_ALL;}
my $field=uc($_[0][1]);
if (($field ne "FILE_LINE")&&($field ne "STREAM_LINE")&&($field ne "BARCHAR")&&($field ne "BARFREECOLOR")&&($field ne "BARUSEDCOLOR")&&($field ne "POSTCOMMAND")&&($field ne "STOPEDCOMMAND")){
Xchat::print("not a valid field");return Xchat::EAT_ALL;
}
if (!$_[0][2]){printSet($field);return Xchat::EAT_ALL;}
my $val=$_[1][2];
if (($field eq "FILE_LINE")||($field eq "STREAM_LINE")){
if ($field eq "FILE_LINE"){clearArr("FILE_LINES"); push(@FILE_LINES,$val);}
if ($field eq "STREAM_LINE"){clearArr("STREAM_LINES"); push(@STREAM_LINES,$val);}
}
else {$VAR{$field}=$val;}
my $themefile=Xchat::get_info("xchatdir");$themefile="$themefile/iTunesInfo.theme.txt";
my $db= readFile($themefile);
open (DB, ">$themefile");
my $line;
foreach $line(split "\n", $db){
my($var,$value)=(split "=", $line);
print DB "$var=$value\n" if ($var ne $field);
}
print DB "$field=$val\n";
close(DB);
IRC::print("\00312.:: $field changed to $val ::.\003\n");
return Xchat::EAT_ALL;
}
sub addFileLine{
my $val=$_[1][1];
push(@FILE_LINES,$val);
addLine("FILE_LINE",$val);
Xchat::print("Fileline added");
}
sub addStreamLine{
my $val=$_[1][1];
push(@STREAM_LINES,$val);
addLine("STREAM_LINE",$val);
Xchat::print("Streamline added");
}
sub addLine{
my $field=shift(@_);
my $val=shift(@_);
my $themefile=Xchat::get_info("xchatdir");$themefile="$themefile/iTunesInfo.theme.txt";
my $db= readFile($themefile);
open (DB, ">$themefile");
my $line;
foreach $line(split "\n", $db){
print DB "$line\n";
}
print DB "$field=$val\n";
}
sub chanMsg{
my $msg=$_[0][1];
$msg =~ s/^\s+//;
$msg =~ s/\s+$//;
my $nick=uc(Xchat::get_info("nick"));
#Xchat::print("msg: \"$msg\"");
##old##if ((uc($msg) eq "!MP3")||(uc($msg) eq "!MP3 $nick")){
if ((uc($msg) eq "!iwillneverusethiscommandtorapesomeonesconnection")||(uc($msg) eq "!iwillneverusethiscommandtoattempttorapesomeonesconnection.ipromise. $nick")){
getInfo();
}
return Xchat::EAT_NONE;
}
sub getInfo{
my $iTunesApp = Win32::OLE->new("iTunes.Application");
if(!$iTunesApp){Xchat::print("No iTunes App found");return Xchat::EAT_ALL;}
my $itState=$iTunesApp->PlayerState();
#if ($itState==0){Xchat::print("stopped");}
#if ($itState==1){Xchat::print("playling");}
#if ($itState==2){Xchat::print("Fast forward");}
#if ($itState==3){Xchat::print("rewind");}
$ENV{version}=$iTunesApp->Version();
if ($itState==0){
#Xchat::print(themeLine($VAR{STOPEDCOMMAND}));
Xchat::command(themeLine($VAR{STOPEDCOMMAND}));
return Xchat::EAT_ALL;
}
my $itPos=$iTunesApp->{'PlayerPosition'};
$ENV{play_time_min} = timeString($itPos,0);
$ENV{play_time} = timeString($itPos,1);
$ENV{play_time_auto} = timeString($itPos,2);
my $itTrack=$iTunesApp->CurrentTrack();
my $kind=$itTrack->{'Kind'};
$ENV{title}=$itTrack->{'Name'};
$ENV{bitrate}=$itTrack->{'BitRate'};
$ENV{rate}=$itTrack->{'SampleRate'};
$ENV{played}=$itTrack->{'PlayedCount'};
$ENV{rating}=$itTrack->{'Rating'}; #percent
$ENV{bpm}=$itTrack->{'BPM'};
if ($kind==3){ # STREAM
#Xchat::print(themeStream());
Xchat::command(themeStream());
return Xchat::EAT_ALL;
}
$ENV{artist}=$itTrack->{'Artist'};
$ENV{album}=$itTrack->{'Album'};
$ENV{comment}=$itTrack->{'Comment'};
#Composer
my $len=$itTrack->{'Duration'};#seconds
$ENV{length_min} = timeString($len,0);
$ENV{length} = timeString($len,1);
$ENV{length_auto} = timeString($len,2);
$ENV{percent}=0;
if ($len ne 0){ $ENV{percent}=int(($itPos/$len)*100);}
$ENV{bar}=&getBar($ENV{percent});
$ENV{genre}=$itTrack->{'Genre'};
$ENV{year}=$itTrack->{'Year'};
$ENV{disc}=$itTrack->{'DiscNumber'};
$ENV{discs}=$itTrack->{'DiscCount'};
my $size=$itTrack->{'Size'}; #bytes
$ENV{mbsize} = int($size / 1024 / 10.24 + 0.5) / 100;
my $ext="b";
$ENV{size_auto}=$size;
if ($ENV{size_auto}>1024){$ext="kb";$ENV{size_auto}=int($ENV{size_auto}/1024);}
if ($ENV{size_auto}>1024){$ext="mb";$ENV{size_auto}=int($ENV{size_auto}/1024);}
$ENV{size_auto}="$ENV{size_auto}$ext";
#Xchat::print(themeFile());
Xchat::command(themeFile());
return Xchat::EAT_ALL;
}
sub readFile{
my $path=shift(@_);
my $data;
if (!open(DB, "<","$path")){Xchat::print("file not found: $path");return "";}
my @stats=stat(DB);
read (DB,$data,$stats[7]);
close (DB);
return $data;
}
sub clearArr{
my $name=shift(@_);
my $elem;
if ($name eq "FILE_LINES") {foreach $elem (@FILE_LINES){pop(@FILE_LINES);}}
if ($name eq "STREAM_LINES") {foreach $elem (@STREAM_LINES){pop(@STREAM_LINES);}}
}
sub loadTheme{
#FILELINES, STREAMLINES, BARCHAR, BARFREECOLOR, BARUSEDCOLOR, POSTCOMMAND, STOPEDCOMMAND, PAUSECOMMAND
#clearArr(@FILE_LINES);clearArr(@STREAM_LINES);
clearArr("FILE_LINES");clearArr("STREAM_LINES");
my $themefile=Xchat::get_info("xchatdir");$themefile="$themefile/iTunesInfo.theme.txt";
my $line;
foreach $line (split "\n", readFile($themefile)){
my($var0, $value)=(split "=", $line);
$value=replace($value,"%C",chr(3));
$value=replace($value,"%B",chr(2));
#$value=replace($value,"%U",chr(37));
#$value=replace($value,"%O",chr(17));
#$value=replace($value,"%R",chr(26));
if (index($var0,"LINE") >= 0){
if ($var0 eq "FILE_LINE"){push (@FILE_LINES, $value);}
if ($var0 eq "STREAM_LINE"){push (@STREAM_LINES, $value);}
}
else {$VAR{$var0}=$value;}
}
$VAR{BARCHAR}="|" if (!$VAR{BARCHAR});
$VAR{BARFREECOLOR}="03" if (!$VAR{BARFREECOLOR});
$VAR{BARUSEDCOLOR}="16" if (!$VAR{BARUSEDCOLOR});
#$VAR{POSTCOMMAND}="say" if (!$VAR{POSTCOMMAND});
$VAR{STOPEDCOMMAND}="say iTunes %version stopped" if (!$VAR{STOPEDCOMMAND});
#$VAR{PAUSECOMMAND}="say iTunes %version stopped" if (!$VAR{PAUSECOMMAND});
#$VAR{}="" if (!$VAR{});
##old##if (!@FILE_LINES) {IRC::print("no file-line found\n");push(@FILE_LINES,"say i'm listening to %artist with %title since %playtime_auto");}
##old##if (!@STREAM_LINES) {IRC::print("no stream-line found\n");push(@STREAM_LINES,"say i'm listening to %title since %playtime_auto");}
if (!@FILE_LINES) {IRC::print("no file-line found\n");push(@FILE_LINES,"say I'm listening to '%title' by /%artist/");}
if (!@STREAM_LINES) {IRC::print("no stream-line found\n");push(@STREAM_LINES,"say I've been listening to '%title' since %playtime_auto");}
return Xchat::EAT_ALL;
}
sub init{
loadTheme();
}
sub timeString{
my $secs=shift(@_);
my $mode=shift(@_);
my $mm=int($secs / 60);
my $ss=$secs%60;
if ($mode==0) {return sprintf('%d:%02d',$mm,$ss);}
my $hh=int($mm/60);$mm=$mm%60;
if (($mode==1)||($hh>0)) {return sprintf('%d:%02d:%02d',$hh,$mm,$ss);}
return sprintf('%02d:%02d',$mm,$ss);
}
sub getBar{
my $percent=shift(@_);
my $b1=int($percent/10);
my $b2=(10-$b1);
my $bar="\002\003$VAR{BARUSEDCOLOR}";
for (my $i=0;$i < $b1;$i=$i+1){$bar="$bar$VAR{BARCHAR}";}
$bar="$bar\003$VAR{BARFREECOLOR}";
for (my $i=0;$i < $b2;$i=$i+1){$bar="$bar$VAR{BARCHAR}";}
$bar="$bar\003\002";
return $bar
}
sub count{
my @arr=@_;my $i=0;
foreach $a (@arr){$i=$i+1;}
return $i;
}
sub randLine{
my @lines=@_;
my $lcount=count(@lines);
my $line=int(rand($lcount));
return $lines[$line];
}
sub themeFile{return themeLine(randLine(@FILE_LINES));}
sub themeStream{return themeLine(randLine(@STREAM_LINES));}
sub themeLine{
my $line=shift(@_);
#$line=replace($line,"%",$ENV{});
$line=replace($line,"%version",$ENV{version});
$line=replace($line,"%playtime_min",$ENV{play_time_min});
$line=replace($line,"%playtime_auto",$ENV{play_time_auto});
$line=replace($line,"%playtime",$ENV{play_time});
$line=replace($line,"%title",$ENV{title});
$line=replace($line,"%bitrate",$ENV{bitrate});
$line=replace($line,"%srate",$ENV{rate});
$line=replace($line,"%played",$ENV{played});
$line=replace($line,"%rating",$ENV{rating});
$line=replace($line,"%bpm",$ENV{bpm});
$line=replace($line,"%artist",$ENV{artist});
$line=replace($line,"%album",$ENV{album});
$line=replace($line,"%comment",$ENV{comment});
$line=replace($line,"%len_min",$ENV{length_min});
$line=replace($line,"%len_auto",$ENV{length_auto});
$line=replace($line,"%len",$ENV{length});
$line=replace($line,"%percent",$ENV{percent});
$line=replace($line,"%bar",$ENV{bar});
$line=replace($line,"%genre",$ENV{genre});
$line=replace($line,"%year",$ENV{year});
$line=replace($line,"%discs",$ENV{discs});
$line=replace($line,"%disc",$ENV{disc});
$line=replace($line,"%size_mb",$ENV{mbsize});
$line=replace($line,"%size_auto",$ENV{size_auto});
my $c10=chr(10);
my $c13=chr(13);
my $CC=chr(3);my $CB=chr(2);my $CU=chr(37);my $CO=chr(17);my $CR=chr(26);
my $c1310="$c13$c10";
$line=replace($line,$c1310,"; ");
$line=replace($line,$c10,"; ");
$line=replace($line,$c13,"; ");
$line=replace($line,"%B",$CB);$line=replace($line,"%C",$CC);$line=replace($line,"%O",$CO);$line=replace($line,"%U",$CU);$line=replace($line,"%R",$CR);
return $line;
}
sub replace{
my $text=shift(@_);
my $pattern=shift(@_);
my $newText=shift(@_);
my $left="";
my $right="";
while (index($text,$pattern) ne -1){
$left=substr($text,0,index($text,$pattern));
$right=substr($text,index($text,$pattern)+length($pattern));
$text="$left$newText$right";
}
return $text;
}