Azet
Dołączył: 13 Lip 2010
Posty: 5
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Wto 23:10, 13 Lip 2010 Temat postu: Notatki by Azet ver. 0.1 |
|
|
Zapisuje notatki do .txt
Skrypt:
| Kod: | use Irssi;
use Irssi::Irc;
use strict;
my $temp = Irssi::get_irssi_dir() . "/scripts/temp";
sub sig_public {
my ($server, $msg, $nick, $address, $channel) = @_;
$msg =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
my $note_file = Irssi::get_irssi_dir() . "/scripts/note_$nick\.txt";
if ($msg =~ m/^!addnote (.+)$/i) {
return unless $nick eq 'Nick1' or $nick eq 'Nick2' or $nick eq 'Nick3' or $nick eq 'Nick4';
my $s_temp = $1;
open(OPER, ">>$note_file");
print OPER "$s_temp\n";
close(OPER);
$server->command("MSG $channel $nick, Twój wpis został dodany: %Ce40f0f%$s_temp");
}
my ($server, $msg, $nick, $address, $channel) = @_;
$msg =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
my $note_file = Irssi::get_irssi_dir() . "/scripts/note_$nick\.txt";
if ($msg =~ /^!delnote (.+)$/i) {
return unless $nick eq 'Nick1' or $nick eq 'Nick2' or $nick eq 'Nick3' or $nick eq 'Nick4';
my $s_temp = $1;
open(OPER, "<$note_file");
my @list = ;
close(OPER);
my $remove = "@list";
if ($remove =~ /$s_temp/) {
system("sed '/$s_temp/d' $note_file > $temp && rm $note_file && mv $temp $note_file");
$server->command("MSG $channel $nick, %C0f2ab1%$s_temp %Ce40f0f%został usunięty z Twoich notatek");
}
}
}
my ($server, $msg, $nick, $address, $channel) = @_;
$msg =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
my $note_file = Irssi::get_irssi_dir() . "/scripts/note_$nick\.txt";
if ($msg =~ m/^!mynotes/i) {
return unless $nick eq 'Nick1' or $nick eq 'Nick2' or $nick eq 'Nick3' or $nick eq 'Nick4';
$server->command("MSG $channel $nick, %C0f2ab1%Twoje notki to:");
open(LICZ, "<$note_file");
my @ilosc = ;
close (LICZ);
my $count = 0;
foreach my $wypisz (@ilosc) {
$count++;
if ($wypisz) {
$server->command("MSG $channel #$count: %Ce40f0f%$wypisz");
}
}
}
Irssi::signal_add_last('message public', 'sig_public'); |
Konfiguracja :
| Kod: | | 1. Zmieniamy : Nick_1, Nick_2, Nick_3 na nicki, które mają mieć dostęp do notatek |
Komendy:
| Kod: | !addnote - Dodaje nową notatke
!delnote - Usuwa notatke (wystarczy jeden wyraz z notatki)
!mynotes - Moje notatki, wyśweitla. |
Post został pochwalony 0 razy
Ostatnio zmieniony przez Azet dnia Wto 23:15, 13 Lip 2010, w całości zmieniany 2 razy
|
|
