Hawkee Snippet Search

+ 3 likes

Please Register to submit score.

Average Score	9.6
Scores Submitted	7
Date Added	Mar 17, 2008
Last Updated	Aug 26, 2008
Tags	asp code hawkee java js mirc mysql net php rails regex ruby scripting search snippet snippets sockets

Introduction

This snippet searches for other snippets from Hawkee. You can search through all of them, or specify a category.

Syntax: [/snippets|!snippets] <-type> [search criteria]

[] = Required
<> = optional

Types:

* -asp
* -cpp
* -cfm
* -css
* -java
* -js
* -jsp
* -mirc
* -myspace
* -mysql
* -net
* -opensocial
* -perl
* -php
* -python
* -ruby
* -tcl

Examples:

/snippets trivia
!snippets -php print

Screen:

As default, it returns the top 3 matches. If you'd like to change the number of matches it returns, change "if (%N == 3)" to "if (%N == NUMBER)"

Enjoy

Grab the Code

;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;           Hawkee Snippet Search                *
;            Made by MountainDew                 ~
; IRC.DeltaAnime.Net » #Lindrian #mIRC-Scripting *
;  US.UnderNet.Org » #Hawkee.com #mircscripting  ~
;*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

on $*:TEXT:/^[.!@](snip(pets)?|hawk(ee)?)/Si:#:{
 set %s.chan $iif($chan == #msl,$nick,$v1)
 snippets $2-
}
alias snippets {
 if ($sock(snippets)) {
 %smsg Wait until the current search has been finished.
 halt
 }
 set %smsg $iif(%s.chan,$iif(%s.chan == #msl,notice,msg) %s.chan,echo -a)
 if (!$1) {
 %smsg Syntax: $iif(%s.chan,!,/) $+ snippets [-type] <search criteria>
 halt
 }
 if ($left($1,1) == -) {
 if ($istok(-asp|-cfm|-css|-java|-js|-jsp|-mirc|-mysql|-net|-perl|-php|-python|-ruby|-tcl|-myspace|-opensocial|-cpp,$1,124)) {
 if (!$2) {
 %smsg Please specify search criteria.
 halt
 }
 set %s.prop $1
 }
 else {
 %smsg The available switches are: -asp cpp -cfm -css -java -js -jsp -mirc -myspace -mysql -net -opensocial -perl -php -python -ruby -tcl
 halt
 }
 }
 set %s.search $iif(%s.prop,$2-,$1-)
 $iif(%s.chan,describe %s.chan searches,echo -a Searching) for $qt(%s.search) in $iif(%s.prop,$replace(%s.prop,-asp,ASP,-cpp,C++,-cfm,CFM,-css,CSS,-java,Java,-js,JavaScript,-jsp,JSP,-mirc,mIRC,-mysql,MYSQL,-net,.NET,-perl,Perl,-php,PHP,-python,Python,-ruby,Ruby,-tcl,TCL,-myspace,MySpace,-opensocial,OpenSocial)) Snippets...
 sockopen snippets www.hawkee.com 80
}
on *:sockopen:snippets:{
 set %s.url $iif(!%s.prop,/snippets/?user_id=&snippet_type=&search_query= $+ $replace(%s.search,$chr(32),+) $+ &search_type=snippet_title,/snippets/search/ $+ $replace(%s.search,$chr(32),+) $+ /cat/ $+ $remove(%s.prop,-) $+ /)
 unset %s.prop
 sockwrite -nt $sockname GET %s.url HTTP/1.1
 sockwrite -nt $sockname Host: www.hawkee.com
 sockwrite -nt $sockname $crlf
}
on *:sockread:snippets:{
 var %x
 sockread %x
 if (We couldn't find any snippets to match your search. isin %x || We have not received any snippets for this section yet. isin %x) {
 %smsg Sorry, no matches were found for $qt(%s.search) $+ .
 unset %s.*
 sockclose $sockname
 }
 if ($regex(%x,/\+ (\d+)<\/b> likes /i)) set %s.likes $regml(1)
 if ($regex(%x,/Score: (\d+\.\d)<\/b>/i)) set %s.rating $regml(1)
 if ($regex(%x,/<a href='(\/snippet\/\d+\/)' class='large'>(.+)<\/a> /i)) {
 set %s.title $regml(2)
 set %s.url2 http://www.hawkee.com $+ $regml(1)
 }
 if ($regex(%x,/<a href="\/snippets\/cat\/.+\/">(.+)<\/a>/i)) set %s.lang $regml(1)
 if ($regex(%x,/Posted by <a href='.+'>(.+)<\/a> on <.+>(.+)<\/b><\/span>/i)) {
 set %s.by $regml(1)
 set %s.date $regml(2)
 inc %N
 %smsg 9• 4Title: %s.title 4Author: $regml(1) 4Sumbitted: $regml(2) 4Language: %s.lang 4Score: %s.rating 4Likes: %s.likes 4URL: %s.url2
 if (%N == 3) {
 unset %s.* %N %smsg
 sockclose $sockname
 }
 }
 if (<div id="sidebar"> isin %x) sockclose $sockname
}
on *:sockclose:snippets: unset %s.* %N %smsg
alias hawk snippets $1-
alias snip snippets $1-
alias hawkee snippets $1-

Comments

(24) RSS

Go to Bottom

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 17, 2008 4:13 pm

Enjoy

Lindrian

Comments: 728

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 17, 2008 6:29 pm

/^[.!@](snip|snippets|hawk|hawkee)/Si

Could be

/^[.!@](snip(pets)?|hawk(ee)?)/Si

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 17, 2008 6:42 pm

true, thanks :)

Eugenio

Comments: 840

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 17, 2008 9:01 pm

Given a strate 10/10! I have been looking for a script that does this for ages.

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 17, 2008 9:16 pm

Thanks Eugenio :)

