Sie sind nicht angemeldet.
03.07.2006, 08:41
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
#!/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";
my $chanfavtxt = "?????????" ;
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 $chanfavtxt 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/$chanfavtxt" "JOIN $chanfavtxt"") ;
### ENDE meines problembereiches ^^
IRC::command('/MENU ADD "Favoriten/Channel/-"') ;
Xchat::command("menu ADD "Favoriten/Channel/Edit Favoriten" "exec $editor $chanfav"");
|
|
|
Quellcode |
1 2 3 |
#chan1 #chan2 #chan3 |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Chakotay« (03.07.2006, 12:27)
04.07.2006, 13:49
?|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
#!/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
#
|
