Manuz.Com 김형원입니다 ::

'IT/TCL'에 해당되는 글 9건

네이버 필름스 영화 검색 스크립

2008/08/25 11:08

네이버 필름스 검색 스크립트 입니다.
네이버 필름스가 디자인이 변경되고 여러 변화를 거친후에 검색이 되지 않고 있었는데
최근에 수정했기에 포스팅 합니다. ㅎㅎ

네이버 필름스 검색 스크립트는 http://movie.naver.com 에서의 검색결과를 IRC 창으로 보여주는 스크립트입니다. 기본적인 영화 이름 검색만 되는 스크립트입니다.

ball 님께서 제공해주신 eggdrop 으로 제작하고 테스팅했습니다.
ball 님 THX! :)

참고로 스크립트를 요청하시려거나 수정을 원하시는 분들은
단군넷 #마누 체널로 오시면 제가 있습니다.
평상시에는 근무중이어서 대답을 하지 않을수도 있으니..
체널 분들과 함께 수다를 즐기고 계시면 제가 나타나겠습니다. ㅋㅋ
-2008.08.25

Download : TCL Script File (3.14KB)

영화 검색 명령어 사용법

영화 검색 화면 #1

영화 검색 화면 #2

Posted by 마누

EGGDROP, TCL, 스크립트

트랙백 0 : 댓글 4 댓글을 작성하시려면 클릭하세요

즐겨찾기 관리 스크립

IT/TCL

2008/08/08 14:11

즐겨찾기 관리스크립트 이다.
제작한지 1년이 넘었지만 한번도 공개를 하지 않고 있다가
eggdrop 을 돌리던 서버가 갑자기 닫히면서 자료를 모두 날려먹는 바람에..
허탈한 마음에 있다가 이제는 계속 공개를 해야 겠다고 마음먹고 ㅋ
백업파일을 찾아서 어렵게 포스팅 한다.

#마누 체널에서 작동하던 최신 버젼은 아니지만 최신버젼에 가깝다.
eggdrop 을 작동시킬 수 있는 쉘을 누군가가 무상 제공해주신다면
직접 최신버젼으로 수정하여 다시 포스팅 하겠습니다.
- 2008.08.08

Download : TCL Script File (5.10KB)
Download : Sample Database File (18.03 KB)

즐겨찾기추가 화면 #1

즐겨찾기추가 화면 #2

즐겨찾기검색 화면 #1

원본소스 보기

##################################
# 즐겨찾기 관리 스크립
##################################
# 제작 : 김형원(Manu)
# E-Mail : time8123@nate.com
# manu@manuz.com
# 홈페이지 : http://Manuz.Com
##################################

bind pub - !즐겨찾기추가 pub_favadd
bind pub - !즐추 pub_favadd
bind pub - !favadd pub_favadd

bind pub - !즐겨찾기 pub_favsearch
bind pub - !즐 pub_favsearch
bind pub - !fav pub_favsearch

bind pub - !즐겨찾기제거 pub_favremove
bind pub - !즐제 pub_favremove
bind pub - !favdel pub_favremove

proc pub_favadd {nick uhost hand chan arg} {
if {$arg==""} {
putquick "PRIVMSG $chan :Usage: !즐겨찾기추가 <name> <web address> or !즐추 or !favadd"
return 0
}
set data $arg
if {[string match *+* $data]} {
putquick "PRIVMSG $chan :- favorites website list : you can't use this character. \" \+ \""
return 0
}
set favfile "manu/favorites.dat"
set name [string trim [string range $arg 0 [string last " " $arg]]]
set address [string trim [string range $arg [string last " " $arg] end]]
regsub -all {http\:\/\/} $address "" address2
set favaddin [open $favfile r]
while {![eof $favaddin]} {
set rline [gets $favaddin]
set cmpname [string trim [string range $rline 0 [string first "+" $rline]] "+"]
if {[string compare [string tolower $name] [string tolower $cmpname]]==0} {
putquick "PRIVMSG $chan :- favorites website list : already have that name.. (\002$name\002)"
close $favaddin
return 1
}
}
close $favaddin
set favaddout [open $favfile a]
puts $favaddout "$name+$address2"
switch -regexp $address2 {
{^[Ff][Tt][Pp]\:\/\/} { putquick "PRIVMSG $chan :- favorites website list : \002$name\002 $ \037$address2\037 $ added completed." }
default { putquick "PRIVMSG $chan :- favorites website list : \002$name\002 $ \037http://$address2\037 $ added completed." }
}
close $favaddout
return 1
}