Hawkee

Comments: 464

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 22, 2008 4:18 pm

Very cool, may just need to implement an API so you don\'t need to scrape the HTML.

Lindrian

Comments: 728

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 22, 2008 6:34 pm

That\'d be awesome, Hawkee :D

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Mar 22, 2008 9:22 pm

Ty Hawkee

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Apr 16, 2008 3:07 pm

Updated it, the socket wasn\'t closing after the last snippet is messaged.

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on May 5, 2008 2:06 pm

Updated due to the new site design.

jonesy44

Comments: 852

mIRC Snippet: Hawkee Snippet Search
Posted on May 5, 2008 5:41 pm

Good stuff mountaindew !

Hawkee

Comments: 464

mIRC Snippet: Hawkee Snippet Search
Posted on May 5, 2008 7:13 pm

mountain, I just noticed something that shouldn\'t have been there. We\'re no longer using class=\'smallest\' so I\'ve removed it. You\'ll probably have to update your code again, sorry!

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on May 5, 2008 7:26 pm

No problem ;)

Updated.

^Neptune

Comments: 180

mIRC Snippet: Hawkee Snippet Search
Posted on May 6, 2008 2:27 am

id love it if it would send the snippet via DCC chat

SnoooP

Comments: 343

mIRC Snippet: Hawkee Snippet Search
Posted on May 7, 2008 5:55 pm

good work .... it works well

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Jun 16, 2008 6:27 pm

Updated, there was a problem where if there were less than %N results, the socket would stay open.

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 22, 2008 6:00 pm

Updated:

* Added MySpace & OpenSocial
* Fixed the "no results" line
* Now includes the number of "Likes"

Eugenio

Comments: 840

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 22, 2008 7:12 pm

;o
/me re-tests

pwnisher3

Comments: 129

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 24, 2008 1:24 pm

i'm prolly never going to use this but either way i have no problems with it and it has everything you said. i am not good enough to look through it and find any problems if there was one but anyway 10/10

Zmodem

Comments: 100

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 24, 2008 6:36 pm

Hey, I added a dialog search window + events/utilities. Of course, this is still your baby, but I figured I would contribute :)

This will only interrupt the normal search output if the dialog is open.

(NOTE: I have no idea why this is messing up the (CODE)(/CODE) block).

Go here http://www.hawkee.com/snippet/5004/ for the dialog-enhanced version.

Mountaindew : If you decide to add it, let me know and I'll remove mine.

Hawkee

Comments: 464

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 24, 2008 10:05 pm

Zmodem, probably better to post it as another snippet with a link to the original source here. Could also edit to include only your additions so the comment doesn't extend beyond the boundaries of the site.

Zmodem

Comments: 100

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 24, 2008 10:39 pm

Alright, man, I'll try to remember that ;)

Hawkee

Comments: 464

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 24, 2008 10:58 pm

Would be nice if you cleaned up that comment you made above though.

mountaindew

Comments: 1,523

mIRC Snippet: Hawkee Snippet Search
Posted on Aug 26, 2008 12:57 pm

Added C++ (-cpp)

Hawkee Snippet Search

Introduction

Grab the Code

Comments

mountaindew

My Snippet Tags

Contact

Friends (48)

Sponsors

		United States
Last seen: Aug 29, 2008 Profile \| Website Likes (55) Friends (48) Snippets (29) Images (21) Products (8) Reviews (12) Comments Received (770) Comments Submitted (1523) Forum Posts (875)