Страница 1 из 1

mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 16 май 2009 10:34
tvrsh
###
#
# Название: mobile.tcl
# Версия: 2.0
# Автор: tvrsh
# Оффсайт: http://egghelp.ru/
#
###
#
# Описание: Скрипт собирает с сайта http://www.gsmarena.com характеристики мобильных телефонов.
#
###
#
# Установка:
# 1. Скопируйте скрипт mobile.tcl в папку scripts/mobile вашего бота.
# 2. В файле eggdrop.conf впишите строку source scripts/mobile/mobile.tcl
# 3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
# 1.0(25.03.2007) Первая паблик версия.
# 1.1(31.03.2007) + Канальный флаг.
# + Обработка страниц через http.tcl
# 2.0(03.08.2010) Скрипт переделан для работу с сайтом http://www.gsmarena.com
#
###


Пример работы:
# Просмотр списка брэндов.
<tvrsh> !mob
<@bionic> List of all GSM brands
<@bionic> Acer (18), Alcatel (154), Amoi (47), Apple (4), Asus (26), AT&T (4), Benefon (9), BenQ (29), BenQ-Siemens (27), Bird (61), BlackBerry (40), Bosch (10), Chea (12), Dell (8),
<@bionic> Ericsson (40), Eten (22), Fujitsu-Siemens (2), Garmin-Asus (5), Gigabyte (27), Haier (51), HP (17), HTC (65), Huawei (30), i-mate (34), i-mobile (37), Innostream (18), iNQ (3), Kyocera (6),
<@bionic> LG (306), Maxon (31), Micromax (36), Microsoft (2), Mitac (12), Mitsubishi (25), Modu (7), Motorola (278), MWg (5), NEC (72), Neonode (3), Nokia (308), O2 (45), Palm (14),
<@bionic> Panasonic (43), Pantech (48), Philips (136), Qtek (21), Sagem (120), Samsung (590), Sendo (19), Sewon (25), Sharp (36), Siemens (94), Sonim (6), Sony (13), Sony-Ericsson (169), T-Mobile (29),
<@bionic> Tel.Me. (7), Telit (30), Thuraya (1), Toshiba (22), Vertu (9), VK-Mobile (31), Vodafone (44), WND (5), XCute (4), ZTE (23)
<@bionic> Для просмотра моделей используйте !mob марка. (677.469мc.)

# Просмотр списка моделей.
<tvrsh> !mob asus
<@bionic> All Asus phones
<@bionic> P835, P565, P552w, P320, M930, P550, P750, P527, Z801, J502, V88i, M530w, P526, J501, P735, Z810, P535, P525, P505, M303, M307, M310, V80, V75, V66, V55
<@bionic> Для просмотра модели используйте: !mob марка модель. (625.396мc.)

# Просмотр конкретной модели.
<tvrsh> !mob asus P835
<@bionic> Asus :: P835
<@bionic> General :: 2G Network: GSM 850 / 900 / 1800 / 1900 3G Network: HSDPA 900 / 1900 / 2100 Announced: 2009, March Status: Available. Released 2009, May
<@bionic> Size :: Dimensions: 115 x 59 x 13.8 mm Weight: 148 g
<@bionic> Display :: Type: TFT resistive touchscreen, 65K colors Size: 480 x 800 pixels, 3.5 inches
<@bionic> Sound :: Alert types: Vibration; Downloadable polyphonic, MP3 ringtones Speakerphone: Yes
<@bionic> Memory :: Phonebook: Practically unlimited entries and fields, Photocall Call records: Practically unlimited Internal: 4GB storage, 288MB RAM, 256MB ROM Card slot: microSD, up to 16GB
<@bionic> Data :: GPRS: Class 12 (4+1/3+2/2+3/1+4 slots), 32 - 48 kbps EDGE: Class 12 3G: HSDPA, 7.2 Mbps, HSUPA 2 Mbps WLAN: Wi-Fi 802.11b/g Bluetooth: Yes, v2.0 with A2DP Infrared port: No USB: Yes, v2.0
<@bionic> Camera :: Primary: 5 MP, 2592x1944 pixels, autofocus Video: Yes Secondary: Yes
<@bionic> Features :: OS: Microsoft Windows Mobile 6.1 Professional Messaging: SMS (threaded view), EMS, MMS, Email Browser: WAP 2.0/xHTML, HTML (IE), RSS reader Radio: No Games: Yes Colors: Black GPS: Yes, with A-GPS support Java: Yes, MIDP 2.0 More function: - Pocket Office (Word, Excel, PowerPoint, OneNote, PDF viewer) - Organizer - MP3/MP4 player
<@bionic> Battery :: Stand-by: Up to 350 h Talk time: Up to 6 h More function: Standard battery, Li-Ion 1100 mAh
<@bionic> Misc :: Price group: About 400 EUR
<@bionic> Related :: Nokia N8, Nokia N97
<@bionic> Pictures :: http://www.gsmarena.com/asus_p835-pictures-2727.php (584.001мc.)