proc pub_favsearch {nick uhost hand chan arg} {
if {$arg==""} {
putquick "PRIVMSG $chan :Usage: !즐겨찾기 <name> or !즐 or !fav"
return 0
}
if {[isnumber [string range $arg [expr [string last " " $arg] + 1] end]]==1} {
set page [string range $arg [expr [string last " " $arg] + 1] end]
set arg [string trimright [string trimright $arg $page]]
} else {
set page 1
}
set item 10
set count 0
set favorites ""
set name [string tolower [string trim $arg]]
regsub -all { } $name "*" name
set favfile "manu/favorites.dat"
set favaddin [open $favfile r]
while {![eof $favaddin]} {
set rline [gets $favaddin]
set cmpname [string trim [string range $rline 0 [string first "+" $rline]] "+"]
set address [string trim [string range $rline [string first "+" $rline] end] "+"]
if {[string match *$name* [string tolower $cmpname]]} {
incr count
if {($count>=[ expr [ expr $item * [ expr $page - 1 ] ] + 1 ]) && ($count<=[ expr $item * $page ])} {
switch -regexp $address {
{^[Ff][Tt][Pp]\:\/\/} { append favorites "\003 \003 \003 \003 \003 \003 $count. $cmpname : \037$address\037\n" }
default { append favorites "\003 \003 \003 \003 \003 \003 $count. $cmpname : \037http://$address\037\n" }
}
}
}
}
close $favaddin
regsub -all {\*} $name " " name
if {!$count} {
putquick "PRIVMSG $chan :- favorites website list : I didn't found anything for $name"
return 1
} else {
putquick "PRIVMSG $chan :- favorites website list for \002$name\002 \($page\/[expr int([expr [expr [expr $count - 1] / $item ] + 1 ] )] Pages, Total $count result)"
foreach line [split $favorites \n] {
putquick "PRIVMSG $chan :$line"
}
}
}

proc pub_favremove {nick uhost hand chan arg} {
if {$arg==""} {
putquick "PRIVMSG $chan :Usage: !즐겨찾기제거 <name> or !즐제 or !favdel"
return 0
}
set favfile "manu/favorites.dat"
set favtemp "manu/.favtemp"
set delcount 0
set name [string trim $arg]
set favaddin [open $favfile r]
set favtempin [open $favtemp w]
while {![eof $favaddin]} {
set rline [gets $favaddin]
set cmpname [string trim [string range $rline 0 [string first "+" $rline]] "+"]
set address [string trim [string range $rline [string first "+" $rline] end] "+"]
if {[string compare [string tolower $name] [string tolower $cmpname]]==0} {
incr delcount
} else {
puts $favtempin "$cmpname+$address"
}
}
close $favaddin
close $favtempin
if {$delcount==0} {
putquick "PRIVMSG $chan :- favorites website list : can't remove item. \002$name\002 doesn't exist."
return 1
} else {
file copy -force $favtemp $favfile
file delete -force $favtemp
}
putquick "PRIVMSG $chan :- favorites website list : completed removing item. \002$name\002 does removed."
return 1
}

putlog "Loaded Manu's favorites manage scripts"

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 에그드롭

트랙백 0 : 댓글 0 댓글을 작성하시려면 클릭하세요

Scene 싸이트 관리 스크립

IT/TCL

2006/10/19 20:09

이 스크립은 Scene활동하는 컬팀을 위한 스크립입니다.
이게 무엇인지 컬팀은 또 무엇인지 모르시는 분들께서는 그냥 살짝이 넘겨주시면 됩니다.

먼저 기본적으로 Site 데이터를 관리하고 Rating 을 매길 수 있으며
정보의 수정과 관리에 매우 유용한 스크립트 입니다.
INI DATABASE 스크립트를 기반으로 만들었음을 알려드립니다.

명령어 설명입니다. 체널에서 !sitehelp 를 치시면 됩니다.

