Rousing SUB Noticeעל ידי ZxoR
ICFG News RSS E.Xעל ידי ZxoR
ircd.confעל ידי darksis
דשגדגגדשעל ידי Vgsus
aaעל ידי Zen-
ssssעל ידי Zen-
שדכשדכעל ידי Xeinok
youtube Zen-על ידי Zen-
Clubs botעל ידי Editor
סוג הסקריפט/סניפט: Microchip AssemblerabapkixtartActionScriptJavascriptactionscript3mxmlAdaMySQLApachelscriptAppleScriptlsl2apt_sourcesNSISx86 Assembleroberon2ASPObjective CAutoItOCamlavisynthOCamlBashOpenOffice.org Basicbasic4gloracle11bfOracle 8 SQLbibtexLuaBlitzBasicPascalBNFperbooPerlCPHP (brief)C (Mac)PHPCAD DCLpic16CAD LisppixelbenderCFDGPL/SQLColdFusionpovraycilprogresscmakeprologcobolpropertiesC++ (QT)providexC++PythonC#QBasic/QuickBASICCSSRailsDreboldcsMicrosoft RegistryDelphirobots.txtDiffRubyDIVSASDOSscaladotSchemeEiffelscilabemailsdlBasicerlangSmalltalkfoSmartyFortranm68kFreeBasicSQLgeneroTCLgettextteratermglslTextGMLthinBasicgnuplotT-SQLGroovytyposcripthaskellVisual Basichq9plusmakeHTMLvb.netUno IdlverilogINIVHDLInnovimintercalVisual Fox ProIovisualprologJavawhitespaceJava(TM) 2 Platform Standard Edition 5.0klonecwhoisklonecppWinbatchLaTeXXMLLispMatlab Mlocobasicxorg_conflolcodemIRC Scriptinglotusformulasmodula3lotusscriptX++ZiLOG Z80 Assembler
alias icfgrss { sockopen icfg icfg.co.il 80 set %icfgrss.number 1 } on *:sockopen:icfg: { var %sockwrite = sockwrite -tn $sockname %sockwrite GET /feed/ HTTP/1.1 %sockwrite Host: icfg.co.il %sockwrite Connection: keep-alive %sockwrite Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %sockwrite User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.116 Safari/537.36 %sockwrite } on *:sockread:icfg: { if ($sockerr) return 0 var %sockread sockread -f %sockread while ($sockbr) { if (*<item>* iswm %sockread) set %icfgrss.activate 1 if (!%icfgrss.activate) return 0 if ($regex(%sockread,/<title>(.+)</title>/i)) set %icfgrss.title $regml(1) if ($regex(%sockread,/<link>(.+)</link>/i)) set %icfgrss.link $regml(1) if ($regex(%sockread,/<dc:creator><!\[CDATA\[(.+)\]\]><\/dc:creator>/i)) { set %icfgrss.creator $regml(1) if (%icfgrss.creator) && (%icfgrss.title) && (%icfgrss.link) { echo -agc info * %icfgrss.number new: %icfgrss.title - %icfgrss.link ( $+ %icfgrss.creator $+ ) inc %icfgrss.number unset %icfgrss.title unset %icfgrss.creator unset %icfgrss.link unset %icfgrss.activate } if (%icfgrss.number > 5) { sockclose $sockname | return } if (*</rss>* iswm %sockread) { sockclose $sockname | return } } sockread -f %sockread } }