xchat-script (editierbares favorieten-menu)

[Chakotay]

ich wusste nicht ganz wos hingehöhrt *hoff ich bin hier net zu falsch

also ich benutzte fürs IRC xchat
nun möchte ich da ein editierbares favoriten-menu haben
und da ich nirgens ein brauchbares finden konnte dachte ich
machen wa doch selber eins

nun haperts ein wenig an der umsetzung


ich hab ein menu

und ich hab eine editierbare textdatei dabei

was ich nicht hab iss der befehl damit er aus jeder zeile der textdatei einen menüpunkt macht

Code: Alles auswählen

#!/usr/bin/perl -w
# written by Chakotay

my $NAME    = "X-Chat Favoriten-Menu";
my $VERSION = "v1.5";
my $chanfav = "    ~/.xchat2/CS-MODULE/favoriten-chan.txt" ;
my $editor = "kate";

Xchat::register($NAME, $VERSION, 
	"[Chako]Scripts ($NAME)") ;

IRC::command('/MENU -p6 ADD "Favoriten"') ;
IRC::command('/MENU ADD "Favoriten/Channel"') ;

## der folgende befehl soll pro eintrag in der ~/.xchat2/CS-MODULE/favoriten-chan.txt gemacht werden
## wobei aus dem befehl das $chanfav eig immer eine/die nächste zeile aus der ~/.xchat2/CS-MODULE/favoriten-chan.txt sein sollte
# iss es aber nich :-(

### ANFANG meines problembereiches ^^

IRC::command("/MENU ADD \"Favoriten/Channel/$chanfav\" \"JOIN $chanfav\"") ;

### ENDE meines problembereiches ^^

IRC::command('/MENU ADD "Favoriten/Channel/-"') ;

Xchat::command("menu ADD \"Favoriten/Channel/Edit Favoriten\" \"exec $editor $chanfav\"");

und so sollte die ~/.xchat2/CS-MODULE/favoriten-chan.txt aussehen

Code: Alles auswählen

 
#chan1
#chan2
#chan3

kennt sich hier einer damit aus und kann mir vielleich helfen ?

[Chakotay]

iss hier wirklich keiner der n tip hat ?

*bitte*

[Chakotay]

Funktioniert zwar immernoch nicht
sieht aber glaub schon besser aus oder ?

Code: Alles auswählen

#!/usr/bin/perl -w
# written by Chakotay

my $NAME    = "X-Chat Favoriten-Menu";
my $VERSION = "v0.5";
my $home = Xchat::get_info("xchatdir");
my $chanfav = "$home/CS-MODULE/favoriten-chan.txt" ;
my $servfav = "$home/CS-MODULE/favoriten-serv.txt" ;
my $editor = "kate";

Xchat::register($NAME, $VERSION, 
	"[Chako]Scripts ($NAME)") ;

IRC::add_command_handler("CSAFSM","ADD_Menu_Server_favs") ;
IRC::add_command_handler("CSAFCM","ADD_Menu_Channel_favs") ;

IRC::command('/MENU DEL "Favoriten"') ;

IRC::command('/MENU -p6 ADD "Favoriten"') ;
IRC::command('/MENU ADD "Favoriten/Channel"') ;
IRC::command('/MENU ADD "Favoriten/Channel/Join Channel" "getstr # join "Enter Channel to Join:""') ;
IRC::command('/MENU ADD "Favoriten/Channel/-"') ;
IRC::command('/MENU ADD "Favoriten/Channel/#flirtwelten.de" "JOIN #flirtwelten.de"') ;
IRC::command('/MENU ADD "Favoriten/Channel/#MKI-Haendler" "JOIN #MKI-Händler"') ;

IRC::command("/CSAFCM") ;

IRC::command('/MENU ADD "Favoriten/Server"') ;
IRC::command('/MENU ADD "Favoriten/Server/Join Server" "getstr "irc." "NEWSERVER" "Enter server to Join:""') ;
IRC::command('/MENU ADD "Favoriten/Server/-"') ;

IRC::command("/CSAFSM") ;

IRC::command('/MENU ADD "Favoriten/Channel/-"') ;
IRC::command('/MENU ADD "Favoriten/Server/-"') ;
Xchat::command("menu ADD \"Favoriten/Channel/Edit Favoriten\" \"exec $editor $chanfav\"");
Xchat::command("menu ADD \"Favoriten/Server/Edit Favoriten\" \"exec $editor $servfav\"");
#
### ANFANG Nicht so Funktionierender Teil wie ich es möchte^^
#
sub ADD_Menu_Server_favs
{
  open $servfav => my $servfavtxt = () ;
  IRC::command("/MENU ADD \"Favoriten/Server/$servfavtxt\" \"NEWSERVER $servfavtxt\"") ;
  return 1 ;
}


sub ADD_Menu_Channel_favs
{
  open $chanfav => my $chanfavtxt = () ;
  IRC::command("/MENU ADD \"Favoriten/Channel/$chanfavtxt\" \"JOIN $chanfavtxt\"") ;
  return 1 ;
}
#
### ENDE
#