<Manu> !sitehelp
<SiteBOT> + MNC Site Database Help by manu
<SiteBOT> Site ADD : !addsite <Site_NAME> [GADMIN]
<SiteBOT> Site DEL : !delsite <Site_NAME>
<SiteBOT> Site EDIT : !chsite <Site_NAME> <Field> <VALUE>
<SiteBOT> Site RENAME : !resite <Site_NAME> <NEW_Site_NAME>
<SiteBOT> Site LIST : !site
<SiteBOT> Site INFO : !site <Site_NAME> [Field]
<SiteBOT> Site Rating List : !rate
<SiteBOT> Site Rating Find : !rate <Rating_Point>
<SiteBOT> Site Affil Find : !affil <GROUP>
<SiteBOT> - available field : sitename rating section affil siteop bnc locate slot irc key gadmin

* 위에서 <> 안에 있는 필드는 꼭 사용해야 하며 [] 의 필드는 사용하지 않아도 무방함.

각명령어에 대한 설명입니다.
!addsite 싸이트를 애드합니다.
!delsite 싸이트를 삭제합니다.
!chsite 싸이트 정보를 수정합니다.
사용가능한 필드는 sitename rating section affil siteop bnc locate slot irc key gadmin 입니다
!resite 싸이트 이름을 수정합니다.
!site 싸이트 리스트를 봅니다. 싸이트 이름을 적을시 싸이트 정보를 봅니다. 필드까지 채울시 해당 필드정보만을 열람합니다.
!rate 레이트 순서로 싸이트 리스트를 봅니다. 레이트를 적을시 특정 레이트에 해당하는 싸이트를 봅니다.
!affil 특정 어필그룹이 있는 싸이트를 찾습니다.

아래는 작동 모습입니다

<Manu> !site
<SiteBOT> + MNC Site DB
<SiteBOT> Site : ANTIMANU (Total : 1 sites.)

<Manu> !rate
<SiteBOT> + MNC Sitelist Sort by Rating ( 5.0 is Top )
<SiteBOT> 5.0 - ANTIMANU

<Manu> !site antimanu
<SiteBOT> + MNC Site DB - ANTIMANU
<SiteBOT> Rating : 5.0
<SiteBOT> SiteOp : Manu
<SiteBOT> Bnc : 127.0.0.1:21
<SiteBOT> Location : .KR 100mbit 7.5TB
<SiteBOT> Irc : DANKUN #마누
<SiteBOT> - End of Info - ANTIMANU :D - (5 fields are missing. - Affil, Gadmin, Key, Section, Slot)

* 설치방법
1. TCL 파일과 INI 파일을 scripts 폴더 또는 자신의 스크립트 폴더에 넣습니다.
2. eggdrop.conf 파일 또는 자신이 사용하는 configuration 파일에
source scripts/site_database.tcl
위와 같이 적어줍니다 자신의 폴더 위치대로
3. site_database.tcl 파일의 제일 윗부분을 아래와 같이 수정합니다.
set info_chan "#마누" // 자신의 체널이름
set NAME "\002MNC\002" // 봇이름 또는 컬팀 이름
set data_file "manu/site_database.ini" // ini 파일의 위치
4. dcc chat 으로 .rehash 해줍니다.

스크립에 대한 피드백은 꼬리글 또는 실시간 지원센터인 단군넷 #마누 에서 합니다.
스크립을 다운받아 가실때 꼬리글에 글 하나 남겨주는 센스 부탁합니다.
( 노 센스 노 개념이라 해서 스크립을 받으실 권한이 없는건 아닙니다. )

- 스크립파일 다운로드 -

site_database.rar

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 6 댓글을 작성하시려면 클릭하세요

드라마 tv.co.kr 검색 스크립

IT/TCL

2006/10/18 17:29

http://tv.co.kr 의 티브이드라마 데이터 베이스를 손쉽게 검색하여 링크를 보여주는 스크립트입니다..
2006년 10월 18일자 최신버젼입니다.

tvdrama.tcl

기본적인 사용방법

한번에 나오는 결과물의 갯수는 2개로 고정되어 있습니다. 수정하시려면 스크립 파일의 아래 부분을 원하시는 갯수로 고치세요 :)

set item 2

질문 있으시면 꼬리글에... :D

