Adding upstream version 20231031.upstream/20231031upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 368 insertions, 0 deletions

diff --git a/scripts/miodek.pl b/scripts/miodek.pl
new file mode 100644
index 0000000..ce00bc6
--- /dev/null
+++ b/scripts/miodek.pl
@@ -0,0 +1,368 @@
+# Miodek 1.0.2
+#
+# Lam 10-11.9.2001 + późniejsze zmiany słownika (głównie YagoDa)
+#
+# Pewnie ten skrypt jest napisany źle, co prawdopodobnie wynika z faktu, że
+# to w ogóle mój pierwszy skrypt w perlu, ale cóż, na pewno ludzie, których
+# ten skrypt kopie są głupsi od niego :)
+#
+# Słownik jest wynikiem nocnego przeglądania logów z irca (głównie
+# grepowania po "sh" oraz "kunia") i powiększa się podczas każdej rozmowy :)
+#
+# 10:32 <aska|off> hm... to u was za kopiom???????
+# 10:32 <aska|off> ehhee za kcenie??????
+#
+# Miodek 2.0 z obsługą regexów i słowników w plikach był w
+# przygotowaniu, ale po padzie dysku straciłem ochotę odzyskiwania go.
+# Na jakiś czas.
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.2";
+%IRSSI = (
+	authors => "Leszek Matok, Andrzej Jagodziński",
+	contact => "lam\@lac.pl",
+	name => "miodek",
+	description => "Simple wordkick system, with extended polish dictionary for channels enforcing correct polish.",
+	license => "GPLv2",
+	changed => "10.3.2002 20:10"
+);
+
+
+my $miodek = '
+# moje własne dopiski :> (by yagus)
+
+szypko          szybko
+wogule          w ogole
+qrva            panna lekkich obyczajow
+drobiask        drobiazg
+ogladash        oglądasz
+przeciesh       przecież
+zeszycikof      zeszytów
+widzish         widzisz
+JESOOO          Jezu
+jesooooooo      Jezu
+jesoooooooo     Jezu
+jesooooooooo    Jezu
+jesoooooooooo   Jezu
+jesooooooooooo  Jezu
+jesoooooooooooo Jezu
+zgadzash        zgadzasz
+jesooo          Jezu
+jesoooo         Jezu
+jesooooo        Jezu
+jesoooooo       Jezu
+zobaczysh       zobaczysz
+pokonash        pokonasz
+nawidzish       nawidzisz
+myslish         myœlisz
+komplexof       kompleksów
+chujq           członku
+moofi           mówi
+umiesh          umiesz
+lubish          lubisz
+tilaf           T.Love
+wjesz           wiesz
+priff           priv
+prif            priv
+lukof           Łuków
+lukoof          Łuków
+kad             skąd
+kšd             skąd
+wlosoof         włosów
+wlosof          włosów
+dobzie          dobrze
+fogóle          w ogóle 
+fogole          w ogóle
+wogóle          w ogóle
+wogole          w ogóle
+pishesz         piszesz
+pishesh         piszesz
+mooofish        mówisz
+uwazash         uważasz
+slyshysh        słyszysz
+zaparofaly      zaparowały
+wyprafiash      wyprawiasz
+wyprafiasz      wyprawiasz
+znof            znów
+idziesh         idziesz
+grash           grasz
+moofił          mówił
+moofil          mówił
+qlfa            kurwa
+dopsie          dobrze
+schodof         schodów
+pierdolic       kochać
+pierdolić       kochać
+jebać           uprawiać miłość
+jebac           uprawiać miłość
+pierdolec       kochanek
+psyjechac       przyjechać
+kces            chcesz
+przyjebal       pokochał
+przyjebał       pokochał
+ujebal          pokochał 
+zajebal         zakochał
+ujebał          pokochał
+zajebał         zakochał
+chuja           członka
+huja            członka
+pierdoli        kocha
+odwiezesh       odwieziesz
+bedziesh        będziesz
+mooofiles       mówiłeś
+moofiles        mówiłeś
+mofi            mówi
+dogryzash       dogryzasz
+terash          teraz
+tfooj           twój
+dorosniesh      dorośniesz
+pofiem          powiem
+poffiem         powiem
+dopla           dobra
+doblam          dobra
+# typowe kretynizmy (90% by Lam)
+tesh            też
+tesz            też
+tysh            też
+tysz            też
+jush            już
+jusz            już
+ush             już
+mash            masz
+cush            cóż
+coosh           cóż
+cosh            cóż
+robish          robisz
+jesh            jesz
+# qrwa          kurwa
+kurfa           kurwa
+qrfa            kurwa
+kofam           kocham
+koffam          kocham
+kofany          kochany
+koffany         kochany
+kofana          kochana
+koffana         kochana
+moofie          mówię
+moof            mów
+moofisz         mówisz
+moofish         mówisz
+mofie           mówię
+mof             mów
+mofisz          mówisz
+mofish          mówisz
+pofiem          powiem
+gadash          gadash
+wiesh           wiesz
+fiesh           wiesz
+fiem            wiem
+# tego wprost nienawidzę!
+KCE             chcę
+kce             chcę
+kcem            chcę
+kcesz           chcesz
+kcesh           chcesz
+moshe           może
+mosze           może
+moshna          można
+# widziałem jak jakiś czik o inteligencji ameby pisał "moszna", ale smaczek ;)
+bosh            boże
+boshe           boże
+boshesh         boże
+jesu            Jezu
+joosh           już
+# no tego to ja bym nie wymyślił :)
+fokle           w ogóle
+psheprasham     przepraszam
+# a to słowo ma tyle wersji.. ci ludzie naprawdę się nudzą.
+dobshe          dobrze
+dopshe          dobrze
+dopsze          dobrze
+dopsz           dobrze
+topshe          dobrze
+topsze          dobrze
+topsz           dobrze
+topla           dobra
+toplanoc        dobranoc
+dopry           dobry
+dopra           dobra
+# od tego momentu wyłącznie wyłapane na ircu
+napish          napisz
+palish          palisz
+trafke          trawkę
+trafka          trawka
+slofa           słowa
+pishe           pisze
+piszem          piszę
+moozg           mózg
+kref            krew
+krfi            krwi
+naprafde        naprawdę
+zafsze          zawsze
+dziendopry      dzieńdobry
+snoof           snów
+kopiom          kopią
+kcenie          chcenie
+kcę             chcę
+kórfa           kurwa
+kórwa           kurwa
+mooj            mój
+jesoo           Jezu
+loodzie         ludzie
+loodzi          ludzi
+ktoora          która
+ktoory          który
+ktoore          które
+gloopi          głupi
+gloopia         głupia
+goopi           głupi
+goopia          głupia
+gupi            głupi
+gupia           głupia
+siem            się
+pshesada        przesada
+booziak         buziak
+booziaki        buziaki
+mogem           mogę
+bes             bez
+spowrotem       z powrotem
+poczeba         potrzeba
+niepoczeba      nie potrzeba
+czeba           trzeba
+glofa           głowa
+glofe           głowę
+suonce          słońce
+fitam           witam
+fitaj           witaj
+fitajcie        witajcie
+slofnik         słownik
+# usunięte w wyniku batalii o Jerzego Owsiaka. Prawdopodobnie niedługo
+# zobaczymy to słowo w słowniku. Ciekawe co napiszą pod hasłem "siemanie"?
+# siema         się ma
+# siemasz       się masz
+cieshysh        cieszysz
+tfierdzish      twierdzisz
+jezd            jest
+brzytkie        brzydkie
+brzytki         brzydki
+brzytka         brzydka
+otfarty         otwarty
+otfarte         otwarte
+otfarta         otwarta
+leprzy          lepszy
+leprze          lepsze
+leprza          lepsza
+lepshy          lepszy
+lepshe          lepsze
+lepsha          lepsza
+zief            ziew
+kfila           chwila
+kfile           chwilę
+kfilka          chwilka
+kfilke          chwilkę
+bendem          będę
+lecem           lecę
+pifo            piwo
+pifko           piwko
+pifkiem         piwkiem
+bszytkie        brzydkie
+bszytki         brzydki
+bszytka         brzydka
+goofny          główny
+goofno          gówno
+muoda           młoda
+miaua           miała
+miauam          miałam
+tszeba          trzeba
+wporzo          w porzo
+# na prośbę Upiora trochę bluzgów + nowe by yagoda
+kurwa           dziewica orleańska
+kurwy           panny
+kurwie          pannie
+kurewka         panienka
+kurwo           panno
+qrwa            prostytutka
+# eksperymentalne wielkie litery :-)
+CHUJ            członeczek
+HUJ             członeczek
+KURWA           panienka
+KURWY           panny
+CIPA            pochwa
+PIZDA           pochwa
+SKURWYSYN       Protas
+chuj            członek
+chuje           członki
+chujowo         członkowsko
+chujowy         członkowski
+chujowa         członkowska
+chujowe         członkowskie
+huj             członek
+huje            członki
+hujowo          członkowsko
+hujowy          członkowski
+hujowa          członkowska
+hujowe          członkowskie
+cipa            pochwa
+pizda           pochwa
+pierdolony      kochany
+pierdolona      kochana
+pierdolone      kochane
+jebany          kochany
+jebana          kochana
+jebane          kochane
+skurwysyn       Protas
+skurwysynu      synu prostytutki
+skurwiel        Lam
+skurwielu       z kur wielu
+pierdole        kocham
+jebie           kocham
+pierdol         kochaj
+kutas           penis
+cipka           pochewka
+';
+
+my %slowa;
+my $ilosc_slow = 0;
+
+foreach my $linia (split(/\n/, $miodek)) {
+	chomp $linia;
+	next if ($linia =~ /^#/ || $linia eq "");
+
+	my ($org, $popraw) = split(/\s+/, $linia, 2);
+	$slowa{$org} = $popraw;
+	$ilosc_slow++
+}
+
+sub server_event {
+	my ($server, $data, $nick, $address) = @_;
+	my ($type, $data) = split(/ /, $data, 2);
+	return unless ($type =~ /privmsg/i);
+	my ($target, $tekst) = split(/ :/, $data, 2);
+	my $powod;
+
+	# pozbywam się syfów kontrolnych, oraz ^A z CTCP
+	# może jest jakaś funkcja w irssi do wycinania kolorów mircowych?
+	$tekst =~ s/[
]//g;
+
+	foreach my $wyraz (split(/[\s,.;!?\/"`':()_-]/,$tekst)) {
+		my $popraw = $slowa{$wyraz};
+		if ($popraw) {
+			if ($powod) {
+				$powod = $powod . ", ";
+			}
+			$powod = $powod . $popraw;
+		}
+	}
+
+	if ($powod && $target =~ /^[#!+&]/ ) {
+		$server->command("/kick $target $nick $powod");
+		Irssi::print "%Rkop%n ($target): %c$nick%n, powod: $powod";
+	}
+}
+
+# Musiałem się podczepić pod server event zamiast event privmsg, bo irssi
+# wycina CTCP z PRIVMSG (co jest dla mnie zachowaniem dziwnym).
+Irssi::signal_add_last("server event", "server_event");
+Irssi::print "%GMiodek%c:%n ilość słów w słowniku: $ilosc_slow";