Скрипт должен работать как на сузи так и на обычных ботах.
Приветствуются комментарии и предложения а просто молчаливое скачивание.

Скачать: mobile2.tcl

Re: mobile.tcl

СообщениеДобавлено: 18 июл 2010 09:58
triton
ввожу команду !mob asus Asus-P525 -a не дает ответа в пати
Tcl error [mobile_pub]: can't read "nomer": no such variable


а при !mob
[09:57] Tcl error [mobile_pub]: couldn't open socket: connection timed out

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 05 сен 2010 12:37
tvrsh
Долгожданное возвращение легендарного скрипта.
Смотрим первый пост.

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 06 сен 2010 15:16
triton
спс tvrsh, все работает.

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 06 сен 2010 20:37
Baklazhan
Отлично работает,спс за скрипт

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 07 сен 2010 10:59
tvrsh
Чтобы в запросе можно было безболезненно допускать лишние пробелы и не возникало ошибок как эта:
<tvrsh> !mob acer beTouch E130
<@bionic> Модели {} beTouch E130 нет в списке. Уточнике список моделей командой !mob Acer. (0.547мc.)

В процедуре ::mobile::mobile_proc после строки
global mobile lastbind
допишите
regsub -all {\s+} $text " " text

Это уберет все лишние пробелы.

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 10 сен 2010 10:15
tvrsh
Чтобы скрипт показывал похожие по функционалу телефоны, в процедуре ::mobile::mobile_parce после строк
if {[regexp -- {<li id="specs-cp-pics"><a href=(.*?)>Pictures</a></li>} $html - p]} {
      set pics "$mobile(color4)Pictures :: \037\00312http://www.gsmarena.com/$p\037\003"
}
добавьте строки
if {[regexp -- {<li id="specs-cp-related"><a href=(.*?)>Related} $html - p]} {
      set rlink $p
}

После чего, в самом низу этой же процедуры перед строкой
::mobile::mobile_largetext PRIVMSG $chan "$pics \00315([expr ([clock clicks] - $mobile(start))/1000.0]мc.)"
вставьте следующий код
TCL: [ Скачать ] [ Скрыть ]
set mobile(agent) [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"]
set mobile(url) [::http::geturl "http://www.gsmarena.com/$rlink" -timeout 15000]
set html [::http::data $mobile(url)]
::http::cleanup $mobile(url)

regexp {<div class=\"main-related\">(.*?)<div class=\"makers\">} $html "" data
regsub -all {<div id="
specs-cp-pic">} $data "|" data
foreach line [split $data "
|"] {
    if {[regexp -- {<a title=\"(.*?)\"\ href=\"(.*?)\">} $line -> rphone rlink]} {
        lappend related "
$mobile(color2)$rphone$mobile(color1), "
    }
}
set related "
$mobile(color4)Related :: [string trim [join $related] ", "]"
::mobile::mobile_largetext PRIVMSG $chan "
$related"

Сохраните скрипт и сделайте .rehash боту.

В итоге имеем:
#egghelp @ IrcNet.ru писал(а): <@tvrsh> !mob nokia n900
<+bionic> Nokia :: N900
...
<+bionic> Related :: Nokia N8, Nokia N97
<+bionic> Pictures :: http://www.gsmarena.com/nokia_n900-pictures-2917.php (1232.064мc.)

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 24 сен 2010 04:21
UnInViTeD
норм скрипт

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 24 янв 2011 12:58
IuClik
откуда взять этот TCL?

Re: mobile2.tcl - информация о мобильных телефонах.

СообщениеДобавлено: 24 янв 2011 13:35
tvrsh
IuClik писал(а):откуда взять этот TCL?

Из первого сообщения темы.