실시간 지원 센터!!!
IRC 단군넷 #마누
irc://irc.dankun.net:#마누

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 3 댓글을 작성하시려면 클릭하세요

네이버 Films 영화 검색 스크립트

IT/TCL

2006/10/18 17:16

http://movie.naver.com 의 영화데이터 베이스를 손쉽게 검색하여 링크를 보여주는 스크립트입니다..

처음 버젼을 만든지 1년여가 지난것 같습니다.
버그수정도 여러번 했구요 ^^;;
~~7월 31일자 최신 버그 수정버젼입니다.~~
2006년 10월 18일자 최신버젼입니다.

다운받으셔서 사용하세요

films.tcl

기본적인 사용방법

다른페이지 보는 방법

한번에 나오는 결과물의 갯수는 2개로 고정되어 있습니다. 수정하시려면 스크립 파일의 아래 내용을 원하시는 갯수로 고치세요 :)

set item 2

질문 있으시면 꼬리글에... :D

실시간 지원 센터!!!
IRC 단군넷 #마누
irc://irc.dankun.net:#마누

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 5 댓글을 작성하시려면 클릭하세요

Eggdrop용 TCL 스크립 리스트 2006.5.12현재

IT/TCL

2006/05/12 09:47

- Manuz Script List (http://Manuz.Com)
Atfile(파일검색) - !앳파일 <검색어> [페이지] or !atfile or !at
BestAnime(애니) - !애니 <검색어> [페이지] or !ani or !bestanime
Cineast(자막) - !자막 <검색어> [페이지] or !cineast
Dictionary(영한사전) - !dic <검색어> [페이지]
Favorites(즐겨찾기) - !즐겨찾기 <검색어> [페이지] or !즐 or !fav (!즐겨찾기추가, !즐추, !favadd, !즐겨찾기제거, !즐제, !favdel)
Drama(드라마) - !드라마 <검색어> [페이지] or !일드 or !drama
Films(영화정보) - !영화 <검색어> [페이지] or !films
imdb(영화정보) - !imdb <검색어> [페이지]
Preview(영화개봉정보) - !개봉 [페이지] or !preview
Running(영화상영정보) - !상영 [페이지] or !running
Serial(시리얼) - !시리얼 <검색어> [페이지] or !sn (!시리얼추가, !snadd, !시리얼제거, !sndel)
Weather(날씨) - !날씨 <지역> 지원되는 지역은 !날씨 help
NFOrce(릴리즈정보) - !nfo <섹션> [페이지] or !nforce 지원되는 섹션은 !nforce
Google(웹검색:구글) - !gg <검색어> [페이지] or !google or !구글
Changgo(음악검색) - !음악 <아티스트> [페이지] or !ms or !changgo
need more infomation? msg to Manu. Nateon : manu@manuz.com

베타 테스트 중인 스크립
- 성경검색 스크립(버젼업계획)
- TCL script 자동전송 스크립 (제한적사용)

제작계획중인 스크립
- 옥션 상품 검색 스크립
- 국어사전 스크립
- 한영사전 스크립

버젼업계획중인 스크립 & 상세내용
- 드라마 스크립
: 결과물이 1개일시에 exact match url 만 보여주는 것이 아닌
드라마의 정보까지 출력해주는 스크립
- 애니 스크립
: 결과물이 1개일시에 exact match url 만 보여주는 것이 아닌
드라마의 정보까지 출력해주는 스크립

개발중인 Function
- Unicode 표현에 관한 함수
- 스트링 추출에 관한 함수

-------------------------------------------

피드백 받습니다 ;)

스크립의 배포유무는 IRC 단군넷 #마누 로 오셔서 문의하세요
배포도 체널에서 합니다.

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 0 댓글을 작성하시려면 클릭하세요

자막 Cineast.co.kr 검색 스크립

IT/TCL

2004/10/08 22:53

http://Cineast.co.kr 의 자막 데이터 베이스를 손쉽게 검색하여 링크를 보여주는 스크립트입니다..

cineastnew.tcl

스크립 다운받기

