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
youtube
סוג הסקריפט/סניפט: 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
on *:input:*:{ if ($network == quakenet) { noop $youtube($1-) } } on *:text:*:*:{ if ($network == quakenet) { if ($regex($1-,/(?:http:\/\/)?(?:www\.)?youtube\.com(\S+)/) == 1) { set %youtube.channel $iif($chan,$v1,$nick) set %youtube.net $network $youtube($strip($1-)) } } } alias youtube { if ($regex($1-,/(?:http:\/\/)?(?:www\.)?youtube\.com\/(\S+)/) != 1) { return } set %youtube $regml(1) sockclose youtube sockopen youtube www.youtube.com 80 } on *:sockopen:youtube:{ sockwrite -tn $sockname GET / $+ %youtube HTTP/1.1 sockwrite -tn $sockname Host: www.youtube.com sockwrite -tn $sockname Connection: open sockwrite -tn $sockname Accept: */* sockwrite -tn $sockname Referer: www.youtube.com sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.14 Safari/535.1 sockwrite -tn $sockname $crlf } on *:sockread:youtube:{ var %youtube.s sockread %youtube.s if ($regex(%youtube.s,/\<meta name="title" content="(.+)"\>$/) == 1) { set %youtube.title $replace($regml(1),",",',',?,?,&,&,&,&) } elseif ($regex(%youtube.s,/\<strong\>(\d.+)\<\/strong\>$/) == 1) { msg $iif(%youtube.channel,$v1,$active) YOU0,4TUBE1,0 Title: %youtube.title Views: $regml(1) | unset %youtube* } }