Menu
▾
▴
tuxaator-commits — cvs commits
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
(12) |
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(5) |
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(19) |
Mar
|
Apr
(13) |
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
| 2006 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(3) |
Jul
(2) |
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
(2) |
|
From: Andres S. <di...@us...> - 2006-12-23 20:53:42
|
Update of /cvsroot/tuxaator/tuxaator/tuxaator3/used_input In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv8962/used_input Added Files: ISO-639-2_values_8bits.txt iso639loc_to_tab.pl Log Message: * new current state of IRCNet's #linux.ee T3EE --- NEW FILE: iso639loc_to_tab.pl --- #! /usr/bin/perl -w use strict; use Encode; while (<>) { chomp; $_ = Encode::encode('utf-8', Encode::decode('latin-1', $_)); my ($code1, $code2, $code3, $ename, $fname, $rest) = split /\|/; die "Bad input" if defined $rest or not defined $fname; print join('/', grep !/^$/, $code1, $code2, $code3), ": $ename / $fname\n"; } --- NEW FILE: ISO-639-2_values_8bits.txt --- aar||aa|Afar|afar abk||ab|Abkhazian|abkhaze ace|||Achinese|aceh ach|||Acoli|acoli ada|||Adangme|adangme ady|||Adyghe; Adygei|adyghe afa|||Afro-Asiatic (Other)|afro-asiatiques, autres langues afh|||Afrihili|afrihili afr||af|Afrikaans|afrikaans ain|||Ainu|aïnou aka||ak|Akan|akan akk|||Akkadian|akkadien alb|sqi|sq|Albanian|albanais ale|||Aleut|aléoute alg|||Algonquian languages|algonquines, langues alt|||Southern Altai|altai du Sud amh||am|Amharic|amharique ang|||English, Old (ca.450-1100)|anglo-saxon (ca.450-1100) anp|||Angika|angika apa|||Apache languages|apache ara||ar|Arabic|arabe arc|||Aramaic|araméen arg||an|Aragonese|aragonais arm|hye|hy|Armenian|arménien arn|||Araucanian|araucan arp|||Arapaho|arapaho art|||Artificial (Other)|artificielles, autres langues arw|||Arawak|arawak asm||as|Assamese|assamais ast|||Asturian; Bable|asturien; bable ath|||Athapascan languages|athapascanes, langues aus|||Australian languages|australiennes, langues ava||av|Avaric|avar ave||ae|Avestan|avestique awa|||Awadhi|awadhi aym||ay|Aymara|aymara aze||az|Azerbaijani|azéri bad|||Banda|banda bai|||Bamileke languages|bamilékés, langues bak||ba|Bashkir|bachkir bal|||Baluchi|baloutchi bam||bm|Bambara|bambara ban|||Balinese|balinais baq|eus|eu|Basque|basque bas|||Basa|basa bat|||Baltic (Other)|baltiques, autres langues bej|||Beja|bedja bel||be|Belarusian|biélorusse bem|||Bemba|bemba ben||bn|Bengali|bengali ber|||Berber (Other)|berbères, autres langues bho|||Bhojpuri|bhojpuri bih||bh|Bihari|bihari bik|||Bikol|bikol bin|||Bini|bini bis||bi|Bislama|bichlamar bla|||Siksika|blackfoot bnt|||Bantu (Other)|bantoues, autres langues bos||bs|Bosnian|bosniaque bra|||Braj|braj bre||br|Breton|breton btk|||Batak (Indonesia)|batak (Indonésie) bua|||Buriat|bouriate bug|||Buginese|bugi bul||bg|Bulgarian|bulgare bur|mya|my|Burmese|birman byn|||Blin; Bilin|blin; bilen cad|||Caddo|caddo cai|||Central American Indian (Other)|indiennes d'Amérique centrale, autres langues car|||Carib|caribe cat||ca|Catalan; Valencian|catalan; valencien cau|||Caucasian (Other)|caucasiennes, autres langues ceb|||Cebuano|cebuano cel|||Celtic (Other)|celtiques, autres langues cha||ch|Chamorro|chamorro chb|||Chibcha|chibcha che||ce|Chechen|tchétchène chg|||Chagatai|djaghataï chi|zho|zh|Chinese|chinois chk|||Chuukese|chuuk chm|||Mari|mari chn|||Chinook jargon|chinook, jargon cho|||Choctaw|choctaw chp|||Chipewyan|chipewyan chr|||Cherokee|cherokee chu||cu|Church Slavic; Old Slavonic; Church Slavonic; Old Bulgarian; Old Church Slavonic|slavon d'église; vieux slave; slavon liturgique; vieux bulgare chv||cv|Chuvash|tchouvache chy|||Cheyenne|cheyenne cmc|||Chamic languages|chames, langues cop|||Coptic|copte cor||kw|Cornish|cornique cos||co|Corsican|corse cpe|||Creoles and pidgins, English based (Other)|créoles et pidgins anglais, autres cpf|||Creoles and pidgins, French-based (Other)|créoles et pidgins français, autres cpp|||Creoles and pidgins, Portuguese-based (Other)|créoles et pidgins portugais, autres cre||cr|Cree|cree crh|||Crimean Tatar; Crimean Turkish|tatar de Crimé crp|||Creoles and pidgins (Other)|créoles et pidgins divers csb|||Kashubian|kachoube cus|||Cushitic (Other)|couchitiques, autres langues cze|ces|cs|Czech|tchèque dak|||Dakota|dakota dan||da|Danish|danois dar|||Dargwa|dargwa day|||Dayak|dayak del|||Delaware|delaware den|||Slave (Athapascan)|esclave (athapascan) dgr|||Dogrib|dogrib din|||Dinka|dinka div||dv|Divehi; Dhivehi; Maldivian|maldivien doi|||Dogri|dogri dra|||Dravidian (Other)|dravidiennes, autres langues dsb|||Lower Sorbian|bas-sorabe dua|||Duala|douala dum|||Dutch, Middle (ca.1050-1350)|néerlandais moyen (ca. 1050-1350) dut|nld|nl|Dutch; Flemish|néerlandais; flamand dyu|||Dyula|dioula dzo||dz|Dzongkha|dzongkha efi|||Efik|efik egy|||Egyptian (Ancient)|égyptien eka|||Ekajuk|ekajuk elx|||Elamite|élamite eng||en|English|anglais enm|||English, Middle (1100-1500)|anglais moyen (1100-1500) epo||eo|Esperanto|espéranto est||et|Estonian|estonien ewe||ee|Ewe|éwé ewo|||Ewondo|éwondo fan|||Fang|fang fao||fo|Faroese|féroïen fat|||Fanti|fanti fij||fj|Fijian|fidjien fil|||Filipino; Pilipino|filipino; pilipino fin||fi|Finnish|finnois fiu|||Finno-Ugrian (Other)|finno-ougriennes, autres langues fon|||Fon|fon fre|fra|fr|French|français frm|||French, Middle (ca.1400-1600)|français moyen (1400-1600) fro|||French, Old (842-ca.1400)|français ancien (842-ca.1400) frr|||Northern Frisian|frison septentrional frs|||Eastern Frisian|frison oriental fry||fy|Western Frisian|frison occidental ful||ff|Fulah|peul fur|||Friulian|frioulan gaa|||Ga|ga gay|||Gayo|gayo gba|||Gbaya|gbaya gem|||Germanic (Other)|germaniques, autres langues geo|kat|ka|Georgian|géorgien ger|deu|de|German|allemand gez|||Geez|guèze gil|||Gilbertese|kiribati gla||gd|Gaelic; Scottish Gaelic|gaélique; gaélique écossais gle||ga|Irish|irlandais glg||gl|Galician|galicien glv||gv|Manx|manx; mannois gmh|||German, Middle High (ca.1050-1500)|allemand, moyen haut (ca. 1050-1500) goh|||German, Old High (ca.750-1050)|allemand, vieux haut (ca. 750-1050) gon|||Gondi|gond gor|||Gorontalo|gorontalo got|||Gothic|gothique grb|||Grebo|grebo grc|||Greek, Ancient (to 1453)|grec ancien (jusqu'à 1453) gre|ell|el|Greek, Modern (1453-)|grec moderne (après 1453) grn||gn|Guarani|guarani gsw|||Alemani; Swiss German|alémanique guj||gu|Gujarati|goudjrati gwi|||Gwich´in|gwich´in hai|||Haida|haida hat||ht|Haitian; Haitian Creole|haïtien; créole haïtien hau||ha|Hausa|haoussa haw|||Hawaiian|hawaïen heb||he|Hebrew|hébreu her||hz|Herero|herero hil|||Hiligaynon|hiligaynon him|||Himachali|himachali hin||hi|Hindi|hindi hit|||Hittite|hittite hmn|||Hmong|hmong hmo||ho|Hiri Motu|hiri motu hsb|||Upper Sorbian|haut-sorabe hun||hu|Hungarian|hongrois hup|||Hupa|hupa iba|||Iban|iban ibo||ig|Igbo|igbo ice|isl|is|Icelandic|islandais ido||io|Ido|ido iii||ii|Sichuan Yi|yi de Sichuan ijo|||Ijo|ijo iku||iu|Inuktitut|inuktitut ile||ie|Interlingue|interlingue ilo|||Iloko|ilocano ina||ia|Interlingua (International Auxiliary Language Association)|interlingua (langue auxiliaire internationale) inc|||Indic (Other)|indo-aryennes, autres langues ind||id|Indonesian|indonésien ine|||Indo-European (Other)|indo-européennes, autres langues inh|||Ingush|ingouche ipk||ik|Inupiaq|inupiaq ira|||Iranian (Other)|iraniennes, autres langues iro|||Iroquoian languages|iroquoises, langues (famille) ita||it|Italian|italien jav||jv|Javanese|javanais jbo|||Lojban|lojban jpn||ja|Japanese|japonais jpr|||Judeo-Persian|judéo-persan jrb|||Judeo-Arabic|judéo-arabe kaa|||Kara-Kalpak|karakalpak kab|||Kabyle|kabyle kac|||Kachin|kachin kal||kl|Kalaallisut; Greenlandic|groenlandais kam|||Kamba|kamba kan||kn|Kannada|kannada kar|||Karen|karen kas||ks|Kashmiri|kashmiri kau||kr|Kanuri|kanouri kaw|||Kawi|kawi kaz||kk|Kazakh|kazakh kbd|||Kabardian|kabardien kha|||Khasi|khasi khi|||Khoisan (Other)|khoisan, autres langues khm||km|Khmer|khmer kho|||Khotanese|khotanais kik||ki|Kikuyu; Gikuyu|kikuyu kin||rw|Kinyarwanda|rwanda kir||ky|Kirghiz|kirghize kmb|||Kimbundu|kimbundu kok|||Konkani|konkani kom||kv|Komi|kom kon||kg|Kongo|kongo kor||ko|Korean|coréen kos|||Kosraean|kosrae kpe|||Kpelle|kpellé krc|||Karachay-Balkar|karatchai balkar krl|||Karelian|carélien kro|||Kru|krou kru|||Kurukh|kurukh kua||kj|Kuanyama; Kwanyama|kuanyama; kwanyama kum|||Kumyk|koumyk kur||ku|Kurdish|kurde kut|||Kutenai|kutenai lad|||Ladino|judéo-espagnol lah|||Lahnda|lahnda lam|||Lamba|lamba lao||lo|Lao|lao lat||la|Latin|latin lav||lv|Latvian|letton lez|||Lezghian|lezghien lim||li|Limburgan; Limburger; Limburgish|limbourgeois lin||ln|Lingala|lingala lit||lt|Lithuanian|lituanien lol|||Mongo|mongo loz|||Lozi|lozi ltz||lb|Luxembourgish; Letzeburgesch|luxembourgeois lua|||Luba-Lulua|luba-lulua lub||lu|Luba-Katanga|luba-katanga lug||lg|Ganda|ganda lui|||Luiseno|luiseno lun|||Lunda|lunda luo|||Luo (Kenya and Tanzania)|luo (Kenya et Tanzanie) lus|||lushai|Lushai mac|mkd|mk|Macedonian|macédonien mad|||Madurese|madourais mag|||Magahi|magahi mah||mh|Marshallese|marshall mai|||Maithili|maithili mak|||Makasar|makassar mal||ml|Malayalam|malayalam man|||Mandingo|mandingue mao|mri|mi|Maori|maori map|||Austronesian (Other)|malayo-polynésiennes, autres langues mar||mr|Marathi|marathe mas|||Masai|massaï may|msa|ms|Malay|malais mdf|||Moksha|moksa mdr|||Mandar|mandar men|||Mende|mendé mga|||Irish, Middle (900-1200)|irlandais moyen (900-1200) mic|||Mi'kmaq; Micmac|mi'kmaq; micmac min|||Minangkabau|minangkabau mis|||Miscellaneous languages|diverses, langues mkh|||Mon-Khmer (Other)|môn-khmer, autres langues mlg||mg|Malagasy|malgache mlt||mt|Maltese|maltais mnc|||Manchu|mandchou mni|||Manipuri|manipuri mno|||Manobo languages|manobo, langues moh|||Mohawk|mohawk mol||mo|Moldavian|moldave mon||mn|Mongolian|mongol mos|||Mossi|moré mul|||Multiple languages|multilingue mun|||Munda languages|mounda, langues mus|||Creek|muskogee mwl|||Mirandese|mirandais mwr|||Marwari|marvari myn|||Mayan languages|maya, langues myv|||Erzya|erza nah|||Nahuatl|nahuatl nai|||North American Indian|indiennes d'Amérique du Nord, autres langues nap|||Neapolitan|napolitain nau||na|Nauru|nauruan nav||nv|Navajo; Navaho|navaho nbl||nr|Ndebele, South; South Ndebele|ndébélé du Sud nde||nd|Ndebele, North; North Ndebele|ndébélé du Nord ndo||ng|Ndonga|ndonga nds|||Low German; Low Saxon; German, Low; Saxon, Low|bas allemand; bas saxon; allemand, bas; saxon, bas nep||ne|Nepali|népalais new|||Nepal Bhasa; Newari|nepal bhasa; newari nia|||Nias|nias nic|||Niger-Kordofanian (Other)|nigéro-congolaises, autres langues niu|||Niuean|niué nno||nn|Norwegian Nynorsk|norvégien nynorsk nob||nb|Norwegian Bokmål|norvégien bokmål nog|||Nogai|nogaï; nogay non|||Norse, Old|norrois, vieux nor||no|Norwegian|norvégien nqo|||N'ko|n'ko nso|||Northern Sotho; Pedi; Sepedi|sotho du Nord; pedi; sepedi nub|||Nubian languages|nubiennes, langues nwc|||Classical Newari; Old Newari; Classical Nepal Bhasa|newari classique nya||ny|Chichewa; Chewa; Nyanja|chichewa; chewa; nyanja nym|||Nyamwezi|nyamwezi nyn|||Nyankole|nyankolé nyo|||Nyoro|nyoro nzi|||Nzima|nzema oci||oc|Occitan (post 1500); Provençal|occitan (après 1500); provençal oji||oj|Ojibwa|ojibwa ori||or|Oriya|oriya orm||om|Oromo|galla osa|||Osage|osage oss||os|Ossetian; Ossetic|ossète ota|||Turkish, Ottoman (1500-1928)|turc ottoman (1500-1928) oto|||Otomian languages|otomangue, langues paa|||Papuan (Other)|papoues, autres langues pag|||Pangasinan|pangasinan pal|||Pahlavi|pahlavi pam|||Pampanga|pampangan pan||pa|Panjabi; Punjabi|pendjabi pap|||Papiamento|papiamento pau|||Palauan|palau peo|||Persian, Old (ca.600-400 B.C.)|perse, vieux (ca. 600-400 av. J.-C.) per|fas|fa|Persian|persan phi|||Philippine (Other)|philippines, autres langues phn|||Phoenician|phénicien pli||pi|Pali|pali pol||pl|Polish|polonais pon|||Pohnpeian|pohnpei por||pt|Portuguese|portugais pra|||Prakrit languages|prâkrit pro|||Provençal, Old (to 1500)|provençal ancien (jusqu'à 1500) pus||ps|Pushto|pachto qaa-qtz |||Reserved for local use|réservée à l'usage local que||qu|Quechua|quechua raj|||Rajasthani|rajasthani rap|||Rapanui|rapanui rar|||Rarotongan|rarotonga roa|||Romance (Other)|romanes, autres langues roh||rm|Raeto-Romance|rhéto-roman rom|||Romany|tsigane rum|ron|ro|Romanian|roumain run||rn|Rundi|rundi rup|||Aromanian; Arumanian; Macedo-Romanian|aroumain; macédo-roumain rus||ru|Russian|russe sad|||Sandawe|sandawe sag||sg|Sango|sango sah|||Yakut|iakoute sai|||South American Indian (Other)|indiennes d'Amérique du Sud, autres langues sal|||Salishan languages|salish, langues sam|||Samaritan Aramaic|samaritain san||sa|Sanskrit|sanskrit sas|||Sasak|sasak sat|||Santali|santal scc|srp|sr|Serbian|serbe scn|||Sicilian|sicilien sco|||Scots|écossais scr|hrv|hr|Croatian|croate sel|||Selkup|selkoupe sem|||Semitic (Other)|sémitiques, autres langues sga|||Irish, Old (to 900)|irlandais ancien (jusqu'à 900) sgn|||Sign Languages|langues des signes shn|||Shan|chan sid|||Sidamo|sidamo sin||si|Sinhala; Sinhalese|singhalais sio|||Siouan languages|sioux, langues sit|||Sino-Tibetan (Other)|sino-tibétaines, autres langues sla|||Slavic (Other)|slaves, autres langues slo|slk|sk|Slovak|slovaque slv||sl|Slovenian|slovène sma|||Southern Sami|sami du Sud sme||se|Northern Sami|sami du Nord smi|||Sami languages (Other)|sami, autres langues smj|||Lule Sami|sami de Lule smn|||Inari Sami|sami d'Inari smo||sm|Samoan|samoan sms|||Skolt Sami|sami skolt sna||sn|Shona|shona snd||sd|Sindhi|sindhi snk|||Soninke|soninké sog|||Sogdian|sogdien som||so|Somali|somali son|||Songhai|songhai sot||st|Sotho, Southern|sotho du Sud spa||es|Spanish; Castilian|espagnol; castillan srd||sc|Sardinian|sarde srn|||Sranan Togo|sranan togo srr|||Serer|sérère ssa|||Nilo-Saharan (Other)|nilo-sahariennes, autres langues ssw||ss|Swati|swati suk|||Sukuma|sukuma sun||su|Sundanese|soundanais sus|||Susu|soussou sux|||Sumerian|sumérien swa||sw|Swahili|swahili swe||sv|Swedish|suédois syr|||Syriac|syriaque tah||ty|Tahitian|tahitien tai|||Tai (Other)|thaïes, autres langues tam||ta|Tamil|tamoul tat||tt|Tatar|tatar tel||te|Telugu|télougou tem|||Timne|temne ter|||Tereno|tereno tet|||Tetum|tetum tgk||tg|Tajik|tadjik tgl||tl|Tagalog|tagalog tha||th|Thai|thaï tib|bod|bo|Tibetan|tibétain tig|||Tigre|tigré tir||ti|Tigrinya|tigrigna tiv|||Tiv|tiv tkl|||Tokelau|tokelau tlh|||Klingon; tlhIngan-Hol|klingon tli|||Tlingit|tlingit tmh|||Tamashek|tamacheq tog|||Tonga (Nyasa)|tonga (Nyasa) ton||to|Tonga (Tonga Islands)|tongan (Îles Tonga) tpi|||Tok Pisin|tok pisin tsi|||Tsimshian|tsimshian tsn||tn|Tswana|tswana tso||ts|Tsonga|tsonga tuk||tk|Turkmen|turkmène tum|||Tumbuka|tumbuka tup|||Tupi languages|tupi, langues tur||tr|Turkish|turc tut|||Altaic (Other)|altaïques, autres langues tvl|||Tuvalu|tuvalu twi||tw|Twi|twi tyv|||Tuvinian|touva udm|||Udmurt|oudmourte uga|||Ugaritic|ougaritique uig||ug|Uighur; Uyghur|ouïgour ukr||uk|Ukrainian|ukrainien umb|||Umbundu|umbundu und|||Undetermined|indéterminée urd||ur|Urdu|ourdou uzb||uz|Uzbek|ouszbek vai|||Vai|vaï ven||ve|Venda|venda vie||vi|Vietnamese|vietnamien vol||vo|Volapük|volapük vot|||Votic|vote wak|||Wakashan languages|wakashennes, langues wal|||Walamo|walamo war|||Waray|waray was|||Washo|washo wel|cym|cy|Welsh|gallois wen|||Sorbian languages|sorabes, langues wln||wa|Walloon|wallon wol||wo|Wolof|wolof xal|||Kalmyk; Oirat|kalmouk; oïrat xho||xh|Xhosa|xhosa yao|||Yao|yao yap|||Yapese|yapois yid||yi|Yiddish|yiddish yor||yo|Yoruba|yoruba ypk|||Yupik languages|yupik, langues zap|||Zapotec|zapotèque zen|||Zenaga|zenaga zha||za|Zhuang; Chuang|zhuang; chuang znd|||Zande|zandé zul||zu|Zulu|zoulou zun|||Zuni|zuni zxx|||No linguistic content|pas de contenu linguistique zza|||Zaza; Dimili; Dimli; Kirdki; Kirmanjki; Zazaki|zaza; dimili; dimli; kirdki; kirmanjki; zazaki |
|
From: Andres S. <di...@us...> - 2006-12-23 20:49:41
|
Update of /cvsroot/tuxaator/tuxaator/tuxaator3/used_input In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv7328/used_input Log Message: Directory /cvsroot/tuxaator/tuxaator/tuxaator3/used_input added to the repository |
|
From: Andres S. <di...@us...> - 2006-09-13 11:32:23
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv10163 Modified Files: insult.txt Log Message: added missing comma Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** insult.txt 20 Feb 2006 17:33:34 -0000 1.8 --- insult.txt 13 Sep 2006 11:32:17 -0000 1.9 *************** *** 111,115 **** Ilus kleit, ${victim}. Loodad alla võtta, et sellesse ära mahtuda? Parem ära mind vihasta ${victim}. Mul hakkavad kirstud otsa saama ! Oi, kui kena raseda kleit ${victim}. Sa polegi? Nojah ... Ma ei usu imesid, ${victim}. Ma arvestan nendega ${victim}, sul on nii inetu nägu, et see trükiti lennukite oksekottidele. --- 111,115 ---- Ilus kleit, ${victim}. Loodad alla võtta, et sellesse ära mahtuda? Parem ära mind vihasta ${victim}. Mul hakkavad kirstud otsa saama ! Oi, kui kena raseda kleit, ${victim}. Sa polegi? Nojah ... Ma ei usu imesid, ${victim}. Ma arvestan nendega ${victim}, sul on nii inetu nägu, et see trükiti lennukite oksekottidele. |
|
From: Andres S. <di...@us...> - 2006-07-11 21:46:23
|
Update of /cvsroot/tuxaator/tuxaator/tuxaator3 In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv10004 Added Files: XINI.pm prototux.pl tuxaator.ini Log Message: initial import of Tuxaator 3 --- NEW FILE: prototux.pl --- #! /usr/bin/perl -w use strict; use Net::IRC; use XINI; use POSIX ':sys_wait_h'; my $VERSION = '0.1'; my %SERVICES; # list of all currently active services my @CHANNELS; # list of all currently active channels my %RULES; init_ini 'tuxaator.ini'; my $irc = new Net::IRC; my $conn = $irc->newconn(Nick => ini 'general:nick', Server => ini 'general:host', Port => ini 'general:port = 6667', Ircname => ini "general:ircname = ProtoTux/$VERSION"); { package Spawn; use strict; use IPC::Open2; use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); sub new ($$$) { my ($class, $command, $output_handler) = @_; my $this = {}; $this->{command} = $command; $this->{output_handler} = $output_handler; my ($rdh, $wrh); my $pid = open2($rdh, $wrh, $command); my $flags = fcntl $rdh, F_GETFL, 0 or die "fcntl: F_GETFL: $!"; fcntl $rdh, F_SETFL, $flags | O_NONBLOCK or die "fcntl: F_SETFL: $!"; $this->{pid} = $pid; $this->{stdout} = $rdh; $this->{stdin} = $wrh; $this->{input_end} = 0; $this->{in_queue} = ''; $this->{out_queue} = ''; $this->{selecting_input} = 0; $irc->addfh($this->{stdout}, sub {$this->process_output}, 'r'); return bless $this, $class; } sub process_input ($) { my ($this) = @_; return unless defined $this->{stdin}; my $result = 1; while ($result) { last if $this->{in_queue} eq ''; $result = syswrite($this->{stdin}, $this->{in_queue}, length $this->{in_queue}, 0); goto CLOSE_DOWN if $!{EPIPE}; die "write to service: $!\n" unless defined $result or $!{EAGAIN}; substr($this->{in_queue}, 0, $result) = '' if defined $result; } if ($this->{in_queue} ne '' and !$this->{selecting_input}) { $irc->addfh($this->{stdin}, sub {$this->process_input}, 'w'); $this->{selecting_input} = 1; } if ($this->{in_queue} eq '' and $this->{selecting_input}) { $irc->removefh($this->{stdin}); $this->{selecting_input} = 0; } if ($this->{input_end} and $this->{in_queue} eq '') { CLOSE_DOWN: $irc->removefh($this->{stdin}) if $this->{selecting_input}; close $this->{stdin}; $this->{stdin} = undef; $this->{in_queue} = undef; } return; } sub process_output ($) { my ($this) = @_; my $result; do { $result = sysread($this->{stdout}, $this->{out_queue}, 1024, length $this->{out_queue}); die "read from service: $! (@{[%!]})" unless defined $result or $!{EAGAIN}; } while ($result); if (defined $result and $result == 0) { $irc->removefh($this->{stdout}); close $this->{stdout}; $this->{stdout} = undef; $this->{out_queue} =~ s/([^\n])$/$1\n/s; } my $interpreter = $this->{output_interpreter}; while ($this->{out_queue} =~ s/^(.*?)\r?\n//s) { &{$this->{output_handler}}($1); } return; } sub write ($$) { my ($this, $data) = @_; $this->{in_queue} .= $data if defined $this->{stdin}; return; } sub close_input ($) { my ($this) = @_; $this->{input_end} = 1; $this->process_input; return; } } { package Service; use strict; use IPC::Open2; use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); use MIME::Base64; use XINI; sub new ($$) { my ($class, $name) = @_; my $this = {}; my $type = lc ini "service $name:type=daemon"; if ($type eq 'daemon') { $this->{spawn} = new Spawn ini "service $name:command", sub { my ($line) = @_; my $interpreter = $this->{output_interpreter}; $this->$interpreter($line); }; } elsif ($type eq 'invoke') { $this->{command} = ini "service $name:command"; } else { die "unknown service type '$type' for '$name'"; } $this->{type} = $type; my $format_input = ini "service $name:format input=complex"; if ($format_input =~ m/^complex$/i) { $this->{input_formatter} = 'format_complex'; } elsif ($format_input =~ m/^table:\s*(.*)$/i) { $this->{input_fields} = [map {"event_field_$_"} split /\s+/, lc $1]; my %known_fields = map {("event_field_$_" => 1)} qw(type from to nick userhost args time gmtime localtime context); for my $field (@{$this->{input_fields}}) { die "unknown field '$field' in [service $name]format input" unless exists $known_fields{$field}; } $this->{input_formatter} = 'format_tabs'; my $separator; if (ini_got "service $name:column separator") { $separator = ini "service $name:column separator"; $separator = ' ' if $separator eq ''; } else { $separator = "\t"; } $this->{column_separator} = $separator; } else { die "unknown value [service $name]format input = $format_input"; } my $interpret_output = ini "service $name:interpret output=stateless commands"; if ($interpret_output =~ m/^stateless\s+commands$/i) { $this->{output_interpreter} = 'stateless_commands'; } else { die "unknown value [service $name]interpret output = $interpret_output"; } return bless $this, $class; } sub enter ($$) { my ($this, $event) = @_; $this->handle($event) if $this->{main_rule}->matches($event); return; } sub handle ($$) { my ($this, $event) = @_; my $format = $this->{input_formatter}; my $data = $this->$format($event); if ($this->{type} eq 'daemon') { $this->{spawn}->write("$data\n"); } elsif ($this->{type} eq 'invoke') { my $context = $this->event_field_context($event); my $spawn = new Spawn $this->{command}, sub { my ($line) = @_; $conn->privmsg($context, $line); }; $spawn->write("$data\n"); $spawn->close_input; } return; } sub format_complex ($$) { my ($this, $event) = @_; my $line = $event->type; $line .= " from:" . encode_base64($event->from, ""); $line .= " to:" . join(',', map {encode_base64($_, "")} $event->to); $line .= " nick:" . encode_base64($event->nick, ""); $line .= " userhost:" . encode_base64($event->userhost, ""); $line .= " args:" . join(',', map {encode_base64($_, "")} $event->args); return $line; } sub event_field_type ($$) { my ($this, $event) = @_; return $event->type; } sub event_field_from ($$) { my ($this, $event) = @_; return $event->from; } sub event_field_to ($$) { my ($this, $event) = @_; return $event->to; } sub event_field_nick ($$) { my ($this, $event) = @_; return $event->nick; } sub event_field_userhost ($$) { my ($this, $event) = @_; return $event->userhost; } sub event_field_args ($$) { my ($this, $event) = @_; return $event->args; } sub event_field_time ($$) { return time; } sub event_field_localtime ($$) { return scalar localtime; } sub event_field_gmtime ($$) { return scalar gmtime; } sub event_field_context ($$) { my ($this, $event) = @_; my $type = $event->type; if ($type eq 'public') { return join(",", $event->to); } else { return $event->nick; } } sub format_tabs ($$) { my ($this, $event) = @_; my @items; for my $field (@{$this->{input_fields}}) { my @data = $this->$field($event); push @items, join(' ', @data); } return join $this->{column_separator}, @items; } sub stateless_commands ($$) { my ($this, $command) = @_; if ($command =~ m/^\/say\s+(.*)$/si) { for my $channel (@CHANNELS) { $conn->privmsg($channel, $1); } } elsif ($command =~ m/^\/msg\s+(\S+)\s+(.*)$/si) { my $msg = $2; for my $dest (split /,/, $1) { $conn->privmsg($dest, $msg); } } else { warn "Service $this->{name} issued weird stateless command \"$command\".\n"; } } } { package Rule; use strict; use XINI; sub new ($$) { my ($class, $name) = @_; my $this = {}; my ($rdh, $wrh); my ($section, $service); if ($name =~ m/^\[\s*(service (.*?))\s*\]$/) { $section = $1; $service = $2; } else { $section = "rule $name"; $service = ini "rule $name:service"; } $this->{section} = $section; die "No service '$service' (required for rule '$name')" unless exists $SERVICES{$service}; $this->{name} = $name; $this->{service} = $SERVICES{$service}; if (ini_got "$this->{section}:events") { $this->{events} = {map {($_ => 1)} split /\s+/, lc ini "$this->{section}:events"}; } if (ini_got "$this->{section}:requests") { $this->{requests} = {map {($_ => 1)} split /\s+/, ini "$this->{section}:requests"}; } return bless $this, $class; } sub matches ($$) { my ($this, $event) = @_; # Is the event type right? if (exists $this->{events}) { #print "Checking type (is ".$event->type.", requiring @{[keys %{$this->{events}}]})\n"; return 0 unless exists $this->{events}->{$event->type}; } # Is the request prefix right? if (exists $this->{requests}) { my ($request, $args) = split /\s+/, join(' ', $event->args), 2; return 0 unless exists $this->{requests}->{$request}; } return 1; } sub enter ($$) { my ($this, $event) = @_; print "$this->{name} entered event; matches => ".$this->matches($event)."\n"; $this->{service}->handle($event) if $this->matches($event); return; } } @CHANNELS = split /\s+/, ini 'general:channels = #prototux'; for my $name (ini_sections 'service *') { my $service = new Service $name; $SERVICES{$name} = $service; $service->{main_rule} = new Rule "[service $name]"; } for my $name (ini_sections 'rule *') { my $rule = new Rule $name; $RULES{$name} = $rule; } my $active = 0; sub on_irc_event { my ($this, $event) = @_; if ($event->type eq 'endofmotd') { for my $channel (@CHANNELS) { $this->join($channel); } $active = 1; } if ($active) { for my $handler (values %SERVICES, values %RULES) { $handler->enter($event); } } return; } $SIG{CHLD} = sub { while (1) { my $pid = waitpid -1, WNOHANG; last if $pid <= 0; } }; $SIG{PIPE} = 'IGNORE'; $conn->add_default_handler(\&on_irc_event); my @types = qw(nick quit join part mode topic kick public msg notice ping other invite kill disconnect leaving umode error cping cversion csource ctime cdcc cuserinfo cclientinfo cerrmsg cfinger caction crping crversion crsource crtime cruserinfo crclientinfo crfinger dcc_open dcc_update dcc_close chat 251 252 253 254 302 255 376 433 353); $conn->add_global_handler(\@types, \&on_irc_event); $conn->add_handler(\@types, \&on_irc_event); $irc->start; --- NEW FILE: tuxaator.ini --- [general] host = irc.estpak.ee nick = tux]I[tor channels = #linux.ee [service clock] type = invoke command = date +%H:%M events = public msg requests = !clock !kell [service tm] type = invoke command = perl -e 'my $t = time; print $t, " = ", scalar localtime $t' events = public msg requests = !tm --- NEW FILE: XINI.pm --- #### XINI.pm - eXtended INI file handling package XINI; push @::VERSIONS, '$Id: XINI.pm,v 1.1 2006/07/11 21:46:18 digg Exp $'; use strict; use Carp; require Exporter; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(init_ini merge_ini ini ini_got ini_sections ini_either ini_combine ini_push ini_pop ini_raw ini_inheritance ini_age); my $inihash = undef; my @inifilenames; my @inistack; # current section stack sub parse_ini ($$@) { my ($shr, $filename, @lines) = @_; my ($csn, $khr) = undef; my %seen; # per-file for my $i (0 ... $#lines) { my $line = $lines[$i]; chomp $line; if ($line =~ m/^\s*;/ or $line =~ m/^\s*$/) { # do nothing } elsif ($line =~ m/^\s*\[\s*(.*?)\s*\]\s*$/) { $csn = $1; croak "$filename:".($i + 1).": empty section name, aborting" if $csn =~ m/^\s*$/; croak "$filename:".($i + 1).": invalid section name, aborting" if $csn =~ m/[\$:=]/; croak "$filename:".($i + 1).": duplicate section name [$csn], aborting" if exists $seen{"$csn:"}; $seen{"$csn:"} = 1; $shr->{$csn} = {} unless exists $shr->{$csn}; $khr = $shr->{$csn}; } elsif ($line =~ m/^\s*([^=]*?)\s*=\s*(.*)$/) { my ($key, $value) = ($1, $2); croak "$filename:".($i + 1).": key outside section, aborting" unless defined $khr; croak "$filename:".($i + 1).": empty key name, aborting" if $key =~ m/^\s*$/; croak "$filename:".($i + 1).": invalid key name, aborting" if $key =~ m/[:=]/; croak "$filename:".($i + 1).": duplicate key [$csn]$key, aborting" if exists $seen{"$csn:$key"}; $seen{"$csn:$key"} = 1; $khr->{$key} = $value; } else { croak "$filename:".($i + 1).": ini parse error, aborting"; } } } sub init_ini (@) { my (@filenames) = @_; my %ini; $inihash = \%ini; for my $filename (reverse @filenames) { my $fh; open $fh, '<', $filename or die "$filename: open for reading: $!"; my @lines = <$fh>; close $fh; $lines[0] =~ s/^\xEF\xBB\xBF// if @lines; # drop the BOM s/\x0D?\x0A?$// for @lines; parse_ini $inihash, $filename, @lines; } @inifilenames = @filenames; } sub merge_ini ($) { my ($filename) = @_; unshift @inifilenames, $filename; init_ini @inifilenames; } # return the ancestry list, from eldest to to the mentioned section sub ini_inheritance ($) { my ($child) = @_; my @ancestry = ($child); while (1) { die "no [$ancestry[0]]" unless exists $inihash->{$ancestry[0]}; return @ancestry unless exists $inihash->{$ancestry[0]}{'.'}; unshift @ancestry, $inihash->{$ancestry[0]}{'.'}; } } # get a single ini item, taking care of inheritance sub ini_raw ($$) { my ($section, $key) = @_; my %visited; AGAIN: return undef unless exists $inihash->{$section}; return $inihash->{$section}{$key} if exists $inihash->{$section}{$key}; return undef unless exists $inihash->{$section}{'.'}; $visited{$section} = 1; $section = $inihash->{$section}{'.'}; die "inheritance loop involving [$section] detected" if exists $visited{$section}; goto AGAIN; } # Determine the generation count of $key in its section ancestry. # If [$section]$key is found, the age is 1. # If such $key is not found at all, returns undef. sub ini_age ($$) { my ($section, $key) = @_; my %visited; my $age = 1; AGAIN: return undef unless exists $inihash->{$section}; return $age if exists $inihash->{$section}{$key}; return undef unless exists $inihash->{$section}{'.'}; $visited{$section} = 1; $section = $inihash->{$section}{'.'}; die "inheritance loop involving [$section] detected" if exists $visited{$section}; $age++; goto AGAIN; } # get list of keys in a section, taking care of inheritance sub _ini_get_section_keys ($) { my ($section) = @_; my %visited; my %keys; while (exists $inihash->{$section}) { %keys = (%keys, %{$inihash->{$section}}); last unless exists $inihash->{$section}{'.'}; $visited{$section} = 1; $section = $inihash->{$section}{'.'}; die "inheritance loop involving [$section] detected" if exists $visited{$section}; } delete $keys{'.'}; my @keys = sort keys %keys; return @keys; } sub _expand_var ($$) { my ($section, $var) = @_; my @sectcomp = split /\s+/, $section; for my $sec ($section, '$') { my $exp = ini_raw $sec, '$('.$var.')'; return $exp if defined $exp; $exp = ini_raw $sec, '$'.$var; return $exp if defined $exp; } return undef; } # Get an ini entry. sub ini ($) { my ($request) = @_; my ($section, $key, $mode, $default); if ($request =~ m/^([^\[\]=:]*?):([^\[\]=:]*?)(?:\s*(:?=)\s*(.*))?$/) {($section, $key, $mode, $default) = ($1, $2, $3, $4)} else {croak "Invalid INI request: $request"} if ($section eq '') { croak "indecisive INI request $request" unless @inistack; $section = $inistack[-1]; } if (defined $mode and $mode eq ':=') { croak "incomplete INI change request $request" unless defined $section and defined $key and defined $default; croak "No section [$section]" unless exists $inihash->{$section}; $inihash->{$section}{$key} = $default; return $default; } if ($key eq '' or $key =~ m/\*/ and $key !~ m/\(no star\)$/) { # no key given or key is mask croak "No section [$section]" unless exists $inihash->{$section}; my @keys = _ini_get_section_keys $section; if ($key eq '') { @keys = sort grep !/^\$/, @keys; } else { my @keychars = split //, $key; @keychars = map { if ($_ eq '*') {'.*'} else {s/(\W)/\\$1/; $_} } @keychars; my $keyre = join '', @keychars; @keys = sort grep /^$keyre$/, @keys; } return @keys if wantarray; return join ' ', @keys; } $key =~ s/\s*\(no star\)$//; my $value = ini_raw $section, $key; unless (defined $value) { if (defined $default) {$value = $default} else {croak "No [$section]$key in (@inifilenames)"} } $value = [$value] unless ref $value eq 'ARRAY'; my @results = map { my $value = $_; my $limit = 100; # avoid infinite recursion my $last_value; do { croak "Too deep recursion in [$section]$key" if --$limit == 0; $last_value = $value; $value =~ s{(\$([\w-]+\b))}{my $x = _expand_var($section, $2); defined $x ? $x : $1}ge; $value =~ s{(\$\(([\w-]+):([\w-]+)\))}{my $x = _expand_var($2, $3); defined $x ? $x : $1}ge; croak "Too long expansion for [$section]$key" if length $value > 65536; } while $value ne $last_value; $value; } @$value; return $results[0] if @results == 1; return \@results; } # Checks existence of a specified INI part. # No flags, colonized interface: # foo:bar - key 'bar' in section 'foo' # foo: - section 'foo' # :bar - key 'bar' in current section sub ini_got ($) { my ($request) = @_; my ($section, $key, $default); if ($request =~ m/^([^\[\]=:]*):([^\[\]=:]*)$/) {($section, $key) = ($1, $2)} else {croak "Invalid INI request: $request"} croak "content-free argument to ini_got" if $section eq '' and $key eq ''; if ($section eq '') { croak "indecisive INI request $request" unless @inistack; $section = $inistack[-1]; } return exists $inihash->{$section} if $key eq ''; return defined ini_raw $section, $key; } sub ini_sections (;$) { my ($mask) = @_; my @sections = keys %$inihash; if (defined $mask) { croak "invalid ini section mask '$mask'" unless $mask =~ m/^[^*]*\*[^*]*$/; $mask =~ s/([^\w*])/\\$1/g; $mask =~ s/\*/(.*)/; @sections = map {m/^$mask$/} @sections; } return @sections } sub ini_either ($) { my ($spec) = @_; croak "invalid ini_either spec: $spec" unless my ($sections, $key) = $spec =~ m/^([^\[\]:]+):([^\[\]:=]+)$/; my @sections = split /=/, $sections; my $result = undef; my $result_bang = undef; my @gots = (); my @gots_bang = (); for my $sec (@sections) { if (ini_got "$sec\:$key") { $result = ini "$sec\:$key"; push @gots, $sec; } if (ini_got "$sec\:$key!") { $result_bang = ini "$sec\:$key!"; push @gots_bang, $sec; } } croak "precedence conflict between (".(join '=', @gots_bang).":$key!)" if @gots_bang > 1; return $result_bang if @gots_bang == 1; croak "precedence conflict between (".(join '=', @gots).":$key)" if @gots > 1; return $result if @gots == 1; croak "neither of $spec defined" unless @gots; } sub ini_combine (@) { my @sections = @_; my %result; my $sections = join '=', @sections; for my $sec (@sections) { croak "invalid section name: $sec" unless $sec =~ m/^[^\[\]=:]+$/; next unless ini_got "$sec\:"; for my $k (ini "$sec\:") { next if $k =~ /!$/; $result{$k} = ini_either "$sections\:$k"; } } return %result; } sub ini_push ($) { my ($section) = @_; croak "unable to push nonexistent section [$section]" unless exists $inihash->{$section}; push @inistack, $section; } sub ini_pop () { croak "can't pop empty INI section stack" unless @inistack; pop @inistack; } 1; |
|
From: Andres S. <di...@us...> - 2006-07-11 21:44:15
|
Update of /cvsroot/tuxaator/tuxaator/tuxaator3 In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv9136/tuxaator3 Log Message: Directory /cvsroot/tuxaator/tuxaator/tuxaator3 added to the repository |
|
From: Andres S. <di...@us...> - 2006-06-03 13:48:58
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv23737 Modified Files: tuxaator Log Message: neated up the configuration reading loop Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.91 retrieving revision 1.92 diff -C2 -d -r1.91 -r1.92 *** tuxaator 11 Feb 2005 20:33:34 -0000 1.91 --- tuxaator 3 Jun 2006 13:48:45 -0000 1.92 *************** *** 182,189 **** or die "Can't connect to IRC server.\n"; $Output = new Plugins::Output($conn); ! if ($config{'logfile'}) ! { ! $Log = new Plugins::Log($basedir . "/log"); ! }; #$Plugin = new Tuxaator::Plugin($conn,$config); --- 182,186 ---- or die "Can't connect to IRC server.\n"; $Output = new Plugins::Output($conn); ! $Log = new Plugins::Log($basedir . "/log") if $config{'logfile'}; #$Plugin = new Tuxaator::Plugin($conn,$config); *************** *** 220,246 **** sub read_config { ! open CFG,"<config/config.tux" or die sprintf($messages{'file_open_failed'},"config/config.tux"); ! while (<CFG>) ! { ! unless (/^#/) ! { ! my ($key,$value) = &parse_line($_); ! if ($key && $value) ! { ! # oh god, this is so depressing. ! # assigning values to global hash ! $config{$key} = $value; ! # print "CFG: got $key with value $value\n" if $DEBUG; ! }; ! }; ! }; ! close CFG; ! } ! ! ! sub parse_line { ! my $line = shift; ! my ($part1,$part2) = $line =~ /^\s*(.+?)\s*=\s*(.+?)$/; ! return ($part1,$part2); } --- 217,230 ---- sub read_config { ! open CFG, "<config/config.tux" ! or die sprintf($messages{'file_open_failed'}, "config/config.tux"); ! while (<CFG>) { ! unless (/^#/) { ! if (m/^\s*(.+?)\s*=\s*(.+?)$/) { ! $config{$1} = $2; ! } ! } ! } ! close CFG; } |
|
From: Andres S. <di...@us...> - 2006-06-02 03:27:49
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv9294 Modified Files: tux.sql Log Message: added missing semicolon reported by jyrka Index: tux.sql =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tux.sql,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** tux.sql 30 Mar 2004 20:37:05 -0000 1.6 --- tux.sql 2 Jun 2006 03:27:40 -0000 1.7 *************** *** 37,41 **** PRIMARY KEY (`id`), KEY `term` (`term`) ! ) TYPE=MyISAM -- --- 37,41 ---- PRIMARY KEY (`id`), KEY `term` (`term`) ! ) TYPE=MyISAM; -- |
|
From: Andres S. <di...@us...> - 2006-06-02 03:27:14
|
Update of /cvsroot/tuxaator/tuxaator/scripts In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv8857 Modified Files: ee-ilm.sh Log Message: updated the weather data fetching script Index: ee-ilm.sh =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/scripts/ee-ilm.sh,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ee-ilm.sh 21 Dec 2003 21:02:51 -0000 1.3 --- ee-ilm.sh 2 Jun 2006 03:27:02 -0000 1.4 *************** *** 1,9 **** #!/bin/sh tallinn=`/bin/nc 193.40.240.131 6340 |grep temp|cut -d" " -f3| tr -s + " "|tr -s "'" " "|cut -d" " -f1-` tartu=`/usr/bin/lynx -dump http://meteo.physic.ut.ee/et/frontmain.php?m=2 |grep Temp|tr -s " " " "|cut -d " " -f3` ! viljandi=`/usr/bin/lynx -dump http://nadal.viljandi.ee/ |grep Temperatuur:|tr -s " " " "|cut -d " " -f3` parnu=`/usr/bin/lynx -dump http://ilm.transcom.ee/mobile.aspx | grep Õhk | cut -d " " -f6 | tr "," "."` tm=`date +"%H:%M"` ! echo "kell $tm; Tallinn:$tallinn; Tartu: $tartu C; Viljandi: $viljandi C; Pärnu: $parnu C" #echo "Tallinn: $tallinn" #echo -n "Tallinn:"; lynx -source http://www.ilm.ee/~data/tallinn/temp --- 1,14 ---- #!/bin/sh tallinn=`/bin/nc 193.40.240.131 6340 |grep temp|cut -d" " -f3| tr -s + " "|tr -s "'" " "|cut -d" " -f1-` + #tallinn=`lynx -source http://www.ilm.ee/~data/tallinn/temp` # temporary + tartu=`/usr/bin/lynx -dump http://meteo.physic.ut.ee/et/frontmain.php?m=2 |grep Temp|tr -s " " " "|cut -d " " -f3` ! #viljandi=`/usr/bin/lynx -dump http://nadal.viljandi.ee/ |egrep '(Temperatuur|K.lma):' |tr -s " " " "|cut -d " " -f3` ! viljandi=`curl -s http://www.matti.ee/~nilm/temp` parnu=`/usr/bin/lynx -dump http://ilm.transcom.ee/mobile.aspx | grep Õhk | cut -d " " -f6 | tr "," "."` tm=`date +"%H:%M"` ! rapina=`curl -s http://www.jes.ee/temp/temp.txt | perl -Te '$_ = <>; exit unless m/^\s*([+-]?\d+\.\d)\d*\s*$/; print $1'` ! saue=`curl -s http://ketas.life.ee/temp.saue | perl -Te '$_ = <>; exit unless m/^([+-]?\d+)\b/; print $1'` ! echo "kell $tm; Tallinn:$tallinn; Tartu: $tartu C; Viljandi: $viljandi C; Pärnu: $parnu C; Räpina: $rapina C; Saue: $saue C" #echo "Tallinn: $tallinn" #echo -n "Tallinn:"; lynx -source http://www.ilm.ee/~data/tallinn/temp |
|
From: Andres S. <di...@us...> - 2006-02-20 17:33:45
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31154 Modified Files: insult.txt Log Message: new insults by glen Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** insult.txt 20 Feb 2006 17:31:57 -0000 1.7 --- insult.txt 20 Feb 2006 17:33:34 -0000 1.8 *************** *** 139,141 **** ${victim}: Mulle meeldib su lähenemine. Nüüd näita, kuidas sa kaugened. Sul, ${victim}, käis üks mõte peast läbi? See pidi vast pikk ja üksildane teekond olema. ! Kuule, ${victim}, mine õige Meerika Ase-Resi-Tondiga pardijahile. --- 139,227 ---- ${victim}: Mulle meeldib su lähenemine. Nüüd näita, kuidas sa kaugened. Sul, ${victim}, käis üks mõte peast läbi? See pidi vast pikk ja üksildane teekond olema. ! Kuule, ${victim}, mine õige {Meerika Ase-Resi-Tondiga|Ameerika ! asepresidendiga} pardijahile. ! kas su vanemad tõesti vihkasid sind niipalju et ${victim} sulle nimeks panid või astusid enesevihkajate klubisse ja võtsid omale sellise nime ?:) ! nimesid nimetamata aga ${victim} on ikka paras ajukääbik küll ! Sa meeldid mulle ${victim}. Inimesed küll ütlevad, et mul ei ole maitset, aga sa meeldid mulle. ! teeme ka miskit või mitte midagi? ! ${victim}: Ära hakka minuga plõksima. Nagunii sa jagu ei saa. ! ${victim}: ära plõksi! ! ${victim}: ära täna mind su solvamise eest. Seda oli nauding teha. ! ${victim}: ära tunne ennast halvasti. Paljudel inimeste ei ole talenti. ! ${victim}: ehk oled kunagi iluoperatsioonile mõelnud ? ! ${victim}: Hei, sina! Kao mu planeedilt minema! ! ${victim}: Hoiatus: mul on oma arvamus ja ma tean, kuidas seda kasutada. ! ${victim}: Huvitav, miks tulnukad sulle pärakusse sondi jätsid? ! ${victim}: Ideaalne aeg hakata kadunud inimeseks. ! ${victim}: Ilus kleit. Loodad alla võtta, et sellesse ära mahtuda? ! ${victim}: ime kanni! ! ${victim}: Inetusvõistlusel oleks sulle vääriliseks vastaseks ainlt üleeilne okseloik. ise oled ! ${victim}: Jah, see on noku moodi küll, aga palju väiksem. ! ${victim}: Ja milline seitsmest pöialpoisist sina oled? ! ${victim}: ja mina mõtlesin maailma koledaim inimene küll siia ei juhtu... ! ${victim}: käi jala. ! ${victim}: kaos, paanika, korralagedus - sinu töö on siin edukalt tehtud. ! ${victim}: Kas ma mainisin, et kui sa mind puudutad(minuga räägid), saad kohe jalaga munadesse. ! ${victim}: kas ma mainisin, et kui sa mind puudutad, saad otsekohe jalaga munadesse? ! ${victim}: kas sa käid ilusalongis tagavaraväljapääsu kaudu? ! ${victim}: Kas su koduplaneedil keegi kunagi vait ka on? ! ${victim}: Kas sulle tundub, et ma vajan seltskonda? ! ${victim}: kui aju oleks vihm, siis sina oleks kõrb. ! ${victim}: Kuidas ma saangi sinust puudust tunda, kui sa kuidagi ära ei lähe? ! ${victim}: kuidas ma saangi sinust puudust tunda, kui sa kunagi ära ei lähe? ! ${victim}: Kuidas seda laserkaardikeppi tapare¸iimile lülitatakse ! ${victim}: Kui inimest toiduga võrrelda, siis sina oled odav, maitsetu ja saad kiiresti valmis. ! ${victim}: kui ma luban, et igatsen su järele, kas sa siis läheksid ära? ! ${victim}: kui ma peaks tapma kõik kes sind vihkavad, siis see ei oleks mõrv... ...see oleks genotsiid. ! ${victim}: kui ma vajaks aju, siis ma võtaks sinu oma, sest seda ei ole kunagi kasutatud. ! ${victim}: kui mu koeral oleks selline nägu nagu sul, siis ma raseeriks ta tagumiku ja õpetaks ta tagurpidi käima. ! ${victim}: kui mul oleks vaja lonti saada, mõtleksin ma sinu peale ! ${victim}: Küll sa näed ikka vahva välja. See kleit on sul pilapoest, eks? ! ${victim}: kumb meist nüüd rohtu peaks võtma? ! ${victim}: Kus on geenipolitsei? Siin on mingi mutant. ! ${victim}: Kuuldavasti oli sul kunagi üks mõte, aga see suri üksinduse kätte ära. ! ${victim}: ma annaks sulle ühe mõtte, aga ma ei ole kindel, kas sul on panna seda kuskile. ! ${victim}: ma austan mulda, mis sind ootab. ! ${victim}: Ma ei ole sinu tüüp. Ma pole täispuhutav. ! ${victim}: ma ei tea mis sind nii lolliks teeb, aga see tõesti töötab. ! ${victim}: Ma ei tea, mis viga sul küljes on, aga kindlasti on see raskesti hääldatava diagnoosiga. ! ${victim}: ma ei unusta ühtegi nägu, aga sinu puhul tahaks küll erandi teha ! ${victim}: Ma ei usu imesid. Ma arvestan nendega ! ${victim}: ma küsiks kui vana sa oled, aga ma tean, et sa ei tunne nii suuri numbreid. ! ${victim}: Ma kuulsin, et läksid ajuuuringutele, aga arstid ei leidnud sealt midagi. ! ${victim}: mängime hobust. Mina olen esimene pool ja sina {oled sina ise|võid lihtsalt iseennast mängida}. ! ${victim}: ma tõesti ei arva, et sa oled loll, aga mis minu arvamus loeb tuhandete teiste vastu. ! ${victim}: ma tuleks meelsasti sinuga kohtama, aga mu lemmik reklaam on praegu telekas. ! ${victim}: milline darwini auhind sulle kuulus ? ! ${victim}: muidugi on ka sinul tunded. Aga keda see kotib? ! ${victim}: mul on kiire praegu, võin ma sind mõni teine kord ignoreerida? ! ${victim}: Naerata ja ütle: "Jah, mu käskija." ! ${victim}: Näri leiba! ! ${victim}: nii-nii. Jälle on tsirkusest paar klouni putku pannud. ! ${victim}: Oi, kui kena raseda kleit. Sa polegi... Nojah ! ${victim}: oled sa alati nii loll või pingutad täna eriti selle nimel? ! ${victim}: oled sa TONT või Inimene ? ! ${victim}: on need sinu silmamunad, mis ma oma dekolteest leidsin? ! ${victim}: on see su nina või sööd sa banaani? ! ${victim}: Palun räägi edasi. Ma tahan magada. ! ${victim}: Parem ära mind vihasta. Mul hakkavad kirstud otsa saama ! ${victim}: sa ei ole paranoik. Kõik vihkavad sind tõesti. ! ${victim}: sa ei saa iialgi nii vanaks kui välja näed. ! ${victim}: sa ei tea sõna "hirm" tähendust. Aga kui järele mõelda, siis sa ei tea enamuse sõnade tähendust. ! ${victim}: sa oled loll kui leivaauto. ! ${victim}: sa oled nii kole, et kui ma su loomaaeda viisin, siis talitaja ütles: "Tänan, et ta tagasi tõite." ! ${victim}: sa oled nii kole, et su pilt trükiti lennukite oksekottidele. ! ${victim}: sa oled täpselt nagu Action Man: Kandiline soeng, armiline nägu ja püksis mitte midagi. ! ${victim}: sa tõendad seda, et isegi jumal eksib vahest. ! ${victim}: see, kui keegi sind ei mõista, ei tähenda veel, et sa oled kunstnik, ! ${victim}: sind tehes läks Loojal vist küll vorm katki. Ja mõned nurgad jäid ilmselt maha kraapimata. ! ${victim}: Sinuga dringile? Pigem teen endale ise tuimestuseta pimesooleoperatsiooni. ! ${victim}: sinu lolliks nimetamine on solvang kõigile teistele lollidele. ! ${victim}: sinu nõuannet ma küll ei vaja. Sa ei oska ju kahekümne ühenigi lugeda, kui sa alasti pole. ! ${victim}, Sul on nii ilusad kõverad jalad ! ${victim}: Tal on nii inetu nägu, et see trükiti lennukite oksekottidele ! ${victim}: tavaliselt inimesed elavad ja õpivad. Sina ainult elad. ! ${victim}: tunne end nagu kodus. Korista mu köök ära. ! ${victim}: üldiselt ma ei taha küll kellegi kohta sitasti öelda aga sina oled ikka tõsiselt räige ! ${victim}: võin ma sinult su nägu laenata, mu tagumik on puhkusel. ! ${victim}: pane müts pähe.. rähn lendab |
|
From: Andres S. <di...@us...> - 2006-02-20 17:32:09
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30307 Modified Files: insult.txt Log Message: applied insult edits by glen Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** insult.txt 20 Feb 2006 17:09:52 -0000 1.6 --- insult.txt 20 Feb 2006 17:31:57 -0000 1.7 *************** *** 2,8 **** ${victim}: sa oled loll nagu lauajalg. Tead ${victim}, mine osta õige üks tükk seepi. ! Erikuradikinomees sa ${victim} oled, reede 6hta ircus! ! ${victim}: sa oled yks plekist persega vedruvasikas. ! ${victim}: k2i jala. ${victim}, sa vana pede, sinu kohta on artikkel: http://www.${victim}.isgay.com/ ${victim}: kalla end piimaga üle ja pane traktori kõrval põlema. --- 2,8 ---- ${victim}: sa oled loll nagu lauajalg. Tead ${victim}, mine osta õige üks tükk seepi. ! Erikuradikinomees sa ${victim} oled, reede õhta ircus! ! ${victim}: sa oled üks plekist persega vedruvasikas. ! ${victim}: käi jala. ${victim}, sa vana pede, sinu kohta on artikkel: http://www.${victim}.isgay.com/ ${victim}: kalla end piimaga üle ja pane traktori kõrval põlema. *************** *** 11,15 **** ${victim}: vabanda, kui ma sind kuidagi solvasin. See juhtus täiesti tahtlikult. ${victim}: ma ei saa aru, kuidas päike küll sinu peale paistes oksendama ei hakka. ! ${victim}: tra kyll, kui mina sinu moodi välja näeks, ei julgeks ma ilma maskita väljagi minna ${victim}: ma ei näe su silmis mõistusehelki. ${victim}: kes küll sinusugusele ajukääbikule kirjakunsti õpetas? --- 11,15 ---- ${victim}: vabanda, kui ma sind kuidagi solvasin. See juhtus täiesti tahtlikult. ${victim}: ma ei saa aru, kuidas päike küll sinu peale paistes oksendama ei hakka. ! ${victim}: tra küll, kui mina sinu moodi välja näeks, ei julgeks ma ilma maskita väljagi minna ${victim}: ma ei näe su silmis mõistusehelki. ${victim}: kes küll sinusugusele ajukääbikule kirjakunsti õpetas? *************** *** 45,49 **** . o O ( Kus on geenipolitsei? Siin on mingi jälk ${victim} ) O o . . o O ( Millise kivi alt küll sellised lontrused nagu ${victim} välja ronivad.. ) O o . ! ${victim}: kes ma Sinu arust olen? Kärbsepaber idiootidele? ${victim}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. ${victim}: sa oled nii loll, et sobiksid ideaalselt Võrno saatesse. --- 45,49 ---- . o O ( Kus on geenipolitsei? Siin on mingi jälk ${victim} ) O o . . o O ( Millise kivi alt küll sellised lontrused nagu ${victim} välja ronivad.. ) O o . ! ${victim}: kes ma Sinu arust olen? Kärbsepaber idiootidele? ${victim}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. ${victim}: sa oled nii loll, et sobiksid ideaalselt Võrno saatesse. *************** *** 80,84 **** Peab tunnistama, et ${victim}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. Kas tõesti on sõnade helge pea ja ${victim} vahel nii suur erinevus? ! ${victim} on nagu lauga löödud. Ja mitte ainult vastu rindu Vaata ${victim}'t. Ilmne tõestus, et hullari aed on liiga madal. Mõistuse pooles on ${victim}'le kõige lähemal reha ... või äärmisel juhul labidas --- 80,84 ---- Peab tunnistama, et ${victim}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. Kas tõesti on sõnade helge pea ja ${victim} vahel nii suur erinevus? ! ${victim} on nagu lauaga löödud. Ja mitte ainult vastu rindu Vaata ${victim}'t. Ilmne tõestus, et hullari aed on liiga madal. Mõistuse pooles on ${victim}'le kõige lähemal reha ... või äärmisel juhul labidas *************** *** 124,128 **** ${victim}: Stress kasvab üle pea, aga kägistada pole kedagi. ${victim}, sina oled üks hirmus õnnetus, mis headele inimestele kaela kukub. ! ${victim}, sul on õigus vaikida. Kasuta seda ometi! Kui inimest toiduga võrrelda, siis sina, ${victim}, oled {odav, maitsetu ja saad kiiresti valmis|Säästumarketis müügil}. ${victim}, kuuldavasti oli sul kunagi üks mõte, aga see suri üksinduse kätte ära. --- 124,128 ---- ${victim}: Stress kasvab üle pea, aga kägistada pole kedagi. ${victim}, sina oled üks hirmus õnnetus, mis headele inimestele kaela kukub. ! ${victim}, Sul on õigus vaikida. {Kasuta seda ometi|Nii et - OLE VAIT}! Kui inimest toiduga võrrelda, siis sina, ${victim}, oled {odav, maitsetu ja saad kiiresti valmis|Säästumarketis müügil}. ${victim}, kuuldavasti oli sul kunagi üks mõte, aga see suri üksinduse kätte ära. |
|
From: Andres S. <di...@us...> - 2006-02-20 17:10:00
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19090 Modified Files: insult.txt Log Message: new insults Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** insult.txt 15 Apr 2005 08:45:08 -0000 1.5 --- insult.txt 20 Feb 2006 17:09:52 -0000 1.6 *************** *** 137,138 **** --- 137,141 ---- ${victim}, jah, see on noku moodi küll, aga palju väiksem. Sina, ${victim}, oled vist palju Bushi kõnesid kuulanud? + ${victim}: Mulle meeldib su lähenemine. Nüüd näita, kuidas sa kaugened. + Sul, ${victim}, käis üks mõte peast läbi? See pidi vast pikk ja üksildane teekond olema. + Kuule, ${victim}, mine õige Meerika Ase-Resi-Tondiga pardijahile. |
|
From: Andres S. <di...@us...> - 2005-08-14 01:52:21
|
Update of /cvsroot/tuxaator/tuxaator/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10980/data Modified Files: countries.txt Log Message: new TLDs Index: countries.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/data/countries.txt,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** countries.txt 13 Feb 2005 11:59:33 -0000 1.2 --- countries.txt 14 Aug 2005 01:52:12 -0000 1.3 *************** *** 66,69 **** --- 66,70 ---- ES Spain ET Ethiopia + EU EUropean Union FI Finland FJ Fiji *************** *** 254,255 **** --- 255,260 ---- MED United States Medical ARPA Reverse DNS + BIZ Business (second wave of TLDs) + INFO Info (second wave of TLDs) + AERO Aerospace industries (second wave of TLDs) + XXX Porn (third wave of TLDs) |
|
From: Neateye <nit...@ao...> - 2005-06-12 21:05:43
|
Call out Gouranga be happy!!! Gouranga Gouranga Gouranga .... That which brings the highest happiness!! |
|
From: Andres S. <di...@us...> - 2005-04-15 08:46:59
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8953/Plugins/Core Modified Files: Plugin.pm Log Message: avoid splitting undef Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Core/Plugin.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Plugin.pm 16 Feb 2005 19:33:58 -0000 1.6 --- Plugin.pm 15 Apr 2005 08:46:51 -0000 1.7 *************** *** 172,181 **** { my ($basedir, $config) = @_; ! my $extra_hosts_files; $extra_hosts_files = $config->{'extra_hosts_files'} if $config; - my $basedir = shift; my %users; for my $hostsfile ("$basedir/config/hosts", ! split /\s*,\s*/, $extra_hosts_files) { print STDERR "DEBUG: loading $hostsfile\n"; --- 172,180 ---- { my ($basedir, $config) = @_; ! my $extra_hosts_files = ''; $extra_hosts_files = $config->{'extra_hosts_files'} if $config; my %users; for my $hostsfile ("$basedir/config/hosts", ! split /\s*,\s*/, $extra_hosts_files) { print STDERR "DEBUG: loading $hostsfile\n"; |
|
From: Andres S. <di...@us...> - 2005-04-15 08:46:06
|
Update of /cvsroot/tuxaator/tuxaator/config In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8669/config Modified Files: rss.tux Log Message: apply category filter to one feed Index: rss.tux =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/rss.tux,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** rss.tux 5 Apr 2005 19:45:24 -0000 1.4 --- rss.tux 15 Apr 2005 08:45:54 -0000 1.5 *************** *** 12,14 **** http://wiki.linux.ee/phpwiki/ViimasedMuudatused?format=rss,30 http://linux.ee/node/feed,30 ! http://quake.agitaator.ee/wp-rss2.php,30 --- 12,14 ---- http://wiki.linux.ee/phpwiki/ViimasedMuudatused?format=rss,30 http://linux.ee/node/feed,30 ! http://quake.agitaator.ee/wp-rss2.php?cat=1,30 |
|
From: Andres S. <di...@us...> - 2005-04-15 08:45:17
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8516 Modified Files: insult.txt Log Message: New insults Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** insult.txt 9 Apr 2005 17:11:10 -0000 1.4 --- insult.txt 15 Apr 2005 08:45:08 -0000 1.5 *************** *** 80,81 **** --- 80,138 ---- Peab tunnistama, et ${victim}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. Kas tõesti on sõnade helge pea ja ${victim} vahel nii suur erinevus? + ${victim} on nagu lauga löödud. Ja mitte ainult vastu rindu + Vaata ${victim}'t. Ilmne tõestus, et hullari aed on liiga madal. + Mõistuse pooles on ${victim}'le kõige lähemal reha ... või äärmisel juhul labidas + ${victim}, kas sa nüüd taipad, mis juhtub, kui sugulased omavahel abielluvad? + ${victim}, ma suudan vaevu oma ükskõiksust vaos hoida + ${victim}, sa tuled tuttav ete. Lahkasin sind vist zooloogiatunnis? + Kui mind huvitaks su arvamus, ${victim}, siis ütleksin, milline see on. + Sinuga dringile, ${victim}? Pigem teen endale ise tuimestuseta pimesooleoperatsiooni. + ${victim}, kas sulle tundub, et ma vajan seltskonda? + Hei, sina, ${victim}! Kao mu planeedilt minema! + Huvitav, miks ${victim} tulnukad sulle pärakusse sondi jätsid? + ${victim}, ja sinu tattnina-arvamus on...? + ${victim}, ma ei ole tige. Olen lihtsalt juba {1|2|3|4}0 aastat väga halvas tujus. + ${victim}, mis stiilis sa ka riietuda ei üritanud, välja see sul igastahes ei tulnud. + ${victim}, kas su koduplaneedil keegi kunagi vait ka on? + Ma ei ole sinu tüüp, ${victim}. Ma pole täispuhutav. + ${victim}, kao eemale! Sa seisad mu aura peal. + ${victim}: Ära muretse. Ma ei mäleta sinu nime ka. + ${victim}, ma tahan lihtsalt kätte maksta. Mis selles halba on? + ${victim}, naerata{, kummarda|} ja ütle: "Jah, mu käskija." + ${victim}, kas ma mainisin, et kui sa {mind puudutad|minuga räägid}, saad kohe jalaga munadesse? + ${victim}, sa näed erakordselt sitt välja. On see mingi uus trend? + ${victim}, kumb meist nüüd rohtu peaks võtma? + ${victim}: Kuidas seda laserkaardikeppi tapare¸iimile lülitatakse? + Ja milline seitsmest pöialpoisist sina, ${victim}, oled? + ${victim}: Ma sorisin küll kaltsupoes, aga seda hilpu ma seal küll ei näinud + Kus on geenipolitsei? Siin on mingi mutant. + ${victim}, küll sa näed ikka vahva välja. See kleit on sul pilapoest, eks? + ${victim}, muidugi on ka meestel tunded. Aga keda see kotib? + Ilus kleit, ${victim}. Loodad alla võtta, et sellesse ära mahtuda? + Parem ära mind vihasta ${victim}. Mul hakkavad kirstud otsa saama + Oi, kui kena raseda kleit ${victim}. Sa polegi? Nojah ... + Ma ei usu imesid, ${victim}. Ma arvestan nendega + ${victim}, sul on nii inetu nägu, et see trükiti lennukite oksekottidele. + ${victim}, räägi siis ometi! Sul on õigus oma lollile arvamusele. + Ma vihkan kõiki. Sina, ${victim}, oled järgmine. + ${victim}, Ja sinu täiesti mõttetu arvamus on...? + ${victim}: {Hoiatus:|Vaata ette --} mul on oma arvamus ja ma tean, kuidas seda kasutada. + ${victim}: Miks kipuvad kinniste peadega inimesed alati suu lahti tegema? + Ma olen andekas mitmel alal, ${victim}. Suudan ühteaegu rääkida ja sinu peale laias kaarest kusta. + Ära hakka minuga plõksima, ${victim}. Nagunii sa jagu ei saa. + Kuidas ma saangi sinust puudust tunda ${victim}, kui sa kuidagi ära ei lähe? + ${victim}: Stress kasvab üle pea, aga kägistada pole kedagi. + ${victim}, sina oled üks hirmus õnnetus, mis headele inimestele kaela kukub. + ${victim}, sul on õigus vaikida. Kasuta seda ometi! + Kui inimest toiduga võrrelda, siis sina, ${victim}, oled {odav, maitsetu ja saad kiiresti valmis|Säästumarketis müügil}. + ${victim}, kuuldavasti oli sul kunagi üks mõte, aga see suri üksinduse kätte ära. + ${victim}, inetusvõistlusel oleks sulle vääriliseks vastaseks ainlt üleeilne okseloik. + ${victim}: Ma olen nii õnnelik, et võiksin tappa. + ${victim}, vabanda, kui tundus, et huvitad mind. Ei huvita. + ${victim}, su tänane meik on küll puhas raiskamine. + ${victim}, ma pole sinu tüüp. Mul on pulss. + ${victim}, ma ei tea, mis viga sul küljes on, aga kindlasti on see raskesti hääldatava diagnoosiga. + ${victim}, mida ma küll sinuta pihta hakkaksin? Peale selle, et oleksin õnnelik. + Palun räägi edasi, ${victim}. Ma tahan magada. + ${victim}, jah, see on noku moodi küll, aga palju väiksem. + Sina, ${victim}, oled vist palju Bushi kõnesid kuulanud? |
|
From: Andres S. <di...@us...> - 2005-04-09 19:32:23
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32491 Modified Files: compliment.txt Log Message: typofix Index: compliment.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/compliment.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** compliment.txt 9 Apr 2005 17:19:30 -0000 1.1 --- compliment.txt 9 Apr 2005 19:32:14 -0000 1.2 *************** *** 44,48 **** Kui Billi asemel juhiks Microsofti ${victim}, kasutaks kogu see rahvas Windowsit ${victim}: Sinuga läheks luurele küll. Ja tuleks koos tagasi ka. ! ${victim}: Ema Teresal oli Sinu kohta mõndagi head <F6>elda Kui maailmas oleks ainult inimesed nagu ${victim}, elaksime siiani paradiisis Kas teadsite, et buda mungad käisid ${victim} juures kannatlikkust õppimas? --- 44,48 ---- Kui Billi asemel juhiks Microsofti ${victim}, kasutaks kogu see rahvas Windowsit ${victim}: Sinuga läheks luurele küll. Ja tuleks koos tagasi ka. ! ${victim}: Ema Teresal oli Sinu kohta mõndagi head öelda Kui maailmas oleks ainult inimesed nagu ${victim}, elaksime siiani paradiisis Kas teadsite, et buda mungad käisid ${victim} juures kannatlikkust õppimas? |
|
From: Andres S. <di...@us...> - 2005-04-09 17:25:42
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Insult In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18173 Removed Files: Plugin.pm Log Message: removed the obsolete insult plugin --- Plugin.pm DELETED --- |
|
From: Andres S. <di...@us...> - 2005-04-09 17:20:08
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Talk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936/Plugins/Talk Modified Files: Plugin.pm Log Message: incorporated the compliment plugin into the talk plugin Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Talk/Plugin.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Plugin.pm 9 Apr 2005 17:11:09 -0000 1.11 --- Plugin.pm 9 Apr 2005 17:19:29 -0000 1.12 *************** *** 86,89 **** --- 86,93 ---- "restricted" => 1, "level" => 2}, + "!compliment" => + {"action" => "do_compliment", + "restricted" => 0, + "level" => 0}, ); *************** *** 158,161 **** --- 162,179 ---- } + sub do_compliment { + my $self = shift; + my $event = pop @_; + my $victim = join " " => @_; + if ( (length($victim) == 0) || (length($victim) > 30) ) + { + $victim = $event->nick; + }; + + my $message = make_random_string('compliment.txt', + victim => $victim); + $self->{'core'}->queue($event, $message); + } + # wrapper for a random quote generator, is executed 60 seconds after the bot joins the |
|
From: Andres S. <di...@us...> - 2005-04-09 17:19:44
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936 Added Files: compliment.txt Log Message: incorporated the compliment plugin into the talk plugin --- NEW FILE: compliment.txt --- (This appears to be a binary file; contents omitted.) |
|
From: Andres S. <di...@us...> - 2005-04-09 17:11:18
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9126 Modified Files: insult.txt Log Message: incorporated the insult plugin into the talk plugin Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** insult.txt 22 Feb 2005 11:33:14 -0000 1.3 --- insult.txt 9 Apr 2005 17:11:10 -0000 1.4 *************** *** 1,81 **** ! {}: sa oled nuhtluseks maailmale loodud, et inimesed näeksid, kui madalale võib üks inimeseloom #linux.ee peal langeda. ! {}: sa oled loll nagu lauajalg. ! Tead {}, mine osta õige üks tükk seepi. ! Erikuradikinomees sa {} oled, reede 6hta ircus! ! {}: sa oled yks plekist persega vedruvasikas. ! {}: k2i jala. ! {}, sa vana pede, sinu kohta on artikkel: http://www.{}.isgay.com/ ! {}: kalla end piimaga üle ja pane traktori kõrval põlema. ! Oh püha perse kiriku laes, kuskohas küll {}'suguseid produtseeritakse. ! {}: sina mine perse ja jäägi sinna. ! {}: vabanda, kui ma sind kuidagi solvasin. See juhtus täiesti tahtlikult. ! {}: ma ei saa aru, kuidas päike küll sinu peale paistes oksendama ei hakka. ! {}: tra kyll, kui mina sinu moodi välja näeks, ei julgeks ma ilma maskita väljagi minna ! {}: ma ei näe su silmis mõistusehelki. ! {}: kes küll sinusugusele ajukääbikule kirjakunsti õpetas? ! {}: sina, sitavikat, ime kella! ! {}: kas see on su nina, või kasvatad endale kolmandat kätt? ! {}: mina olen blond, aga mis sinu vabandus on? ! {}: kuidas Sulle kõrvaltvaatajana inimsugu tundub? ! {}: sina ja inetu? Sa ei ole inetu, sa oled lihtsalt ... äh kuradile, Sa oled inetu. Sitaks inetu. Ja paks ka. Ja kiilakas. ! {}: huvitav, miks tulnukad sulle pärakusse sondi jätsid? ! {}: mitu korda ma pean vett tõmbama, et sa ära kaoksid? ! {}: oled sa alati nii loll või on sul lihtsalt blond hetk?? ! K: Mida ütles jumal, kui ta {}' tegi? V: Oh shit! ! K: Kui Empire State Building'u katuselt kukuvad alla paks neeger ja {}, siis kumb jõuab alla esimesena? V: Pole valge mehe asi. ! K: Mis on {}' jaoks pikk ja raske? V: Algkool ! {}: sa pole just karbi kõige kirkam kriit ! {}: sa oled erakordselt sita väljanägemisega. On see mingi uus trend? ! {}: kumb meist nüüd mürki peaks võtma? ! {}: mõni küla on sinu pärast praegu ilma lollita. ! {}: on see kitsehabe või on tuvid su lõua täis sittunud? ! {}: palun seisa allatuult. ! {}: sae pekki. ! Kuule {}, sina kõdunenud kammeljas, sina mädanenud mudakukk, sina solgitud särg, mine osta omale õng. ! {}: näri muru! ! {}: kes sinusugusele kulendile suu andis? ! {}: tead mis, PANE ENNAST PÕLEMA! ! {}: söö sitta! (miljardid kärbsed ei saa ju ometi valel teel olla) ! {}: sa näed välja nagu keedetud kaheksajalg ! {}: sa oled meditsiiniline ime ! {}: sa näed ikka vahva välja! See kleit su seljas on pilapoest, eks? ! {}: milline seitsmest pöialpoisist Sina oled? ! {}: kao eemale! Sa seisad mu aura peal! ! {} on mees, kes ei tee palju sõnu. Aga möliseb ikkagi rohkem kui vaja. ! . o O ( Kus on geenipolitsei? Siin on mingi jälk {} ) O o . ! . o O ( Millise kivi alt küll sellised lontrused nagu {} välja ronivad.. ) O o . ! {}: kes ma Sinu arust olen? Kärbsepaber idiootidele? ! {}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. ! {}: sa oled nii loll, et sobiksid ideaalselt Võrno saatesse. ! {}: Su jutt kõlab nagu eesti keel, aga ma ei saa mitte halligi aru. ! {}: kõik mu eelarvamused Sinu suhtes on ajapikku tõeks osutunud. ! {}: ilmselgelt on ainuke lahendus sinu probleemile suitsiid. ! {}: see et keegi sind ei mõista, ei tähenda veel et oled kunstnik. ! {}: Sa varud ilmselt alati spetsiaalselt aega, et end avalikus kohas lolliks teha. ! {}: Kuuldavasti oli sul kunagi yks mõte, aga see suri yksinduse kätte ära. ! {}: Ma vihkan kõiki. Sina oled järgmine. ! {}: Ja sinu täiesti mõttetu arvamus on...? ! {}: Pista pea perse ja tee porgandi häält. ! {}: Kas sa nüüd taipad, mis juhtub kui sugulased omavahel abielluvad? ! {}: Mõistuse poolest on sulle kõige lähemal reha, või äärmisel juhul labidas. ! {}: Maakeral ei ole enam ruumi. Mine koju. ! {}: Mine hoia oma pead vee all. ! Isegi lollide maailmameistrivõistlustel saaks {} teise koha, kuna ta on lihtsalt niivõrd loll.... ! {}: mine ära enne kui ma sind ümber lükkan. ! Näe, tõmbasin küll vett, aga {} ikka alla ei läinud. ! Miskit rõvedat pininat tuleb kusagilt. Aaa, see oled sina, {}! ! Tere {}! Kuidas viinaravi edeneb? ! Vaene {}, kas sa jäid rongi alla või oledki sellisena sündinud? ! {}: Piiblis on kirjas: "Juudas eemaldus ja läks ja poos end üles." Ja veel: "Mine tee sina samuti" ! {}, miks sa ei lase oma mõistust teritada? ! {}, tee mulle üks teene - ära unusta koduteel vales kohas tänavat ületada. ! {}, mängime kodu, Sina oled uks ja mina löön su kinni. ! {}, lähme kusagile, kus me saaksime teineteisest lahus olla. ! Ma ei unusta kunagi ühtegi nägu, aga {} puhul olen ma valmis erandi tegema. ! {}, vaata, rong läheneb! Roni rööbastele! ! {}, Sul on väga huvitav nägu, mitu korda Sind sinna löödud on? ! {}, mängime hobusdt. Mina olen esimene ots ja sina võid lihtsalt iseennast mängida. ! {} nalju tervitab alati suur vaikusepahvak. ! Ahv heitis {}'le ühe pilgu ning karjus: "Persse see Darwini teooria - mina endast inimest teha ei lase!" ! Peab tunnistama, et {}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. ! Kas tõesti on sõnade helge pea ja {} vahel nii suur erinevus? --- 1,81 ---- ! ${victim}: sa oled nuhtluseks maailmale loodud, et inimesed näeksid, kui madalale võib üks inimeseloom #linux.ee peal langeda. ! ${victim}: sa oled loll nagu lauajalg. ! Tead ${victim}, mine osta õige üks tükk seepi. ! Erikuradikinomees sa ${victim} oled, reede 6hta ircus! ! ${victim}: sa oled yks plekist persega vedruvasikas. ! ${victim}: k2i jala. ! ${victim}, sa vana pede, sinu kohta on artikkel: http://www.${victim}.isgay.com/ ! ${victim}: kalla end piimaga üle ja pane traktori kõrval põlema. ! Oh püha perse kiriku laes, kuskohas küll ${victim}'suguseid produtseeritakse. ! ${victim}: sina mine perse ja jäägi sinna. ! ${victim}: vabanda, kui ma sind kuidagi solvasin. See juhtus täiesti tahtlikult. ! ${victim}: ma ei saa aru, kuidas päike küll sinu peale paistes oksendama ei hakka. ! ${victim}: tra kyll, kui mina sinu moodi välja näeks, ei julgeks ma ilma maskita väljagi minna ! ${victim}: ma ei näe su silmis mõistusehelki. ! ${victim}: kes küll sinusugusele ajukääbikule kirjakunsti õpetas? ! ${victim}: sina, sitavikat, ime kella! ! ${victim}: kas see on su nina, või kasvatad endale kolmandat kätt? ! ${victim}: mina olen blond, aga mis sinu vabandus on? ! ${victim}: kuidas Sulle kõrvaltvaatajana inimsugu tundub? ! ${victim}: sina ja inetu? Sa ei ole inetu, sa oled lihtsalt ... äh kuradile, Sa oled inetu. Sitaks inetu. Ja paks ka. Ja kiilakas. ! ${victim}: huvitav, miks tulnukad sulle pärakusse sondi jätsid? ! ${victim}: mitu korda ma pean vett tõmbama, et sa ära kaoksid? ! ${victim}: oled sa alati nii loll või on sul lihtsalt blond hetk?? ! K: Mida ütles jumal, kui ta ${victim}' tegi? V: Oh shit! ! K: Kui Empire State Building'u katuselt kukuvad alla paks neeger ja ${victim}, siis kumb jõuab alla esimesena? V: Pole valge mehe asi. ! K: Mis on ${victim}' jaoks pikk ja raske? V: Algkool ! ${victim}: sa pole just karbi kõige kirkam kriit ! ${victim}: sa oled erakordselt sita väljanägemisega. On see mingi uus trend? ! ${victim}: kumb meist nüüd mürki peaks võtma? ! ${victim}: mõni küla on sinu pärast praegu ilma lollita. ! ${victim}: on see kitsehabe või on tuvid su lõua täis sittunud? ! ${victim}: palun seisa allatuult. ! ${victim}: sae pekki. ! Kuule ${victim}, sina kõdunenud kammeljas, sina mädanenud mudakukk, sina solgitud särg, mine osta omale õng. ! ${victim}: näri muru! ! ${victim}: kes sinusugusele kulendile suu andis? ! ${victim}: tead mis, PANE ENNAST PÕLEMA! ! ${victim}: söö sitta! (miljardid kärbsed ei saa ju ometi valel teel olla) ! ${victim}: sa näed välja nagu keedetud kaheksajalg ! ${victim}: sa oled meditsiiniline ime ! ${victim}: sa näed ikka vahva välja! See kleit su seljas on pilapoest, eks? ! ${victim}: milline seitsmest pöialpoisist Sina oled? ! ${victim}: kao eemale! Sa seisad mu aura peal! ! ${victim} on mees, kes ei tee palju sõnu. Aga möliseb ikkagi rohkem kui vaja. ! . o O ( Kus on geenipolitsei? Siin on mingi jälk ${victim} ) O o . ! . o O ( Millise kivi alt küll sellised lontrused nagu ${victim} välja ronivad.. ) O o . ! ${victim}: kes ma Sinu arust olen? Kärbsepaber idiootidele? ! ${victim}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. ! ${victim}: sa oled nii loll, et sobiksid ideaalselt Võrno saatesse. ! ${victim}: Su jutt kõlab nagu eesti keel, aga ma ei saa mitte halligi aru. ! ${victim}: kõik mu eelarvamused Sinu suhtes on ajapikku tõeks osutunud. ! ${victim}: ilmselgelt on ainuke lahendus sinu probleemile suitsiid. ! ${victim}: see et keegi sind ei mõista, ei tähenda veel et oled kunstnik. ! ${victim}: Sa varud ilmselt alati spetsiaalselt aega, et end avalikus kohas lolliks teha. ! ${victim}: Kuuldavasti oli sul kunagi yks mõte, aga see suri yksinduse kätte ära. ! ${victim}: Ma vihkan kõiki. Sina oled järgmine. ! ${victim}: Ja sinu täiesti mõttetu arvamus on...? ! ${victim}: Pista pea perse ja tee porgandi häält. ! ${victim}: Kas sa nüüd taipad, mis juhtub kui sugulased omavahel abielluvad? ! ${victim}: Mõistuse poolest on sulle kõige lähemal reha, või äärmisel juhul labidas. ! ${victim}: Maakeral ei ole enam ruumi. Mine koju. ! ${victim}: Mine hoia oma pead vee all. ! Isegi lollide maailmameistrivõistlustel saaks ${victim} teise koha, kuna ta on lihtsalt niivõrd loll.... ! ${victim}: mine ära enne kui ma sind ümber lükkan. ! Näe, tõmbasin küll vett, aga ${victim} ikka alla ei läinud. ! Miskit rõvedat pininat tuleb kusagilt. Aaa, see oled sina, ${victim}! ! Tere ${victim}! Kuidas viinaravi edeneb? ! Vaene ${victim}, kas sa jäid rongi alla või oledki sellisena sündinud? ! ${victim}: Piiblis on kirjas: "Juudas eemaldus ja läks ja poos end üles." Ja veel: "Mine tee sina samuti" ! ${victim}, miks sa ei lase oma mõistust teritada? ! ${victim}, tee mulle üks teene - ära unusta koduteel vales kohas tänavat ületada. ! ${victim}, mängime kodu, Sina oled uks ja mina löön su kinni. ! ${victim}, lähme kusagile, kus me saaksime teineteisest lahus olla. ! Ma ei unusta kunagi ühtegi nägu, aga ${victim} puhul olen ma valmis erandi tegema. ! ${victim}, vaata, rong läheneb! Roni rööbastele! ! ${victim}, Sul on väga huvitav nägu, mitu korda Sind sinna löödud on? ! ${victim}, mängime hobust. Mina olen esimene ots ja sina võid lihtsalt iseennast mängida. ! ${victim} nalju tervitab alati suur vaikusepahvak. ! Ahv heitis ${victim}'le ühe pilgu ning karjus: "Persse see Darwini teooria - mina endast inimest teha ei lase!" ! Peab tunnistama, et ${victim}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. ! Kas tõesti on sõnade helge pea ja ${victim} vahel nii suur erinevus? |
|
From: Andres S. <di...@us...> - 2005-04-09 17:11:18
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Talk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9126/Plugins/Talk Modified Files: Plugin.pm Log Message: incorporated the insult plugin into the talk plugin Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Talk/Plugin.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Plugin.pm 9 Apr 2005 16:53:20 -0000 1.10 --- Plugin.pm 9 Apr 2005 17:11:09 -0000 1.11 *************** *** 3,7 **** package Talk; #use base qw(Tuxaator::Plugin); - use Data::Dumper; # Random-path sayings --- 3,6 ---- *************** *** 83,86 **** --- 82,89 ---- "restricted" => 1, "level" => 3}, + "!insult" => + {"action" => "do_insult", + "restricted" => 1, + "level" => 2}, ); *************** *** 141,144 **** --- 144,161 ---- } + sub do_insult { + my $self = shift; + my $event = pop @_; + my $victim = join " " => @_; + if ( (length($victim) == 0) || (length($victim) > 30) ) + { + $victim = $event->nick; + }; + + my $message = make_random_string('insult.txt', + victim => $victim); + $self->{'core'}->queue($event, $message); + } + # wrapper for a random quote generator, is executed 60 seconds after the bot joins the |
|
From: Andres S. <di...@us...> - 2005-04-09 16:53:30
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Talk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32351/Plugins/Talk Modified Files: Plugin.pm Log Message: generalized random string generation Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Talk/Plugin.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Plugin.pm 5 Apr 2005 19:52:59 -0000 1.9 --- Plugin.pm 9 Apr 2005 16:53:20 -0000 1.10 *************** *** 5,12 **** --- 5,16 ---- use Data::Dumper; + # Random-path sayings + + # Picks and returns a random element of the supplied list sub random_of (@) { $_[int rand @_] } + # Picks a random path from a {...|...} markuped string sub random_path ($) { my ($set) = @_; *************** *** 15,18 **** --- 19,44 ---- } + # Generates a random string. Stringpath specifiers are taken from + # the named file; ${foo} in these paths are replaced according to %subst. + sub make_random_string ($%) { + my ($filename, %subst) = @_; + + # Read the lines + my $fh; + open $fh, "<$filename" or die "$filename: open: $!"; + my @lines = <$fh>; + close $fh; + chomp for @lines; + + # Pick a random line and a random path from it + my $result = random_path random_of @lines; + + # Substitute + $result =~ s/(\${([\w-]+)})/exists $subst{$2} ? $subst{$2} : $1/ge; + + # Return + return $result; + } + sub new { my $class = shift; *************** *** 103,121 **** my $event = pop @_; my $msg = join " " => @_; - my $res = "1) $msg\n"; - $res .= "2) ...\n"; # plaanid.txt is in the root directory of the bot, so you can add/edit/remove plans # without needing to restart the bot ! open F,"<plaanid.txt" or die "cannot open: $!"; ! my @lines = <F>; ! close F; ! chomp for @lines; ! my $plan = random_path random_of @lines; ! $plan =~ s/\${msg}/$msg/g; ! $plan =~ s/\${user}/$event->nick/ge; ! $res .= "3) $plan\n"; # answer goes to the channel, otherwise it doesnt make too much sense $event->to(@{$event->to}[0]); ! $self->{'core'}->queue($event,$res); } --- 129,142 ---- my $event = pop @_; my $msg = join " " => @_; # plaanid.txt is in the root directory of the bot, so you can add/edit/remove plans # without needing to restart the bot ! my $finale = make_random_string('plaanid.txt', ! msg => $msg, user => $event->nick); ! my $message = "1) $msg\n". ! "2) ...\n". ! "3) $finale\n"; # answer goes to the channel, otherwise it doesnt make too much sense $event->to(@{$event->to}[0]); ! $self->{'core'}->queue($event, $message); } |
|
From: Andres S. <di...@us...> - 2005-04-05 19:53:09
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Talk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16969/Plugins/Talk Modified Files: Plugin.pm Log Message: 1. restrict !say and !emote to level 3; 2. implemented randompath and ${user} for !plan Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Talk/Plugin.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Plugin.pm 30 Mar 2004 20:37:06 -0000 1.8 --- Plugin.pm 5 Apr 2005 19:52:59 -0000 1.9 *************** *** 5,8 **** --- 5,18 ---- use Data::Dumper; + sub random_of (@) { + $_[int rand @_] + } + + sub random_path ($) { + my ($set) = @_; + while ($set =~ s/\{([^{}]*\|[^{}]*)\}/random_of split m[\|], $1/ge) {} + return $set; + } + sub new { my $class = shift; *************** *** 38,42 **** {"action" => "do_say", "restricted" => 1, ! "level" => 2}, "!plan" => {"action" => "do_plan", --- 48,52 ---- {"action" => "do_say", "restricted" => 1, ! "level" => 3}, "!plan" => {"action" => "do_plan", *************** *** 46,50 **** {"action" => "do_emote", "restricted" => 1, ! "level" => 2}, ); --- 56,60 ---- {"action" => "do_emote", "restricted" => 1, ! "level" => 3}, ); *************** *** 100,107 **** my @lines = <F>; close F; ! my $index = rand @lines; ! my $plan = $lines[$index]; ! $plan =~ s/\${msg}/$msg/; ! $res .= "3) " . $plan; # answer goes to the channel, otherwise it doesnt make too much sense $event->to(@{$event->to}[0]); --- 110,118 ---- my @lines = <F>; close F; ! chomp for @lines; ! my $plan = random_path random_of @lines; ! $plan =~ s/\${msg}/$msg/g; ! $plan =~ s/\${user}/$event->nick/ge; ! $res .= "3) $plan\n"; # answer goes to the channel, otherwise it doesnt make too much sense $event->to(@{$event->to}[0]); |
|
From: Andres S. <di...@us...> - 2005-04-05 19:49:24
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Vera In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16036/Plugins/Vera Modified Files: Plugin.pm Log Message: new vera file format support Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Vera/Plugin.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Plugin.pm 30 Mar 2004 20:37:07 -0000 1.4 --- Plugin.pm 5 Apr 2005 19:49:16 -0000 1.5 *************** *** 20,24 **** my %acronomicon; local $_ = ''; ! do {$_ = <$fh>} until /^\*\*\*/; local $/ = ''; while (<$fh>) { --- 20,24 ---- my %acronomicon; local $_ = ''; ! do {$_ = <$fh>} until !defined $_ or /^\*\*\*/; local $/ = ''; while (<$fh>) { |