(@Manu) !자막 해리포터
(+|Oops-|) - cineast search for 해리포터 (1/5 Pages, Total 10 result)
(+|Oops-|) Source : http://www.cineast.co.kr/zboard/search6.php?kw=해리포터
(+|Oops-|) [한글] 해리포터와 아즈카반의 죄수 (Harry Potter And The Prisoner Of Azkaban, 2004) WS 2CD 700/700-MiNY : http://www.cineast.co.kr/zboard/view.php?id=data1&no=46959
(+|Oops-|) [Sub][WAF] 해리포터와 아즈카반의 죄수(3CD) : http://www.cineast.co.kr/zboard/view.php?id=data1&no=46954

기본적인 사용방법

(@Manu) !자막 해리포터 2
(+|Oops-|) - cineast search for 해리포터 (2/5 Pages, Total 10 result)
(+|Oops-|) Source : http://www.cineast.co.kr/zboard/search6.php?kw=해리포터%20
(+|Oops-|) [한글] 해리포터와 아즈카반의 죄수 (Harry Potter And The Prisoner Of Azkaban, 2004) WS 3CD 700/700/699-NaVy : http://www.cineast.co.kr/zboard/view.php?id=data1&no=46944
(+|Oops-|) [한글] 해리포터와 아즈카반의 죄수 (Harry Potter And The Prisoner Of Azkaban, 2004) WS 3CD-WAF 수정 자막 : http://www.cineast.co.kr/zboard/view.php?id=data1&no=46927

다른페이지 보는 방법
한번에 나오는 결과물의 갯수는 2개로 고정되어 있습니다. 수정하시려면 스크립 파일의 36번째 라인의 숫자 2를 원하시는 갯수로 고치세요 :)

31 if {$page==""} {
32 set page 1
33 set search $arg
34 }
35 set item 2
36 set count 0

질문 있으시면 꼬리글에... :D

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 1 댓글을 작성하시려면 클릭하세요

드라마 tvdrama.co.kr 검색 스크립

IT/TCL

2004/10/08 22:47

http://tvdrama.co.kr 의 티브이드라마 데이터 베이스를 손쉽게 검색하여 링크를 보여주는 스크립트입니다..

tvdrama.tcl

스크립 다운받기

기본적인 사용방법

한번에 나오는 결과물의 갯수는 2개로 고정되어 있습니다. 수정하시려면 스크립 파일의 36번째 라인의 숫자 2를 원하시는 갯수로 고치세요 :)

32 if {$page==""} {
33 set page 1
34 set search $arg
35 }
36 set item 2
37 set count 0

질문 있으시면 꼬리글에... :D

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 2 댓글을 작성하시려면 클릭하세요

앳파일 Atfile.Com 프로그램 검색 스크립

IT/TCL

2004/09/10 13:10

http://atfile.com 의 프로그램 데이터 베이스를 손쉽게 검색하여 링크를 보여주는 스크립트입니다..

atfile.tcl

스크립 다운받기

기본적인 사용방법

다른페이지 보는 방법

한번에 나오는 결과물의 갯수는 2개로 고정되어 있습니다. 수정하시려면 스크립 파일의 35번째 라인의 숫자 2를 원하시는 갯수로 고치세요 :)

31 if {$page==""} {
32 set page 1
33 set search $arg
34 }
35 set item 2
36 set count 0

질문 있으시면 꼬리글에... :D

Posted by 마누

EGGDROP, IRC, TCL, 스크립, 아얄씨, 에그드롭

트랙백 0 : 댓글 5 댓글을 작성하시려면 클릭하세요

<< 이전 : [1] : 다음 >>

Manuz.Com 김형원입니다

'IT/TCL'에 해당되는 글 9건

네이버 필름스 영화 검색 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/192

즐겨찾기 관리 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/188

Scene 싸이트 관리 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/122

드라마 tv.co.kr 검색 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/55

네이버 Films 영화 검색 스크립트

트랙백 보낼 주소 : http://manuz.com/trackback/30

Eggdrop용 TCL 스크립 리스트 2006.5.12현재

트랙백 보낼 주소 : http://manuz.com/trackback/105

자막 Cineast.co.kr 검색 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/51

드라마 tvdrama.co.kr 검색 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/50

앳파일 Atfile.Com 프로그램 검색 스크립

트랙백 보낼 주소 : http://manuz.com/trackback/37

Manuz.Com 김형원입니다 - 최근 공지

공지사항

카테고리

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

태그목록

글 보관함

달력

링크