[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdenetwork/ksirc
From:       Marco Gulino <marcogulino1 () virgilio ! it>
Date:       2004-11-06 11:54:42
Message-ID: 20041106115442.4D54716E2E () office ! kde ! org
[Download RAW message or body]

CVS commit by gulino: 

added /amarok to ksirc.pl saying in channel amarok infos


  M +29 -1     ksirc.pl   1.41


--- kdenetwork/ksirc/ksirc.pl  #1.40:1.41
@@ -62,4 +62,9 @@
 Defaults the the current channel.");
 
+&addhelp("Amarok",
+"\cbAdded by KSirc.pl\cb
+Usage: AMAROK
+Sends a message to the current channel saying what are you playing in amarok.");
+
 sub cmd_wallop {
   &getarg;
@@ -750,4 +755,27 @@
 
 
+sub cmd_amarok
+{
+    $dcop=`dcop amarok`;
+    if(! ($dcop =~ /player/) ) {
+        &print("Error: Amarok is *not* running");
+        return;
+    }
+
+    $dcop=`dcop amarok player isPlaying`;
+    if(! ($dcop =~ /true/) ) {
+        &print("Amarok is not playing anithing");
+        return
+    }
+
+    $output='is playing "$dcop" with Amarok';
+    $dcop= `dcop amarok player nowPlaying` ;
+$dcop =~ s/^\s+//;
+$dcop =~ s/\s+$//;
+    $output=~ s/(\$\w+)/$1/eeg; 
+    &me( $output );
+}
+&addcmd("amarok");
+
 
 


[prev in list] [next in list] [prev in thread] [next in thread]