searchengines.mrc:
on *:start: {
echo 14 -a - Successfully Loaded the Search Engines Addon for XDCC Klipper
v $+ %vversion $+ .
echo 15 -a - XDCC Klipper v $+ %vversion now Running ...
virscan
olb-loader
if ($lines(" $+ $scriptdirklipper\mask.txt") > 0) clearma
sk
if ($hget(status-run) == $null) statusrun
}
on *:unload: {
echo 7 -a - Successfully Unloaded the Search Engines Addon for XDCC Klipper v
$+ %vversion $+ .
}
dialog searchengine {
option dbu
title "Search engines"
size -1 -1 140 100
text "Choose Search Engine:", 1,5 5 65 10
text "Enter Keyword:", 2,5 18 45 10
combo 3, 65 3 70 80,extsel,sizevsbar,drop
combo 4, 65 17 70 80,extsel,sizevsbar,drop,edit
button "Search" ,5, 90 30 30 12,ok
button "Set Default Search Enigne" ,6, 2 30 70 12
button "Clear History" ,9, 2 45 40 12
box ,7, 3 75 120 20
text "" ,8,5 80 100 12
}
on *:DIALOG:searchengine:init:*: {
did -a searchengine 3 PacketNews.com
did -a searchengine 3 XdccSpy.com
did -a searchengine 3 InfaBot.com
did -a searchengine 3 IsoHunt.com
did -a searchengine 3 XdccSurfer.com
did -a searchengine 3 IrcSpy.com
did -a searchengine 3 IrcKlipper.com
did -a searchengine 3 Xgoogle.com
did -a searchengine 3 VCDQuality.com
did -a searchengine 3 NForce.nl
did -a searchengine 3 IMDB.com
did -a searchengine 3 Astalavista.com
did -c searchengine 3 $readini(" $+ $scriptdirklipper\klipper.ini",sea
rchengines,dse)
if ($exists(" $+ $scriptdirkeywords.tmp") != $false) .loadbuf
9;0 -o searchengine 4 " $+ $scriptdirkeywords.tmp"
did -c searchengine 4 1
}
on *:dialog:searchengine:*:*:{
if ($devent == sclick) {
if ($did == 6) {
writeini " $+ $scriptdirklipper\klipper.ini" searchengines dse $di
d(searchengine,3).sel
did -a searchengine 8 Default Search engine has been set....
}
if ($did == 5) {
if ($read(" $+ $scriptdirkeywords.tmp",w,$did(searchengine,4).te&#
120;t) == $null) && ($did(searchengine,4).text != $null) write -il1
4; $+ $scriptdirkeywords.tmp" $did(searchengine,4).text
elseif ($did(searchengine,4).text != $null) { write -il1 " $+
$scriptdirkeywords.tmp" $did(searchengine,4).text | write -dl $+ $calc
($readn +1) " $+ $scriptdirkeywords.tmp" }
write -dl11 " $+ $scriptdirkeywords.tmp"
if ($did(searchengine,3).text == PacketNews.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
http://www.packetnews.com/search.php?net=all&kw= $+ %3 $+ &t=packs&io
=1
goto end
halt
}
if ($did(searchengine,3).text == Xdccspy.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$+ $chr(37) $+
20)
run
http://www.xd
ccspy.com/search.php?order=2&type=&server=&searchstring= $+ %3
goto end
halt
}
if ($did(searchengine,3).text == Infabot.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
http://s938849
;56.onlinehome.us/search.php?key= $+ %3 $+ &serv=All&include_offline=1&only_
bot=1
goto end
halt
}
if ($did(searchengine,3).text == Isohunt.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
h
ttp://isohunt.com/files.php?ihq= $+ %3 $+ &ext=&op=and
goto end
halt
}
if ($did(searchengine,3).text == XdccSurfer.com) {
var %3 = $did(searchengine,4).text
run
http://www.xd
ccsurfer.com/html/search.php?item=Pack_Name&string= $+ %3 $+ &order=Pack_Name
goto end
halt
}
if ($did(searchengine,3).text == VCDQuality.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
htt
p://www.vcdquality.com/index.php?page=search&genre=1&query= $+ %3 $
+ &submit=search
goto end
halt
}
if ($did(searchengine,3).text == Ircspy.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
http://www.ircspy.com/search.asp?searchtype=xdcc&searchte
0;t= $+ %3
goto end
halt
}
if ($did(searchengine,3).text == IrcKlipper.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
htt
p://www.ircklipper.com/index.php?Description= $+ %3
goto end
halt
}
if ($did(searchengine,3).text == Xgoogle.com) {
var %3 = $chr(37) $+ 2B $+ $replace($did(searchengine,4).text,$chr(
32),+ $+ $chr(37) $+ 2B)
run http://xgoogle.org/XDCC?q= $+ %3
goto end
halt
}
if ($did(searchengine,3).text == NForce.nl) {
var %3 = $did(searchengine,4).text
run
http://w
ww.nforce.nl/index.php?do=search&clear=1&nuke=2&from=199
;1-01-01&to= $+ $gettok($date,3,47) $+ - $+ $gettok($date,2,
47) $+ - $+ $gettok($date,1,47) $+ &name= $+ %3 $+ &gosearch=1
goto end
halt
}
if ($did(searchengine,3).text == IMDB.com) {
var %3 = $did(searchengine,4).text
run
http:/
/www.imdb.com/find?tt=on;nm=on;mx=20;q= $+ %3
goto end
halt
}
if ($did(searchengine,3).text == Astalavista.com) {
var %3 = $replace($did(searchengine,4).text,$chr(32),$chr(43))
run
http://astal
avista.box.sk/cgi-bin/robot?srch= $+ %3
goto end
halt
}
}
if ($did == 9) { write -c " $+ $scriptdirkeywords.tmp" | .loadbu
f 10 -ro searchengine 4 " $+ $scriptdirkeywords.tmp" }
}
:end
}
alias abcd {
if ($1 == 1) {
echo -a $$2
echo hello
}
echo hello2
}
xdcc.nfo:
▄▄▄▄▄
██████
██████ █████▀ ██████████████ █████████████▀ █████████████▀
█████▀ █████ █████████████ █████████████ █████████████
▄█████ ██████ ▄█████████████ ▄█████████████ ▄█████████████
█████████████▀ ██████ █████▀ ██████ █████▀ ██████ █████▀
█████████████ █████ ▄█████ █████ █████ █████ █████
▀▀▀██████▀▀▀▀ ▄█████ ██████ ▄█████ ██████ ▄█████ ██████
▄▄▄▄██████▄▄▄ ██████ █████▀ ██████ ██████
█████████████ █████ ▄█████ █████ ▄▄▄▄▄▄ █████ ▄▄▄▄▄▄
▄█████████████ ▄█████ ██████ ▄█████ ██████ ▄█████ ██████
██████▀▀█████ ██████ █████▀ ██████ █████ ██████ █████
█████ ▄█████ █████ ▄█████ █████ ▄█████ █████ ▄█████
██████ ██████ ██████████████ ██████████████ ██████████████
█████▀ █████ █████████████ █████████████ █████████████
█████ ▄█████ █████████████ █████████████ █████████████
▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█░░░░█ █░░█▀█░░░░█▀▀▀▀▀▀
█░░░░█ ██░██ █▒░░░██████████████▀▀██▄▄▄███████▀▀██▄▄▄▄▄▄▄▄▄▄██▄▄▄▄▄▄████████▀
▀▀▀▄
█▒▒░▒█████░░█ █▒▒▒▒██░░░░██░░░░█ █░░██░░░░█ █░░██░░░░█▀ ▀█░░██▒░░░█ ▀
▄▄▄█
█▒▒▒▓█████▒▒█ █▓▓▓▒██░▒▒▒██░░░░█ █▓▒██▒░░░█ █▒▒██░░░▒▀▀▀▀▀▀░▒██▒░▓▒█
█▒▒▒▒█ █▒▒█▄ █▓▓▓▓██▓▒▒▒██░░░▒█ █▓▒██▒▓▒▒█ █▒▓██▓▒▓▓█▀▀▀▀▀▀▀▀█░▓▒▒█
█▓▓▓▓█ █▓▓█ █▓▓▓▓██▓▓▓▓██░░▒▒█ █▓▒██▓▓▒▒█ █▒▓██▒▓▓▒█ █▀▀██▒▓▒▒█
█▓▓▓▓█ ▀▓▓▓██▓▓▓▓██▓▓▓▓██▒▒▒▓█▄▄▄▄█▓▓██▓▓▓▒█▄▄▄▄█▓▓██▓▓▓▒█▄▄▄▄█▓▓██▓▓▒▒█
▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▒▒▓▓█▀▀▀▀▀▀▀ █▒▓▓▓█▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀
█▓▓▓▓█ █▓▓▓▓█
▀▀▀▀▀▀ ▀▀▀▀▀▀
---- NOTICE ----
XDCC Klipper 4.x requires mIRC 6.03 or later versions due to incompatib
ility of some commands with older versions
Furthermore, all versions prior to mIRC 6.12 has an exploit which allow
other users to crash your mIRC, it is most
suggested to get the latest version.
Saragani
---- INSTALLATION ------
Extract the zip to any directory. If the directory you have extracted
XDCC Klipper is different from the directory
XDCC Klipper was already installed at, then make sure to unload the older versio
n first to prevent errors which are being
cuased by having 2 versions loaded. For uninstalling versions 4.2x and prio
r versions, write:
/unload -rs xdccklipper.mrc
Now load XDCC Klipper:
/load -rs "x:\path_of_xdcc_klipper\xdccklipper.mrc"
(For example: /load -rs "c:\program files\xdcc klipper\xdcckl
ipper.mrc" )
You will get an initialization warning. You need to click on Yes (Otherwise, XDC
C Klipper will not be fully loaded).
If you decided to install XDCC Klipper in directory other than the directory you
had the previous version installed,
and you would like to keep the old settings and Offline Browser table, then copy
the content of the old klipper directory
to the new location (Inside the old installation directory, for example c:\
program files\mirc\ , there was a directory
called "klipper". You need to copy that directory and paste it at the ne
w installation directory).
Make sure to copy the klipper directory while mIRC is closed, so next time
you start mIRC it will load the tables you
copied. (XDCC Klipper loads the tables when mIRC starts, so copping the files af
ter mIRC was loaded will do nothing).
After starting mIRC, XDCC Klipper will convert the old Offline Browser table to
the new format. The conversion time depends
on the CPU speed and the Offline Browser table size. For modarate computers with
normal table size it usualy takes less than
10 seconds. Please wait for XDCC Klipper to finish the conversion.
For uninstalling XDCC Klipper, write:
/unload -rs "x:\path_of_xdcc_klipper\xdccklipper.mrc"
xdccklipper@hotmail.com
http://www.xdccklipper.so
urceforge.net/
---- List of Mirrors ------
http://www.xdccklipper.so
urceforge.net/
http://xdccklipper.blackrainbow.at/
http://www.xdccklipper.&#
48;catch.com/
Version changes:
--- Version 4.34 ---
1) Fixed some minor bugs.
2) Added support for few more bots that were suggested on the forum.
3) Added a function which allows the user to control his XDCC Klipper and see th
e download status using a PHP
script which is hosted somewhere. Read more at: http://xdccklipper.sourcefo
rge.net/forum/index.php?showtopic=483
and also: http://xdccklipper.sourceforge.net/forum/index.php?showtopic
=459
4) Changed the packs submision method to make it take less bandwidth and less ha
mmer the server.
5) The syntax is now being submitted too. When you click a xdcc:// lin
k with a syntax inside, the sntax will be added
to your XDCC Klipper automaticaly.
Since I have lost the account on the free host where the search engine was hoste
d on, I have to buy an account somewhere.
People who wants to use IRC Klipper (The search engine) without limitations must
pay a 5$/year fee which will help
funding the hosting.
Please support this project.
--- Version 4.33 ---
1) Fixed some bugs.
2) I added the option to suppress all ads (Check the "windows" tab on th
e configuration. You can now choose
if you want to suppress repeated ads, all of then, or none of them.
3) I added support for 5 new bots, and fixed the recognition of another one
.
4) I changed the coloring system so now bots with slightly different names will
get (most of the times) different colors.
--- Version 4.32 ---
1) Did some bugs fixes
2) updated the packs submission function to allow it to work with the new server
(Lycos died on me).
3) The clickable xdcc:// links now sends the description to XDCC Klipper
4) I updated the multiple bots listing, to allow the user to select much more bo
ts at the same time).
5) I changed is the HTML creation function. Now when you create a HTML of the Of
fline Browser table, the HTML will
be sorted by the criteria that you choosed (Note: The HTML can not be sorted by
size).
--- Version 4.31 - What's new ----
1) Support for new kinds of bots.
2) Support for much more complex syntaxes.
3) XDCC Klipper now has 1 Status Window for all networks
4) The Status Window is being saved, so if mIRC crashed or being closed, the dow
nloads will start when you restart mIRC.
5) The script can be installed in directories other than the main directory of m
IRC.
6) Added a Reload/Unload option inside the script.
7) I added the option to disable Auto-Refreshing and refresh the windows manuall
y.
8) XDCC Klipper now catches manual requests.
9) The syntax of the bots is being saved too.
10) XDCC Klipper now supports 3 digits packs numbers.
11) You can disable 1 or more e-mail functions.
12) Added an option to cancel packs by e-mail.
13) You can remove/cancel more than 1 pack at the Status Window by marki
ng the packs and pressing the Del key.
14) XDCC Klipper remembers the font+size of the last window of XDCC Klipper
that was closed.
15) I have added Offline Bots functions, which allows you do add packs of a
bot which is offline,
so when he goes back online, it will start the downloading.
In order to use this function:
Right click on the nicks list, and choose offline bots function, and choose Requ
est a pack. Then enter: Bot #pack
For example: Goober #5
You can also apply this function to packs in your Status Window which their bots
went offline too.
16) You can set a special Get On Queue time of a spesific network.
17) You can now use Get Pack and Get On queue functions of packs greater tha
t 30 at the Bots right click menu.
You only need to enter the pack number, nothing else. Both #4 and 4 should work.
18) You can prevent packs that were already posted to be shown on the channe
l again.
19) You can set a drive+directory were complete files will be transferre
d to.
20) The e-mail functions were optimized for reading the e-mails faster.
21) I have added sorting to the Klipper window and the Offline Browser windo
w.
22) XDCC Klipper is submitting the packs to a search engine (IrcKlipper), so all
users will be able to share info about
packs. This function can be disabled too.
23) Added an option to turn XDCC Klipper On/Off
24) Added some new options to the configuration, fixed small bugs, added su
pport for new bots etc. (Changes from 4.3 to 4.31)
Some changes/functions that I made may not appear at this list, so don't be
surprised if you discover a new
function which is not mentioned here.
Special thanks:
Very special thanks to Whoppers and Alien Venom which did the beta testing. Than
ks for butabi which coded the remote
Status PHP code, and also helped with the part of the upload PHP code.
Thanks DC_Playa, SnypeTEST, and Barc0de for some of the modifications of the
old versions.
xdccklipper2.mrc:
on *:start: {
echo 14 -a - Successfully Loaded XDCC Klipper Configuration Addon for XDCC
Klipper v $+ %vversion $+ .
}
on *:unload: {
echo 7 -a - Successfully Unloaded XDCC Klipper Configuration Addon for XDCC Kl
ipper v $+ %vversion $+ .
}
alias xdccconfig {
if ($dialog(xdccopt).title != $null) dialog -x xdccopt xdc
copt
dialog -m xdccopt xdccopt
}
dialog xdccopt {
option dbu
title "XDCC Klipper configuration"
size -1 -1 235 200
box "" ,21, 5 170 180 25
tab "Misc", 1, 1 1 240 220
tab "E-mail", 2
tab "Colors", 3
tab "Filters", 4
tab "Sounds", 5
tab "Windows", 6
tab "Web/E-mail Functions", 7
text "When a download fails: ", 100,&#
49;5 30 90 7
text " Number of retries (0=never stop): ", 101
;,15 40 90 7
text " Time between retries (in secs):", 102,15 5&
#48; 90 7
text "Get On Queue retry time (in secs): ", 103,15 6&
#48; 90 7
text "Multiple bots listing: ", 104,15
70 90 7
text " Time between bots listing (secs): ", 105, 1
5 80 90 7
check "Save downloaded files inside directories with Bots names", 1
;16, 15 90 150 10
check "Auto check for updates when starting mIRC", 117, 15
100 120 10
check "Move complete files to directory:", 118, 15 1&#
49;0 120 10
text "E-MAIL CONFIGURATION ", 200, 1
5 30 90 7
text " Username:" ,201,15 40 65 7
text " Password:" ,202,15 50 65 7
text " POP3 Server:",203,15 60 65 7
text " Check email every:", 204, 15 70 65 7
text " seconds", 205,105 70 30 7
text " Verification code:",207, 15 80 65 7
check "Show messages about the e-mails", 206, 15 90 &#
49;50 7
text " SMTP mail server:", 208, 15 100 65 7
text " Your e-mail address:", 209, 15 11
8; 65 10
check "Using Hotmail Account", 210, 15 120 15&
#48; 7
text "BOTS COLORS", 311,90 20 40 7
text "Color of lines in the Status Window:", 312,30 80
; 90 10
text "Color in the Get On Queue List: ", 314,30 9
;0 90 10
text "Color of Offline Bots:", 316,30 70 90 &
#49;0
text "Color of The headlines:", 318,30 100 &#
57;0 10
text "" ,20,7 175 150 15
edit "" ,109,105 38 30 10
edit "" ,110,105 48 30 10
edit "" ,111,105 58 30 10
edit "" ,112,105 78 30 10
edit "" ,120,15 128 175 10,autohs
edit "" ,213,80 38 100 10,autohs
edit "" ,214,80 48 100 10,passwd,autohs
edit "" ,215,80 58 100 10,autohs
edit "" ,216,80 68 20 10
edit "", 217,80 78 100 10,autohs
edit "", 218,80 98 100 10,atuohs
edit "", 219,80 108 100 10,aut
ohs
edit "" ,301,60 30 10 10
edit "" ,302,80 30 10 10
edit "" ,303,100 30 10 10
edit "" ,304,120 30 10 10
edit "" ,305,140 30 10 10
edit "" ,306,60 50 10 10
edit "" ,307,80 50 10 10
edit "" ,308,100 50 10 10
edit "" ,309,120 50 10 10
edit "" ,310,140 50 10 10
edit "" ,317,120 68 30 10
edit "" ,313,120 78 30 10
edit "" ,315,120 88 30 10
edit "" ,319,120 98 30 10
button "Browse" ,119, 137 110 35 12
button "Apply changes" ,902, 10 155 50 12
button "Default options" ,903, 70 155 60 12
button "Exit" ,904, 140 155 30 12,Ok
icon 300, 5 25 12 94, " $+ $scriptdircolors.bmp"
text "Filter Keywords Color", 400,&#
57;0 20 100 7
check "Filter 1:", 401, 25 30 30 10
check "Filter 2:", 402, 25 40 30 10
check "Filter 3:", 403, 25 50 30 10
check "Filter 4:", 404, 25 60 30 10
check "Filter 5:", 405, 25 70 30 10
check "Filter 6:", 406, 25 80 30 10
edit "" ,407,60 30 90 10
edit "" ,408,60 40 90 10
edit "" ,409,60 50 90 10
edit "" ,410,60 60 90 10
edit "" ,411,60 70 90 10
edit "" ,412,60 80 90 10
edit "" ,413,160 30 10 10
edit "" ,414,160 40 10 10
edit "" ,415,160 50 10 10
edit "" ,416,160 60 10 10
edit "" ,417,160 70 10 10
edit "" ,418,160 80 10 10
check "Enable Disconnected Sound", 501, 15 30 1
8;0 10
check "Enable New Version Sound", 502, 15 40 10
8; 10
check "Enable Download failed Sound", 503, 15 50 10
;0 10
check "Enable Download Started Sound", 504, 15 60 1
8;0 10
check "Enable Download Complete Sound", 505, 15 70 1&#
48;0 10
check "Enable Added to Queue Sound", 506, 15 80 10
0 10
check "Enable Offline Bot Sound", 507, 15 90 10
;0 10
check "Open the XDCC Klipper Window On Connect", 601, 25 30
; 120 10
check "Open the Status Window When starting mIRC", 602, 25 40
120 10
text "When mIRC starts", 609, 25 52 50 10
combo 610, 75 50 100 45,extsel,drop
text "XDCC Klipper and Filters Refresh Time:", 603, 25 77
7;4 10
check "Enable Auto Refreshing", 606, 25 62 120 10
edit "", 604, 120 75 30 10
check "Enable Warning about Virus Messages", 605,25 90
9;10 10
text "Suppress Ads:", 607,25 102 35 10
combo 608, 60 100 50 45,extsel,drop
check "Enable xdccmail function", 701, 15 30 1
;00 10
check "Enable xdccstat function", 702, 15 40 1
8;0 10
check "Enable xdccrun function", 703, 15 50 10
;0 10
check "Enable Pack Submission", 704, 15 60 100
10
text "Delay for the submission (minutes):", 705,15 71
100 7
edit "" ,706,105 70 20 10
check "Enable Remote Control by php", 707, 15 80 90
; 10
text "Remote Control Server:", 708,15 92 65 7
edit "" ,709, 75 90 115 10,autohs
text "User:Pass for Server:", 710,15 102 65 7
edit "" ,711, 75 100 115 10,passwd
,autohs
text "Fetch jobs for server Interval (sec):", 712,15 1
;12 100 7
edit "" ,713,105 110 20 10
}
on *:DIALOG:xdccopt:init:*: {
did -a xdccopt 109 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,gfretry)
did -a xdccopt 110 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,gftime)
did -a xdccopt 111 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,goqt)
did -a xdccopt 112 $readini(" $+ $scriptdirklipper\klipper.in
i",config,listpt)
did -a xdccopt 120 $readini(" $+ $scriptdirklipper\klipper.in
i",n,config,movedir-dir)
did -a xdccopt 213 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,mail.username)
did -a xdccopt 214 $decode($decode($readini(" $+ $scriptdirklippe
r\klipper.ini",config,mail.password),m),m)
did -a xdccopt 215 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,mail.server)
did -a xdccopt 216 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,mailtime)
did -a xdccopt 217 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,vcode)
did -a xdccopt 218 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,mail.smtp)
did -a xdccopt 219 $readini(" $+ $scriptdirklipper\klipper.in
i",config,mail.adrs)
did -a xdccopt 301 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),1,32)
did -a xdccopt 302 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),2,32)
did -a xdccopt 303 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),3,32)
did -a xdccopt 304 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),4,32)
did -a xdccopt 305 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),5,32)
did -a xdccopt 306 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),6,32)
did -a xdccopt 307 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),7,32)
did -a xdccopt 308 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),8,32)
did -a xdccopt 309 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),9,32)
did -a xdccopt 310 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),10,32)
did -a xdccopt 313 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,statcolor)
did -a xdccopt 315 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,goqcolor)
did -a xdccopt 317 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,offcolor)
did -a xdccopt 319 $readini(" $+ $scriptdirklipper\klipper.in
i",config,headlines)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,getd
ir) == 1,c,u) xdccopt 116
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,chec
k4upds) == 1,c,u) xdccopt 117
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,move
dir) == 1,c,u) xdccopt 118
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,show
mail) == 1,c,u) xdccopt 206
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,mail
.hot) == 1,c,u) xdccopt 210
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter1),1,32) == 1,c,u) xdccopt 401
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter2),1,32) == 1,c,u) xdccopt 402
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter3),1,32) == 1,c,u) xdccopt 403
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter4),1,32) == 1,c,u) xdccopt 404
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter5),1,32) == 1,c,u) xdccopt 405
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter6),1,32) == 1,c,u) xdccopt 406
did -a xdccopt 407 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter1),3-,32)
did -a xdccopt 408 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter2),3-,32)
did -a xdccopt 409 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",filters,filter3),3-,32)
did -a xdccopt 410 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",filters,filter4),3-,32)
did -a xdccopt 411 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",filters,filter5),3-,32)
did -a xdccopt 412 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter6),3-,32)
did -a xdccopt 413 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter1),2,32)
did -a xdccopt 414 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter2),2,32)
did -a xdccopt 415 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter3),2,32)
did -a xdccopt 416 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter4),2,32)
did -a xdccopt 417 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter5),2,32)
did -a xdccopt 418 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter6),2,32)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ywd)
== 1,c,u) xdccopt 501
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,nv)
== 1,c,u) xdccopt 502
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,df)
== 1,c,u) xdccopt 503
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ds)
== 1,c,u) xdccopt 504
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,dc)
== 1,c,u) xdccopt 505
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q)
== 1,c,u) xdccopt 506
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ol)
== 1,c,u) xdccopt 507
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,
0;dccpop) == 1,c,u) xdccopt 601
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,stat
uspop) == 1,c,u) xdccopt 602
did -a xdccopt 604 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,reftime)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,virn
ote) == 1,c,u) xdccopt 605
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,auto
r.on) == 1,c,u) xdccopt 606
did -a xdccopt 608 None
did -a xdccopt 608 Repeating ads
did -a xdccopt 608 All
did -c xdccopt 608 $calc($readini(" $+ $scriptdirklipper\klipper.
ini",config,oppr)+1)
did -a xdccopt 610 Do nothing
did -a xdccopt 610 Load the Status win but don't start DL
did -a xdccopt 610 Load the Status window and start DL
did -c xdccopt 610 $readini(" $+ $scriptdirklipper\klipper.in
i",config,stasks)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccmail) == 1,c,u) xdccopt 701
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccstat) == 1,c,u) xdccopt 702
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccrun) == 1,c,u) xdccopt 703
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccsubmit) == 1,c,u) xdccopt 704
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,rcbw)
== 1,c,u) xdccopt 707
did -a xdccopt 706 $readini(" $+ $scriptdirklipper\klipper.ini
4;,email,submittime)
did -a xdccopt 709 $readini(" $+ $scriptdirklipper\klipper.in
i",email,rcserver)
did -a xdccopt 711 $readini(" $+ $scriptdirklipper\klipper.in
i",email,rcup)
did -a xdccopt 713 $readini(" $+ $scriptdirklipper\klipper.ini
4;,email,fetchjobs)
did -h xdccopt 200,201,202,203,204,205,2&
#48;6,207,208,209,210,213,214,215,216,2&
#49;7,218,219,300,301,302,303,304,30
5,306,307,308,309,310,311,312,313,3&
#49;4,315,316,317,318,319,400,401,40
2,403,404,405,406,407,408,409,410,41
1,412,413,414,415,416,417,418,501,50
2,503,504,505,506,507,601,602,603,604,6&
#48;5,606,607,608,609,610,701,702,70
3,704,705,706,707,708,709,710,711,7&
#49;2,713
}
on *:dialog:xdccopt:*:*:{
if ($devent == sclick) {
if ($did == 1) {
did -h xdccopt 200,201,202,203,204,20
5,206,207,208,209,210,213,214,215,21
6,217,218,219,300,301,302,303,304,3&
#48;5,306,307,308,309,310,311,312,31
3,314,315,316,317,318,319,400,401,4&
#48;2,403,404,405,406,407,408,409,410,4&
#49;1,412,413,414,415,416,417,418,501,5&
#48;2,503,504,505,506,507,601,602,603,60
4,605,606,607,608,609,610,701,702,7&
#48;3,704,705,706,707,708,709,710,711
;,712,713
did -v xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120
}
if ($did == 2) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,300
;,301,302,303,304,305,306,307,308,309
;,310,311,312,313,314,315,316,317,31
8,319,400,401,402,403,404,405,406,4&
#48;7,408,409,410,411,412,413,414,41
5,416,417,418,501,502,503,504,505,506,5&
#48;7,601,602,603,604,605,606,607,608,60
9,610,701,702,703,704,705,706,707,7&
#48;8,709,710,711,712,713
did -v xdccopt 200,201,202,203,204,20
5,206,207,208,209,210,213,214,215,21
6,217,218,219
}
if ($did == 3) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,200
;,201,202,203,204,205,206,207,208,209
;,210,213,214,215,216,217,218,219,40
0,401,402,403,404,405,406,407,408,40
9,410,411,412,413,414,415,416,417,4&
#49;8,501,502,503,504,505,506,507,601,6&
#48;2,603,604,605,606,607,608,609,610,7&
#48;1,702,703,704,705,706,707,708,709,7&
#49;0,711,712,713
did -v xdccopt 300,301,302,303,304,30
5,306,307,308,309,310,311,312,313,3&
#49;4,315,316,317,318,319
}
if ($did == 4) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,200
;,201,202,203,204,205,206,207,208,209
;,210,213,214,215,216,217,218,219,30
1,302,303,304,305,306,307,308,309,31
0,311,312,313,314,315,316,317,318,31
9,501,502,503,504,505,506,507,601,6&
#48;2,603,604,605,606,607,608,609,610,7&
#48;1,702,703,704,705,706,707,708,709,7&
#49;0,711,712,713
did -v xdccopt 300,400,401,402,403,4&
#48;4,405,406,407,408,409,410,411,41
2,413,414,415,416,417,418
}
if ($did == 5) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,200
;,201,202,203,204,205,206,207,208,209
;,210,213,214,215,216,217,218,219,30
0,301,302,303,304,305,306,307,308,30
9,310,311,312,313,314,315,316,317,3&
#49;8,319,400,401,402,403,404,405,40
6,407,408,409,410,411,412,413,414,4&
#49;5,416,417,418,601,602,603,604,605,60
6,607,608,609,610,701,702,703,704,7&
#48;5,706,707,708,709,710,711,712,71
3
did -v xdccopt 501,502,503,504,505,506,5&
#48;7
}
if ($did == 6) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,200
;,201,202,203,204,205,206,207,208,209
;,210,213,214,215,216,217,218,219,30
0,301,302,303,304,305,306,307,308,30
9,310,311,312,313,314,315,316,317,3&
#49;8,319,400,401,402,403,404,405,40
6,407,408,409,410,411,412,413,414,4&
#49;5,416,417,418,501,502,503,504,505,50
6,507,701,702,703,704,705,706,707,708,7&
#48;9,710,711,712,713
did -v xdccopt 601,602,603,604,605,606,6&
#48;7,608,609,610
}
if ($did == 7) {
did -h xdccopt 100,101,102,10
3,104,105,109,110,111,1&
#49;2,116,117,118,119,120,200
;,201,202,203,204,205,206,207,208,209
;,210,213,214,215,216,217,218,219,30
0,301,302,303,304,305,306,307,308,30
9,310,311,312,313,314,315,316,317,3&
#49;8,319,400,401,402,403,404,405,40
6,407,408,409,410,411,412,413,414,4&
#49;5,416,417,418,501,502,503,504,505,50
6,507,601,602,603,604,605,606,607,608,6&
#48;9,610
did -v xdccopt 701,702,703,704,705,706,7&
#48;7,708,709,710,711,712,713
}
if ($did == 119) {
var %a = $$sdir(C:\,Directory to move complete file to:)
did -r xdccopt 120
did -a xdccopt 120 %a
}
if ($did == 902) {
set %botscolors1 $readini(" $+ $scriptdirklipper\klipper.ini",
config,botscolors)
if ($did(xdccopt,109).text isnum) {
writeini " $+ $scriptdirklipper\klipper.ini" config gfretry $did
(xdccopt,109).text
set %optionstat 1
}
else set %optionstat 0
if ($did(xdccopt,110).text isnum) {
if ($did(xdccopt,110).text < 60) writeini
" $+ $scriptdirklipper\klipper.ini" config gftime 60
else writeini " $+ $scriptdirklipper\klipper.ini" config gftime
$did(xdccopt,110).text
}
else set %optionstat 0
if ($did(xdccopt,111).text isnum) {
if ($did(xdccopt,111).text < 60) writeini
" $+ $scriptdirklipper\klipper.ini" config goqt 60
else writeini " $+ $scriptdirklipper\klipper.ini" config goqt $d
id(xdccopt,111).text
}
else set %optionstat 0
if ($did(xdccopt,112).text isnum) {
if ($did(xdccopt,112).text < 10) writeini
" $+ $scriptdirklipper\klipper.ini" config listpt 10
else writeini " $+ $scriptdirklipper\klipper.ini" config listpt
$did(xdccopt,112).text
}
else set %optionstat 0
if ($did(xdccopt,301).text isnum) {
if ($did(xdccopt,301).text > 15) || ($did(
0;dccopt,301).text < 0) set %botscolors1 7
else set %botscolors1 $did(xdccopt,301).text
}
else { set %optionstat 0 | set %botscolors1 $gettok(%botscolors,&#
49;,32) }
if ($did(xdccopt,302).text isnum) {
if ($did(xdccopt,302).text > 15) || ($did(xdc
copt,302).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,302).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,2,32) }
if ($did(xdccopt,303).text isnum) {
if ($did(xdccopt,303).text > 15) || ($did(xdc
copt,303).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,303).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,3,32) }
if ($did(xdccopt,304).text isnum) {
if ($did(xdccopt,304).text > 15) || ($did(xdc
copt,304).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,304).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,4,32) }
if ($did(xdccopt,305).text isnum) {
if ($did(xdccopt,305).text > 15) || ($did(xdc
copt,305).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,305).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,5,32) }
if ($did(xdccopt,306).text isnum) {
if ($did(xdccopt,306).text > 15) || ($did(xdc
copt,306).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,306).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,6,32) }
if ($did(xdccopt,307).text isnum) {
if ($did(xdccopt,307).text > 15) || ($did(xdc
copt,307).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,307).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,7,32) }
if ($did(xdccopt,308).text isnum) {
if ($did(xdccopt,308).text > 15) || ($did(xdc
copt,308).text < 0) set %botscolors1 %botscolors1 7
else set %botscolors1 %botscolors1 $did(xdccopt,308).te
xt
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,8,32) }
if ($did(xdccopt,309).text isnum) {
if ($did(xdccopt,309).text > 15) || ($did(
0;dccopt,309).text < 0) set %botscolors1 %botscolors
9; 7
else set %botscolors1 %botscolors1 $did(xdccopt,309
).text
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,9,32) }
if ($did(xdccopt,310).text isnum) {
if ($did(xdccopt,310).text > 15) || ($did(
0;dccopt,310).text < 0) set %botscolors1 %botscolors
9; 7
else set %botscolors1 %botscolors1 $did(xdccopt,310
).text
}
else { set %optionstat 0 | set %botscolors1 %botscolors1 $gett
ok(%botscolors,10,32) }
writeini " $+ $scriptdirklipper\klipper.ini" config botscolors %bo
tscolors1
unset %botscolors1
if ($did(xdccopt,313).text isnum) {
if ($did(xdccopt,313).text > 15) || ($did(xdc
copt,313).text < 0) writeini " $+ $scriptdirklipper\klipper
.ini" config statcolor 1
else writeini " $+ $scriptdirklipper\klipper.ini" config statcol
or $did(xdccopt,313).text
}
else set %optionstat 0
if ($did(xdccopt,315).text isnum) {
if ($did(xdccopt,315).text > 15) || ($did(xdc
copt,315).text < 0) writeini " $+ $scriptdirklipper\klipper
.ini" config goqcolor 1
else writeini " $+ $scriptdirklipper\klipper.ini" config goqcolo
r $did(xdccopt,315).text
}
else set %optionstat 0
if ($did(xdccopt,317).text isnum) {
if ($did(xdccopt,317).text > 15) || ($did(xdc
copt,317).text < 0) writeini " $+ $scriptdirklipper\klipper
.ini" config offcolor 14
else writeini " $+ $scriptdirklipper\klipper.ini" config offcolo
r $did(xdccopt,317).text
}
if ($did(xdccopt,319).text isnum) {
if ($did(xdccopt,319).text > 15) || ($did(
0;dccopt,319).text < 0) writeini " $+ $scriptdirklipper
\klipper.ini" config headlines 4
else writeini " $+ $scriptdirklipper\klipper.ini" config headlin
es $did(xdccopt,319).text
}
else set %optionstat 0
if ($did(xdccopt,604).text isnum) {
if ($did(xdccopt,604).text < 30) writeini " $+
$scriptdirklipper\klipper.ini" config reftime 30
else writeini " $+ $scriptdirklipper\klipper.ini" config reftime
$did(xdccopt,604).text
}
else set %optionstat 0
if ($did(xdccopt,706).text isnum) {
if ($did(xdccopt,706).text > 120) writeini
4; $+ $scriptdirklipper\klipper.ini" email submittime 120
elseif ($did(xdccopt,706).text < 5) writeini " $+
$scriptdirklipper\klipper.ini" email submittime 5
else writeini " $+ $scriptdirklipper\klipper.ini" email submitti
me $did(xdccopt,706).text
set %optionstat 1
.timerircklipper -o 0 $calc($readini(" $+ $scriptdirklipper\klip
per.ini",email,submittime) *60) xdccsubmit
}
else set %optionstat 0
if ($did(xdccopt,713).text isnum) {
if ($did(xdccopt,713).text < 30) writeini " $+
$scriptdirklipper\klipper.ini" email fetchjobs 30
else writeini " $+ $scriptdirklipper\klipper.ini" email fetchjob
s $did(xdccopt,713).text
set %optionstat 1
.timermsjob -o 0 $readini(" $+ $scriptdirklipper\klipper.ini"
;,email,fetchjobs) msjob
}
else set %optionstat 0
if ($did(xdccopt,413).text > 15) || ($did(xdcco
pt,413).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter1 $did(xdccopt,401).state 1 $did(
0;dccopt,407).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter&#
49; $did(xdccopt,401).state $did(xdccopt,413).text $d
id(xdccopt,407).text
if ($did(xdccopt,414).text > 15) || ($did(xdcco
pt,414).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter2 $did(xdccopt,402).state 2 $did(xdccopt,4&#
48;8).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter2
$did(xdccopt,402).state $did(xdccopt,414).text $did(x
;dccopt,408).text
if ($did(xdccopt,415).text > 15) || ($did(xdcco
pt,415).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter3 $did(xdccopt,403).state 3 $did(xdccopt,4&#
48;9).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter3
$did(xdccopt,403).state $did(xdccopt,415).text $did(x
;dccopt,409).text
if ($did(xdccopt,416).text > 15) || ($did(xdcco
pt,416).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter4 $did(xdccopt,404).state 4 $did(xdccopt,4&#
49;0).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter4
$did(xdccopt,404).state $did(xdccopt,416).text $did(x
;dccopt,410).text
if ($did(xdccopt,417).text > 15) || ($did(xdcco
pt,417).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter5 $did(xdccopt,405).state 5 $did(xdccopt,4&#
49;1).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter5
$did(xdccopt,405).state $did(xdccopt,417).text $did(x
;dccopt,411).text
if ($did(xdccopt,418).text > 15) || ($did(xdcco
pt,418).text < 0) writeini " $+ $scriptdirklipper\klipper.i
ni" filters filter6 $did(xdccopt,406).state 6 $did(xdccopt,4&#
49;2).text
else writeini " $+ $scriptdirklipper\klipper.ini" filters filter6
$did(xdccopt,406).state $did(xdccopt,418).text $did(x
;dccopt,412).text
if ($did(xdccopt,120).text != $null) writeini " $+ $
scriptdirklipper\klipper.ini" config movedir-dir $did(xdccopt,12
8;).text
else remini " $+ $scriptdirklipper\klipper.ini" config movedir-dir
if ($did(xdccopt,213).text != $null) writeini " $+ $scri
ptdirklipper\klipper.ini" config mail.username $did(xdccopt,213).te
xt
else remini " $+ $scriptdirklipper\klipper.ini" config mail.userna
me
if ($did(xdccopt,214).text != $null) writeini " $+ $scri
ptdirklipper\klipper.ini" config mail.password $encode($encode($did(xdc
copt,214).text,m),m)
else remini " $+ $scriptdirklipper\klipper.ini" config mail.passwo
rd
if ($did(xdccopt,215).text != $null) writeini " $+ $scri
ptdirklipper\klipper.ini" config mail.server $did(xdccopt,215).te&#
120;t
else remini " $+ $scriptdirklipper\klipper.ini" config mail.server
if ($did(xdccopt,217).text != $null) writeini " $+ $scri
ptdirklipper\klipper.ini" config vcode $did(xdccopt,217).text
else remini " $+ $scriptdirklipper\klipper.ini" config vcode
if ($did(xdccopt,218).text != $null) writeini " $+ $scri
ptdirklipper\klipper.ini" config mail.smtp $did(xdccopt,218).te
0;t
else remini " $+ $scriptdirklipper\klipper.ini" config mail.smtp
if ($did(xdccopt,219).text != $null) writeini " $+ $
scriptdirklipper\klipper.ini" config mail.adrs $did(xdccopt,219
).text
else remini " $+ $scriptdirklipper\klipper.ini" config mail.adrs
if ($did(xdccopt,709).text != $null) {
writeini " $+ $scriptdirklipper\klipper.ini" email rcserver $did
(xdccopt,709).text
set %msserver $gettok($remove($did(xdccopt,709).text,h
ttp://),1,47)
if ($gettok($remove($did(xdccopt,709).text,http://),2-
,47) == $null) unset %mspath
else {
set %mspath $remove($did(xdccopt,709).text,http://,%
msserver)
if ($right(%mspath,1) != $chr(47)) set %mspath %mspath $+ $chr(47)
}
}
else {
remini " $+ $scriptdirklipper\klipper.ini" email rcserver
unset %msserver
unset %mspath
}
if ($did(xdccopt,711).text != $null) {
writeini " $+ $scriptdirklipper\klipper.ini" email rcup $did(
20;dccopt,711).text
set %rcup $encode($did(xdccopt,711).text,m)
}
else {
remini " $+ $scriptdirklipper\klipper.ini" email rcup
unset %rcup
}
if ($did(xdccopt,216).text isnum) && ($did(xdccopt,2
9;6).text > 59) {
writeini " $+ $scriptdirklipper\klipper.ini" config mailtime $di
d(xdccopt,216).text
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.ser
ver) != $null) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,m
ail.username) != $null) && ($readini(" $+ $scriptdirklipper\klipper.ini"
,config,mail.password) != $null) .timerxdccmail -o 0 $readini(" $+
$scriptdirklipper\klipper.ini",config,mailtime) xdccmail
if ($timer(xdccmail) != $null) && ($readini(" $+ $scriptdirklip
per\klipper.ini",config,mail.server) == $null) || ($readini(" $+ $script
dirklipper\klipper.ini",config,mail.username) == $null) || ($readini(" $
+ $scriptdirklipper\klipper.ini",config,mail.password) == $null) .timerx
;dccmail off
}
else writeini " $+ $scriptdirklipper\klipper.ini" config mailtime
60
if (%optionstat == 0) {
did -a xdccopt 20 One or more of the paramaters which have to
be a number, $clrf contain notes other that numbers. Please corrert the problem.
}
else {
scon -at1 .timerRefresh. $!+ $!network1($network,$server) 0
$readini(" $+ $scriptdirklipper\klipper.ini",config,reftime) if ($readin
i(" $+ $scriptdirklipper\klipper.ini",config,autor.on) == 1) Ref-
20;dcc
.timerRef-filter -o 0 $readini(" $+ $scriptdirklipper\klipper.in
i",config,reftime) if ($readini(" $+ $scriptdirklipper\klipper.ini",
config,autor.on) == 1) Ref-filter
did -a xdccopt 20 New configuration was applied...........
}
writeini " $+ $scriptdirklipper\klipper.ini" config getdir $did(&#
120;dccopt,116).state
writeini " $+ $scriptdirklipper\klipper.ini" config check4upds $di
d(xdccopt,117).state
writeini " $+ $scriptdirklipper\klipper.ini" config movedir $did(&
#120;dccopt,118).state
writeini " $+ $scriptdirklipper\klipper.ini" config showmail $did(
xdccopt,206).state
writeini " $+ $scriptdirklipper\klipper.ini" config mail.hot $did(
xdccopt,210).state
writeini " $+ $scriptdirklipper\klipper.ini" config ywd $did(x
;dccopt,501).state
writeini " $+ $scriptdirklipper\klipper.ini" config nv $did(x
dccopt,502).state
writeini " $+ $scriptdirklipper\klipper.ini" config df $did(x
dccopt,503).state
writeini " $+ $scriptdirklipper\klipper.ini" config ds $did(x
dccopt,504).state
writeini " $+ $scriptdirklipper\klipper.ini" config dc $did(x
dccopt,505).state
writeini " $+ $scriptdirklipper\klipper.ini" config a2q $did(x
;dccopt,506).state
writeini " $+ $scriptdirklipper\klipper.ini" config ol $did(x
dccopt,507).state
writeini " $+ $scriptdirklipper\klipper.ini" config xdccpop $
did(xdccopt,601).state
writeini " $+ $scriptdirklipper\klipper.ini" config statuspop $did
(xdccopt,602).state
writeini " $+ $scriptdirklipper\klipper.ini" config virnote $did(&
#120;dccopt,605).state
writeini " $+ $scriptdirklipper\klipper.ini" config autor.on $did(
xdccopt,606).state
writeini " $+ $scriptdirklipper\klipper.ini" config oppr $calc($di
d(xdccopt,608).sel -1)
writeini " $+ $scriptdirklipper\klipper.ini" email xdccmail $
did(xdccopt,701).state
writeini " $+ $scriptdirklipper\klipper.ini" email xdccstat $
did(xdccopt,702).state
writeini " $+ $scriptdirklipper\klipper.ini" email xdccrun $d
id(xdccopt,703).state
writeini " $+ $scriptdirklipper\klipper.ini" email xdccsubmit
$did(xdccopt,704).state
writeini " $+ $scriptdirklipper\klipper.ini" email rcbw $did(x
;dccopt,707).state
writeini " $+ $scriptdirklipper\klipper.ini" config stasks $did(&#
120;dccopt,610).sel
}
if ($did == 903) {
set %supertext Do you really want to apply the default options?
set %supernum 2
dialog -ma superdialog superdialog
}
}
}
alias defaultopt {
writeini " $+ $scriptdirklipper\klipper.ini" config gfretry 15
writeini " $+ $scriptdirklipper\klipper.ini" config gftime 150
writeini " $+ $scriptdirklipper\klipper.ini" config goqt 60
writeini " $+ $scriptdirklipper\klipper.ini" config listpt 10
writeini " $+ $scriptdirklipper\klipper.ini" config getdir 0
writeini " $+ $scriptdirklipper\klipper.ini" config check4upds 1
writeini " $+ $scriptdirklipper\klipper.ini" config movedir 0
writeini " $+ $scriptdirklipper\klipper.ini" config showmail 1
writeini " $+ $scriptdirklipper\klipper.ini" config mail.hot 0
writeini " $+ $scriptdirklipper\klipper.ini" config botscolors 1 2
3 4 5 6 7 12 9 10
writeini " $+ $scriptdirklipper\klipper.ini" config statcolor 1
writeini " $+ $scriptdirklipper\klipper.ini" config goqcolor 1
writeini " $+ $scriptdirklipper\klipper.ini" config offcolor 14
writeini " $+ $scriptdirklipper\klipper.ini" config headlines 4
writeini " $+ $scriptdirklipper\klipper.ini" config mailtime 30
8;
writeini " $+ $scriptdirklipper\klipper.ini" filters filter1 0
1 $did(xdccopt,407).text
writeini " $+ $scriptdirklipper\klipper.ini" filters filter2 0 2 $
did(xdccopt,408).text
writeini " $+ $scriptdirklipper\klipper.ini" filters filter3 0 3 $
did(xdccopt,409).text
writeini " $+ $scriptdirklipper\klipper.ini" filters filter4 0 4 $
did(xdccopt,410).text
writeini " $+ $scriptdirklipper\klipper.ini" filters filter5 0 5 $
did(xdccopt,411).text
writeini " $+ $scriptdirklipper\klipper.ini" filters filter6 0 6 $
did(xdccopt,412).text
writeini " $+ $scriptdirklipper\klipper.ini" config ywd 1
writeini " $+ $scriptdirklipper\klipper.ini" config df 1
writeini " $+ $scriptdirklipper\klipper.ini" config ds 1
writeini " $+ $scriptdirklipper\klipper.ini" config dc 1
writeini " $+ $scriptdirklipper\klipper.ini" config nv 1
writeini " $+ $scriptdirklipper\klipper.ini" config a2q 1
writeini " $+ $scriptdirklipper\klipper.ini" config ol 1
writeini " $+ $scriptdirklipper\klipper.ini" config xdccpop 1
writeini " $+ $scriptdirklipper\klipper.ini" config statuspop 1
writeini " $+ $scriptdirklipper\klipper.ini" config virnote 1
writeini " $+ $scriptdirklipper\klipper.ini" config autor.on 1
writeini " $+ $scriptdirklipper\klipper.ini" config oppr 0
writeini " $+ $scriptdirklipper\klipper.ini" config reftime 60
writeini " $+ $scriptdirklipper\klipper.ini" email xdccmail 1
writeini " $+ $scriptdirklipper\klipper.ini" email xdccstat 1
writeini " $+ $scriptdirklipper\klipper.ini" email xdccrun 1
writeini " $+ $scriptdirklipper\klipper.ini" email xdccsubmit
9;
writeini " $+ $scriptdirklipper\klipper.ini" email submittime 5
writeini " $+ $scriptdirklipper\klipper.ini" email fetchjobs 60
writeini " $+ $scriptdirklipper\klipper.ini" email rcbw 0
writeini " $+ $scriptdirklipper\klipper.ini" config stasks 3
did -r xdccopt 109 | did -r xdccopt 110 | di
d -r xdccopt 111 | did -r xdccopt 112 | did -r
20;dccopt 216
did -r xdccopt 301 | did -r xdccopt 302 | did -r xd
ccopt 303 | did -r xdccopt 304 | did -r xdccopt 305
did -r xdccopt 306 | did -r xdccopt 307 | did -r xdccop
t 308 | did -r xdccopt 309 | did -r xdccopt 310
did -r xdccopt 313 | did -r xdccopt 315 | did -r xdccop
t 317 | did -r xdccopt 319 | did -r xdccopt 413
did -r xdccopt 414 | did -r xdccopt 415 | did -r xdccop
t 416 | did -r xdccopt 417 | did -r xdccopt 418
did -r xdccopt 604 | did -r xdccopt 706 | did -r xdccop
t 713
did -a xdccopt 109 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,gfretry)
did -a xdccopt 110 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,gftime)
did -a xdccopt 111 $readini(" $+ $scriptdirklipper\klippe
r.ini",config,goqt)
did -a xdccopt 112 $readini(" $+ $scriptdirklipper\klipper.in
i",config,listpt)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,getd
ir) == 1,c,u) xdccopt 116
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,chec
k4upds) == 1,c,u) xdccopt 117
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,move
dir) == 1,c,u) xdccopt 118
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,show
mail) == 1,c,u) xdccopt 206
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,mail
.hot) == 1,c,u) xdccopt 210
did -a xdccopt 216 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,mailtime)
did -a xdccopt 301 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),1,32)
did -a xdccopt 302 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),2,32)
did -a xdccopt 303 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),3,32)
did -a xdccopt 304 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),4,32)
did -a xdccopt 305 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),5,32)
did -a xdccopt 306 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),6,32)
did -a xdccopt 307 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),7,32)
did -a xdccopt 308 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",config,botscolors),8,32)
did -a xdccopt 309 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),9,32)
did -a xdccopt 310 $gettok($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,botscolors),10,32)
did -a xdccopt 313 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,statcolor)
did -a xdccopt 315 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,goqcolor)
did -a xdccopt 317 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,offcolor)
did -a xdccopt 319 $readini(" $+ $scriptdirklipper\klipper.in
i",config,headlines)
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter1),1,32) == 1,c,u) xdccopt 401
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter2),1,32) == 1,c,u) xdccopt 402
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter3),1,32) == 1,c,u) xdccopt 403
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter4),1,32) == 1,c,u) xdccopt 404
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter5),1,32) == 1,c,u) xdccopt 405
did - $+ $iif($gettok($readini(" $+ $scriptdirklipper\klipper.ini",fil
ters,filter6),1,32) == 1,c,u) xdccopt 406
did -a xdccopt 413 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter1),2,32)
did -a xdccopt 414 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter2),2,32)
did -a xdccopt 415 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter3),2,32)
did -a xdccopt 416 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter4),2,32)
did -a xdccopt 417 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter5),2,32)
did -a xdccopt 418 $gettok($readini(" $+ $scriptdirklipper\klippe
r.ini",filters,filter6),2,32)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ywd)
== 1,c,u) xdccopt 501
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,nv)
== 1,c,u) xdccopt 502
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,df)
== 1,c,u) xdccopt 503
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ds)
== 1,c,u) xdccopt 504
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,dc)
== 1,c,u) xdccopt 505
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q)
== 1,c,u) xdccopt 506
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,ol)
== 1,c,u) xdccopt 507
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,
0;dccpop) == 1,c,u) xdccopt 601
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,stat
uspop) == 1,c,u) xdccopt 602
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,virn
ote) == 1,c,u) xdccopt 605
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,auto
r.on) == 1,c,u) xdccopt 606
did -c xdccopt 608 $calc($readini(" $+ $scriptdirklipper\klipper.
ini",config,oppr)+1)
did -c xdccopt 610 $readini(" $+ $scriptdirklipper\klipper.in
i",config,stasks)
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccmail) == 1,c,u) xdccopt 701
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccstat) == 1,c,u) xdccopt 702
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccrun) == 1,c,u) xdccopt 703
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,x
;dccsubmit) == 1,c,u) xdccopt 704
did - $+ $iif($readini(" $+ $scriptdirklipper\klipper.ini",email,rcbw)
== 1,c,u) xdccopt 707
did -a xdccopt 604 $readini(" $+ $scriptdirklipper\klipper.ini
4;,config,reftime)
did -a xdccopt 706 $readini(" $+ $scriptdirklipper\klipper.ini
4;,email,submittime)
did -a xdccopt 713 $readini(" $+ $scriptdirklipper\klipper.ini
4;,email,fetchjobs)
did -a xdccopt 20 Default configuration was applied...........
scon -at1 .timerRefresh. $+ $network1($network,$server) 0 $readini
(" $+ $scriptdirklipper\klipper.ini",config,reftime) if ($readini("
$+ $scriptdirklipper\klipper.ini",config,autor.on) == 1) Ref-xdcc
.timerRef-filter -o 0 $readini(" $+ $scriptdirklipper\klipper.ini"
,config,reftime) if ($readini(" $+ $scriptdirklipper\klipper.ini",config
,autor.on) == 1) Ref-filter
.timermsjob -o 0 $readini(" $+ $scriptdirklipper\klipper.ini",emai
l,fetchjobs) msjob
.timerircklipper -o 0 $calc($readini(" $+ $scriptdirklipper\klipper.in
i",email,submittime) *60) xdccsubmit
if ($timer(xdccmail) == $null) && ($readini(" $+ $scriptdirklipper\kl
ipper.ini",config,mail.server) != $null) && ($readini(" $+ $scriptdirkli
pper\klipper.ini",config,mail.username) != $null) && ($readini(" $+ $scr
iptdirklipper\klipper.ini",config,mail.password) != $null) .timerxdccma
il -o 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,mailtime
) xdccmail
}
xdccklipper3.mrc:
on *:start: {
echo 14 -a - Successfully Loaded XDCC Klipper E-mail Addon for XDCC Klippe
r v $+ %vversion $+ .
}
on *:unload: {
echo 7 -a - Successfully Unloaded XDCC Klipper E-mail Addon for XDCC Klipper v
$+ %vversion $+ .
}
alias xdccmail {
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) =
= 0) goto end
unset %xdccmail*
set %xdccmailread 0
set %xdccmaildelete 1
set %do-once 0
set %do-once1 0
set %smtp-retry 0
write -c " $+ $scriptdirklipper\aitemp.tmp"
write -c " $+ $scriptdirklipper\sendto.txt"
xdccmail_chk
:end
}
alias xdccmail_chk {
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.server) =
= $null) || ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.us
ername) == $null) || ($readini(" $+ $scriptdirklipper\klipper.ini",confi
g,mail.password) == $null) { echo 4 -a You need to Setup an e-mail account befor
e connecting. | halt }
sockclose xdccmail*
sockopen xdccmail $readini(" $+ $scriptdirklipper\klipper.ini",co
nfig,mail.server) 110
}
alias mailinit {
sockwrite -n xdccmail USER $readini(" $+ $scriptdirklipper\klipper.in
i",config,mail.username)
%xdccmail_task = USER
}
on 1:sockopen:xdccmail*: {
if ( $sockerr > 0 ) {
if (%showmail == 1) echo 4 -a Can't connect to the POP3 mail server
halt
}
.timeruser -o 1 2 mailinit
}
on 1:sockread:xdccmail*: {
sockread %xdccmail
if (-err isin $gettok(%xdccmail,1,32)) { echo 4 -a ERROR!: $remove(%&
#120;dccmail,$gettok(%xdccmail,1,32)) | sockwrite -n xdccmail quit
| halt }
if (+OK isin %xdccmail) {
if (%xdccmail_task == USER) {
sockwrite -n $sockname PASS $decode($decode($readini(" $+ $scriptdirkl
ipper\klipper.ini",config,mail.password),m),m)
%xdccmail_task = PASS
halt
}
if (%xdccmail_task == PASS) {
%xdccmail_task = LIST
sockwrite -n $sockname LIST
halt
}
halt
}
if (%xdccmail_task == LIST) {
if (%xdccmail == $chr(46)) {
%xdccmail_total = %xdccmailcount
if (%xdccmail_total == $null) { .timersoclose -o 1 5 sockwrite -n
xdccmail quit }
if (%xdccmail_total == $null) && ($readini(" $+ $scriptdirklipper
\klipper.ini",config,showmail) == 1) { echo 4 -a $time *** No mail was
found in your mailbox }
if (%xdccmail_total != $null) {
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,showmail
) == 1) echo 4 -a $time *** You have %xdccmail_total Email(s) in your m
ailbox
%xdccmail_task = read
if ($numtok(%xdccmailfilter1,32) > 0) { mailfilter | %&
#120;dccmaildelete = 1 }
else { .timersoclose -o 1 5 sockwrite -n xdccmail quit }
}
halt
}
if ($gettok(%xdccmail,2,32) <= 51200) { %xdccmailf
ilter1 = %xdccmailfilter1 $gettok(%xdccmail,1,32) }
if (%xdccmail != $null) %xdccmailcount = $gettok(%xdccmail,&#
49;,32)
halt
}
if (%xdccmail_task == read) {
if ($gettok(%xdccmail,1,32) == .) {
inc %xdccmaildelete
%xdccmailread = 0
}
if (%xdccmaildelete > $numtok(%xdccmailfilter1,32)) && (%d
o-once == 0) {
%do-once = 1
if ($lines(" $+ $scriptdirklipper\sendto.txt") > 0) .
timersendmail -o 1 20 sendmail
.timermaildelete -o 1 20 maildelete
}
if (Subject !isin %xdccmail) && (:goback !isin %xdccmail) && (:
20;dccrun !isin %xdccmail) && (:start !isin %xdccmail) && (:end !isin
%xdccmail) && (:cancel !isin %xdccmail) && (%xdccmailread != 2) h
alt
if ($gettok(%xdccmail,1-2,32) == Subject $+ $chr(58) xdcctest)
{
echo 9 -a Mail account test went OK. Test e-mail was received.
thabox Mail account test went OK. Test e-mail was received.
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdccma
ilfilter1,%xdccmaildelete,32)
}
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,vcode) != $n
ull) {
if ($gettok(%xdccmail,1-3,32) == Subject $+ $chr(58) xdccmai
l $readini(" $+ $scriptdirklipper\klipper.ini",config,vcode)) && ($readi
ni(" $+ $scriptdirklipper\klipper.ini",email,xdccmail) == 1) {
%xdccmailread = 1
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdcc
mailfilter1,%xdccmaildelete,32)
}
if ($gettok(%xdccmail,1-3,32) == Subject $+ $chr(58) xdccsta
t $readini(" $+ $scriptdirklipper\klipper.ini",config,vcode)) && ($readi
ni(" $+ $scriptdirklipper\klipper.ini",email,xdccstat) == 1) {
%xdccmailread = 3
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdcc
mailfilter1,%xdccmaildelete,32)
}
if ($gettok(%xdccmail,1-4,32) == Subject $+ $chr(58) xdccrun
$readini(" $+ $scriptdirklipper\klipper.ini",config,vcode) $decode($dec
ode($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.password),m
),m)) && ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccru
n) == 1) {
%xdccmailread = 5
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdcc
mailfilter1,%xdccmaildelete,32)
}
}
else {
if ($gettok(%xdccmail,1-2,32) == Subject $+ $chr(58) xdccmai
l) && ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccmail)
== 1) {
%xdccmailread = 1
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdcc
mailfilter1,%xdccmaildelete,32)
}
if ($gettok(%xdccmail,1-3,32) == Subject $+ $chr(58) xdccsta
t) && ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccstat)
== 1) {
%xdccmailread = 3
%xdccmaildelete1 = %xdccmaildelete1 $gettok(%xdcc
mailfilter1,%xdccmaildelete,32)
}
}
if ($gettok(%xdccmail,1,32) == :goback) && (%xdccmailread == 3
) {
if ($gettok(%xdccmail,2,32) != $null) write " $+ $scriptdirklippe
r\sendto.txt" $gettok(%xdccmail,2,32)
}
if ($gettok(%xdccmail,1,32) == :xdccrun) && (%xdccmailrea
d == 5) {
if ($gettok(%xdccmail,2,32) != $null) run $gettok(%xdccmail,2-,3
2)
}
if ($gettok(%xdccmail,1,32) == :cancel) && (%xdccmailread == &
#49;) {
if ($gettok(%xdccmail,2,32) != $null) xdcc-cancel $gettok(%x
;dccmail,2-,32)
}
if ($gettok(%xdccmail,1,32) == $chr(58) $+ end) %xdccmailread
= 0
if (%xdccmailread == 2) {
write " $+ $scriptdirklipper\aitemp.tmp" %xdccmail
}
if ($gettok(%xdccmail,1,32) == $chr(58) $+ start) && (%xdccmai
lread == 1) %xdccmailread = 2
}
}
alias mailfilter {
var %b = 1
while (%b <= $numtok(%xdccmailfilter1,32)) {
sockwrite -n xdccmail retr $gettok(%xdccmailfilter1,%b,32)
inc %b
}
}
alias maildelete {
var %b = 1
while (%b <= $numtok(%xdccmaildelete1,32)) {
sockwrite -n xdccmail dele $gettok(%xdccmaildelete1,%b,32)
inc %b
if (%b > $numtok(%xdccmaildelete1,32)) xdccai
}
if (%b > $numtok(%xdccmaildelete1,32)) { .timersoclose -o 1 5
sockwrite -n xdccmail quit }
}
alias xdccai {
var %corn
filter -ff " $+ $scriptdirklipper\aitemp.tmp" " $+ $scriptdirklipp
er\workfile.tmp"
var %b = 1
while $read(" $+ $scriptdirklipper\aitemp.tmp",%b) {
tokenize 32 $ifmatch
var %corn
scon -at5 if $1 == $!network || $2 == $!server $eval({ %corn = 1 },&
#48;)
if !%corn {
server -m $2
}
else {
scon -at1 pdownload
}
inc %b
}
}
on *:connect {
if ($server($server).group == $null) .server -a $server -g $network1($netw
ork,$server) -d $network1($network,$server) - $server
while ($read(" $+ $scriptdirklipper\workfile.tmp",w,$network1($net
work,$server) $+ *) != $null) {
var %templine = $readn
var %chan = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",$read
n),3,32)
join %chan
var %c = 5
while (%c <= $numtok($read(" $+ $scriptdirklipper\workfile.tmp",
%templine),32)) {
var %ainick = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",%
templine),4,32)
var %aipack = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",%
templine),%c,32)
if ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) == $nul
l) || ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) != %chan)
hadd botchan $eval($network1($network,$server) $+ . $+ %ainick) %chan
nick2goq %ainick $chr(9) %aipack
inc %c
}
write -dl $+ $readn " $+ $scriptdirklipper\workfile.tmp"
}
while ($read(" $+ $scriptdirklipper\workfile2.tmp",w,$network1($ne
twork,$server) $+ *) != $null) {
var %templine2 = $readn
var %chan2 = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",$re
adn),3,32)
join %chan2
var %d = 5
while (%d <= $numtok($read(" $+ $scriptdirklipper\workfile2.tmp"
,%templine2),32)) {
var %ainick = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",
%templine2),4,32)
var %aipack = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",
%templine2),%d,32)
if ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) == $nul
l) || ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) != %chan2)
hadd botchan $eval($network1($network,$server) $+ . $+ %ainick) %chan2
getpack %ainick $chr(9) %aipack
inc %d
}
write -dl $+ $readn " $+ $scriptdirklipper\workfile2.tmp"
}
}
alias pdownload {
while ($read(" $+ $scriptdirklipper\workfile.tmp",w,$network1($net
work,$server) $+ *) != $null) {
var %templine = $readn
var %chan = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",$read
n),3,32)
join %chan
var %c = 5
while (%c <= $numtok($read(" $+ $scriptdirklipper\workfile.tmp",
%templine),32)) {
var %ainick = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",%
templine),4,32)
var %aipack = $gettok($read(" $+ $scriptdirklipper\workfile.tmp",%
templine),%c,32)
if ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) == $nul
l) || ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) != %chan)
hadd botchan $eval($network1($network,$server) $+ . $+ %ainick) %chan
nick2goq %ainick $chr(9) %aipack
inc %c
}
write -dl $+ $readn " $+ $scriptdirklipper\workfile.tmp"
}
while ($read(" $+ $scriptdirklipper\workfile2.tmp",w,$network1($ne
twork,$server) $+ *) != $null) {
var %templine2 = $readn
var %chan2 = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",$re
adn),3,32)
join %chan2
var %d = 5
while (%d <= $numtok($read(" $+ $scriptdirklipper\workfile2.tmp"
,%templine2),32)) {
var %ainick = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",
%templine2),4,32)
var %aipack = $gettok($read(" $+ $scriptdirklipper\workfile2.tmp",
%templine2),%d,32)
if ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) == $nul
l) || ($hget(botchan,$network1($network,$server) $+ . $+ %ainick) != %chan2)
hadd botchan $eval($network1($network,$server) $+ . $+ %ainick) %chan2
getpack %ainick $chr(9) %aipack
inc %d
}
write -dl $+ $readn " $+ $scriptdirklipper\workfile2.tmp"
}
}
alias sendmail {
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.smtp) !=
$null) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.adrs
) != $null) {
sockclose sendmail
write -c " $+ $scriptdirklipper\dlreport.tmp"
var %b = 1
if ($hget(statuswin,0).item > 0) {
.remove sendmail.tmp
scon %b hsave -n statuswin sendmail.tmp
window -alsn @sendmail-temp
filter -fw sendmail.tmp @sendmail-temp
.remove sendmail.tmp
write " $+ $scriptdirklipper\dlreport.tmp" Current files which are
being downloaded, On queue, on Get On Queue, or Klipboard etc are:
filter -wf @sendmail-temp " $+ $scriptdirklipper\dlreport.tmp"
window -c @sendmail-temp
write " $+ $scriptdirklipper\dlreport.tmp" **********
}
write " $+ $scriptdirklipper\dlreport.tmp" Things that you are curre
ntly downloading:
var %a = 1
while (%a <= $get(0)) {
write " $+ $scriptdirklipper\dlreport.tmp" $get(%a).rcvd bytes wer
e downloaded from the file $get(%a).file $+ , which are $get(%a).pc $+ $chr(37)
inc %a
}
write " $+ $scriptdirklipper\dlreport.tmp" Things that you finished
downloading recently:
filter -ff " $+ $scriptdirklipper\finished.txt" " $+ $scrip
tdirklipper\dlreport.tmp"
unset %sendmail*
sockclose sendmail-auth
sockclose sendmail
sockclose sendmail-hotmail
if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.hot) ==
1) .timersendmail -o 1 5 sockopen sendmail-hotmail $readini(" $+ $s
criptdirklipper\klipper.ini",config,mail.smtp) 25
else .timersendmail -o 1 5 sockopen sendmail $readini(" $+ $scriptdi
rklipper\klipper.ini",config,mail.smtp) 25
}
else echo -a Error: Can't send the download report. SMTP server or/and you
r e-mail address are missing.
}
on *:sockopen:sendmail:{
if ( $sockerr > 0 ) { echo 1 -a Error, can't connect to SMTP s
erver | sockclose sendmail | halt }
set %sendmail.job 0
}
on *:sockread:sendmail:{
sockread %sendmail.read
inc %sendmail.job
set %sendmail.raw $left(%sendmail.read,3)
if (%sendmail.raw == 421) || (%sendmail.raw == 450) || (%sendmail.raw
== 451) || (%sendmail.raw == 452) || (%sendmail.raw == 500) || (%sen
dmail.raw == 501) || (%sendmail.raw == 502) || (%sendmail.raw == 5&#
48;3) || (%sendmail.raw == 550) || (%sendmail.raw == 554) {
echo 4 -a ERROR!!!!, Can't send e-mail - %sendmail.read
sockclose sendmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
if (%sendmail.raw == 354) { echo 4 -a The downloads report e-mail was successf
ully sent! | .timersendmailretry off }
if (%sendmail.job == 1) && (%sendmail.raw != 220) {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
if (%sendmail.job == 1) && (%sendmail.raw == 220) {
if ($host != $null) sockwrite -n sendmail HELO $host
elseif ($ip != $null) sockwrite -n sendmail HELO $ip
else sockwrite -n sendmail HELO xdccklipper.com
}
if (%sendmail.job == 2) { sockwrite -n sendmail MAIL FROM: < $+ $readini(&
#34; $+ $scriptdirklipper\klipper.ini",config,mail.adrs) $+ > }
if (%sendmail.job == 3) {
var %rcpt = 1
while (%rcpt <= $lines(" $+ $scriptdirklipper\sendto.txt"))
{
sockwrite -n sendmail RCPT TO: < $+ $read(" $+ $scriptdirklipper\s
endto.txt",%rcpt) $+ >
inc %rcpt
}
}
if (%sendmail.job == 4) {
sockwrite -n sendmail DATA
sockwrite -n sendmail X-Mailer: XDCC Klipper 4.3
sockwrite -n sendmail FROM: $readini(" $+ $scriptdirklipper\klipper.ini&
#34;,config,mail.adrs)
var %rcpt = 1
while (%rcpt <= $lines(" $+ $scriptdirklipper\sendto.txt"))
{
sockwrite -n sendmail TO: $read(" $+ $scriptdirklipper\sendto.txt
",%rcpt)
inc %rcpt
}
sockwrite -n sendmail Subject: Downloads Report
sockwrite -n sendmail $crlf
sockwrite -n sendmail ******************************
var %a = 1
while (%a <= $lines(" $+ $scriptdirklipper\dlreport.tmp")) {
if ($read(" $+ $scriptdirklipper\dlreport.tmp",%a) != $null) {
sockwrite -n sendmail $read(" $+ $scriptdirklipper\dlreport.tmp"
,%a)
}
inc %a
}
sockwrite -n sendmail ******************************
sockwrite -n sendmail Downloads Report is done!
sockwrite -n sendmail .
}
if (%sendmail.job == 5) .timerclosesendmail -o 1 5 sockwrite -n sendmail Q
UIT
}
on *:sockopen:sendmail-hotmail:{
if ( $sockerr > 0 ) { echo 1 -a Error, can't connect to SMTP s
erver | sockclose sendmail | halt }
set %sendmail.job 0
}
on *:sockread:sendmail-hotmail: {
sockread %sendmail.read
if (%sendmail.read != $null) {
inc %sendmail.job
set %sendmail.raw $left(%sendmail.read,3)
if (%sendmail.raw == 421) || (%sendmail.raw == 450) || (%sendmail.ra
w == 451) || (%sendmail.raw == 452) || (%sendmail.raw == 500) || (%s
endmail.raw == 501) || (%sendmail.raw == 502) || (%sendmail.raw == 5
03) || (%sendmail.raw == 550) || (%sendmail.raw == 554) {
echo 4 -a ERROR!!!!, Can't send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
if (%sendmail.raw == 354) { echo 4 -a The downloads report e-mail was succes
sfully sent! | .timersendmailretry off }
if (%sendmail.job == 1) {
if (%sendmail.raw == 220) {
sockwrite -n sendmail-hotmail HELO
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 2) {
if (%sendmail.raw == 250) {
sockwrite -n sendmail-hotmail AUTH LOGIN
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 3) {
if (%sendmail.raw == 334) {
sockwrite -n sendmail-hotmail $encode($readini(" $+ $scriptdirklippe
r\klipper.ini",config,mail.username),m)
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 4) {
if (%sendmail.raw == 334) {
sockwrite -n sendmail-hotmail $decode($readini(" $+ $scriptdirklippe
r\klipper.ini",config,mail.password),m)
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 5) {
if (%sendmail.raw == 235) {
sockwrite -n sendmail-hotmail Mail From: < $+ $readini(" $+ $scr
iptdirklipper\klipper.ini",config,mail.adrs) $+ >
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 6) {
if (%sendmail.raw == 250) {
var %rcpt = 1
while (%rcpt <= $lines(" $+ $scriptdirklipper\sendto.txt
4;)) {
sockwrite -n sendmail-hotmail RCPT TO: < $+ $read(" $+ $script
dirklipper\sendto.txt",%rcpt) $+ >
inc %rcpt
}
sockwrite -n sendmail-hotmail DATA
}
else {
echo 2 -a Error while trying to send e-mail - %sendmail.read
sockclose sendmail-hotmail
if (%smtp-retry <= 2) .timersmr 1 10 sendmail
inc %smtp-retry
halt
}
}
if (%sendmail.job == 7) {
sockwrite -n sendmail-hotmail X-Mailer: XDCC Klipper 4.1
sockwrite -n sendmail-hotmail FROM: $readini(" $+ $scriptdirklipper\kl
ipper.ini",config,mail.adrs)
var %rcpt = 1
while (%rcpt <= $lines(" $+ $scriptdirklipper\sendto.txt"
)) {
sockwrite -n sendmail-hotmail TO: $read(" $+ $scriptdirklipper\sendt
o.txt",%rcpt)
inc %rcpt
}
sockwrite -n sendmail-hotmail Subject: Downloads Report
sockwrite -n sendmail-hotmail $crlf
sockwrite -n sendmail-hotmail ******************************
var %a = 1
while (%a <= $lines(" $+ $scriptdirklipper\dlreport.tmp")) {
if ($read(" $+ $scriptdirklipper\dlreport.tmp",%a) != $null) {
sockwrite -n sendmail-hotmail $read(" $+ $scriptdirklipper\dlrepor
t.tmp",%a)
}
inc %a
}
sockwrite -n sendmail-hotmail ******************************
sockwrite -n sendmail-hotmail Downloads report is done!
sockwrite -n sendmail-hotmail .
}
}
}
