Loading

Revision differences

Return to paste
Old revision #pn5woyamvNew revision #pus2rncyx
1/*  1 * Safest way to read archived HTML files is to use a separate
2mSASL Version 1.0 Beta [sans DLL] designed by Kyle Travaglini  2web browser offline, different from the browser you use online.
3* To use this script you must have the proper DLL  3Operation KILLCEN (Kill Censorship) will continue to backup and
4* All I ask is you leave the credit line within the main dialog  4mirror real news around the world as well as threats to humanity.
5* PLEASE read the SASLreadme.txt file before asking questions!  5Visit the Breaking News Backup board @ http://8ch.net/realnews/  *
6  6 
7  7 
8[sans DLL changes] [wide] Screenshot https://cdn.pbrd.co/images/IYav5ZF.png  8Breaking.News.Backup.0048.zip  [Dec-11-2015]
9Tested with versions 6.12, 6.35 and 7.19  9(402 reports | ZIP | 40.5MB)
10Should work with v6.03+ (when $input changed to letter flags)  10 
11  11http://wyslijto.pl/plik/f9keskiece
12how to guide w/ pictures if you need help: http://bit.ly/mirc-sasl-howto  12http://www.fileshare.ro/e3171915128
13  13http://www.uploadzeal.com/liaugs3ut810
14- $dll call removed and replaced with scripted version [$SASL(username,password).plain]  14http://www47.zippyshare.com/v/YrKfkgIG/file.html
15- $decode call removed and replaced with plain text [mIRC disables $decode by default]  15http://www.ortofiles.com/1opv4tzsddjv/Breaking.News.Backup.0048.zip
16* a few other edits to fix bugs and add a bit more function  16http://www.mediafire.com/download/gyb3yvn22g8844v/Breaking.News.Backup.0048.zip
17  17{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
18* only plain is supported for AuthType [blank defaults to plain]  18{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
19* auth timeout support added [blank defaults to 30 seconds]  19Breaking.News.Backup.0047.zip  [Nov-18-2015]
20  20(330 reports | ZIP | 29.6MB)
21* break up authenticate lines over 400 characters  21 
22* fixed edit network dialog error  22http://upstore.net/EcE54rP
23- noticed I set the hash tables to binary, removed binary flag [you might lose your settings]  23http://www.fileshare.ro/e3171860808
24* added checks for required network configuration information  24http://www81.zippyshare.com/v/eRoH63FJ/file.html
25* in network configuration [if left empty]:  25http://uploadrocket.net/ivzp52xnotxa/Breaking.News.Backup.0047.zip.html
26*   Domain defaults to 0  26http://www.ortofiles.com/e77xn07n9gpv/Breaking.News.Backup.0047.zip
27*   Real Name defaults to $fullname, if not empty, then *  27http://aydigital.net/upload/index.php/files/get/vXexn6VQOP/breaking.news.backup.0047.zip
28*   Timeout defaults to 30 seconds [as above]  28{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
29*   AuthType defaults to PLAIN [as above]  29{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
30*   Network must be filled in  30Breaking.News.Backup.0046.zip  [Oct-22-2015]
31*   Username must be filled in  31(325 reports | ZIP | 33.3MB)
32*   NS Password must be filled in  32 
33  33http://www.forceupload.com/?d=562920171
34* added check for nickname in use error, resend as $me_$rand(a, z)  34http://www.fileshare.ro/e31988894
35* fixed some dialog display errors  35http://ultrashare.net/hosting/fl/051334a475
36* change from /quote to /raw  36http://www.anafile.com/8ou10i4mdi7o.html
37  37http://www.edisk.cz/stahni/19630/Breaking.News.Backup.0046.zip_33.32MB.html
38* added check for server list file  38https://anonfiles.com/file/e6498f51773f3768dd13dd19e24ca3fe
39*   fixes error when trying to load server list when you have not saved one  39{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
40* changed manager button text to clarify what they do  40{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
41*/  41Breaking.News.Backup.0045.zip  [Sep-28-2015]
42  42(280 reports | ZIP | 25.8MB)
43alias mSASL.ver { return 1.0 }  43 
44alias mSASL.version { return mSASL $+(v, $mSASL.ver) Beta [sans DLL] }  44http://upstore.net/ERcdgdT
45alias mSASL {  45http://ultrashare.net/hosting/fl/236807712d
46  var %cid = $1, %network = $2  46http://filesbomb.in/2ofw5rjm8tdf
47  if (%network isin $SASL(%network).nlist) {  47http://www65.zippyshare.com/v/jN8EKBnw/file.html
48    if ($prop == timer) { return $+(.timer, mSASL.TimeOut., %cid, ., %network) }  48http://www.edisk.cz/stahni/50283/Breaking.News.Backup.0045.zip_25.9MB.html
49    elseif ($prop == timeout) {  49http://megacache.net/qo7tcj06qge6/Breaking.News.Backup.0045.zip.html
50      if ($SASL(%network).status == Authenticating) { scid %cid .raw CAP END }  50{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
51    }  51{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
52  }  52Breaking.News.Backup.0044.zip  [Sep-11-2015]
53}  53(410 reports | ZIP | 36.1MB)
54alias mSASL.show { dialog -m SASL.main SASL.main }  54 
55alias f2 { mSASL.show }  55http://takebin.com/f/FcJqOdi5cl0h4
56menu menubar,status {  56http://ultrashare.net/hosting/fl/58f58d63f1
57  -  57http://www29.zippyshare.com/v/h0DUhlbN/file.html
58  $mSASL.version: mSASL.show  58http://linkz.ge/file/459179/Breaking-News-Backup-0044.zip.html
59  -  59http://wikisend.com/download/635922/Breaking.News.Backup.0044.zip
60}  60http://www.filehost.pw/ws48ytxao0rm/Breaking.News.Backup.0044.zip.html
61  61{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
62alias shname { return SASL }  62{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
63alias shfile { return $+(", $scriptdir, SASL.hsh, ") }  63Breaking.News.Backup.0043.zip  [Aug-22-2015]
64alias SASL {  64(322 reports | ZIP | 30.3MB)
65  if ($isid) {  65 
66    if ($prop == nlist) { return $hget($shname, NLIST) }  66http://qfs.mobi/f2533821
67    if ($prop == timeout) { return $hget($shname, $+($1, :TIMEOUT)) }  67http://wyslijto.pl/plik/k3gx2x78tg
68    if ($prop == user) { return $hget($shname, $+($1, :USER)) }  68http://www42.zippyshare.com/v/fP31wUqC/file.html
69    if ($prop == passwd) { return $hget($shname, $+($1, :PASSWD)) }  69http://uploadrocket.net/yhgw9okf1306/Breaking.News.Backup.0043.zip.html
70    if ($prop == domain) { return $hget($shname, $+($1, :DOMAIN)) }  70http://www.share.az/u9mxg3qfq5g1/Breaking.News.Backup.0043.zip.html
71    if ($prop == realname) { return $hget($shname, $+($1, :REALNAME)) }  71http://www.flootr.com/download.php?file=8ef66372bfa7f94bf9b726dc3641d010
72    if ($prop == status) { return $hget($shname, $+($1, :STATUS)) }  72{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
73    if ($prop == authtype) { return $hget($shname, $+($1, :AUTHTYPE)) }  73{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
74    if ($prop == plain) {  74Breaking.News.Backup.0042.zip  [Aug-11-2015]
75      bset -t &auth 1 $1  75(409 reports | ZIP | 34.5MB)
76      bset -t &auth $calc( $bvar(&auth, 0) + 2 ) $1  76 
77      bset -t &auth $calc( $bvar(&auth, 0) + 2 ) $2  77http://www.forceupload.com/?d=55CA594A1
78      var %len = $encode(&auth, mb)  78http://www.fast-files.com/getfile.aspx?file=97102
79      return $bvar(&auth, 1, %len).text  79http://www.uploadzeal.com/678q1m5z7f8j
80    }  80http://ziifile.com/4xlo0pf0vjo9/Breaking.News.Backup.0042.zip.html
81  }  81http://www.upload.ee/files/5126732/Breaking.News.Backup.0042.zip.html
82}  82http://www.xup.in/dl,14834954/Breaking.News.Backup.0042.zip/
83alias sd { hadd -m $shname $+($1, :, $2) $3- }  83{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
84  84{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
85on *:START:{  85Breaking.News.Backup.0041.zip  [Jul-20-2015]
86  if (!$hget($shname)) { hmake $shname 50 }  86(310 reports | ZIP | 20.7MB)
87  if ($exists($shfile)) { hload $shname $shfile }  87 
88}  88http://180upload.com/kwt7bvs7r7fb
89on *:EXIT:{  89http://www.fast-files.com/getfile.aspx?file=95593
90  if (($hget($shname)) && ($hget($shname,0).item > 0)) { hsave $shname $shfile }  90http://www.filedwon.info/l1xkshir31kr/Breaking.News.Backup.0041.zip.html
91}  91http://www.mega-myfile.com/file/135/Breaking-News-Backup-0041-zip.html
92  92http://www.edisk.cz/stahni/00211/Breaking.News.Backup.0041.zip_20.71MB.html
93on ^*:LOGON:*:{  93http://www.xup.in/dl,15595998/Breaking.News.Backup.0041.zip/
94  if ($network isin $SASL($network).nlist) {  94{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
95    .raw CAP LS  95{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
96    .raw NICK $me  96Breaking.News.Backup.0001-40.7z  [Jul-08-2015]
97    .raw USER $SASL($network).user $SASL($network).domain $server : $+ $SASL($network).realname  97(13,000 reports | 7zip | 131MB)
98    sd $network STATUS Connecting  98 
99    haltdef  99 * Full collection from June 14th, 2014 through July 8th, 2015. Objective:
100  }  100backup documentation of the collapse of the United State of America, and
101}  101other current events around the world as well as threats to humanity. *
102on *:CONNECT:{  102 
103  if ($network isin $SASL($network).nlist) { sd $network STATUS Connected }  103http://upstore.net/oKWgog
104}  104http://www.forceupload.com/?d=559D49C41
105on *:DISCONNECT:{  105http://www.uploadzeal.com/mhn25u93mrhe
106  if ($network isin $SASL($network).nlist) { sd $network STATUS Disconnected }  106https://mega.co.nz/#!v0EBXLbA!rIe5n5tLqM9NTxdo0IPvF569o2iHTDupWvfoZecUZLY
107}  107{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
108  108{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
109raw CAP:& LS *:{  109FULL BREAKING NEWS BACKUP ARCHIVE @ MEDIAFIRE
110  if ($network isin $SASL($network).nlist) {  110 
111    .raw CAP REQ :multi-prefix sasl  111https://www.mediafire.com/folder/h6advujxj96se/BREAKING_NEWS_BACKUP
112    var %t = $mSASL($cid, $network).timer  112{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
113    %t 1 $SASL($network).timeout noop $mSASL($cid, $network).timeout  113{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
114  }  114QUICKLEAK PASTEBIN ARCHIVE WITHOUT SPAM
115}  115 
116raw CAP:& ACK *:{  116QUICKLEAK-PDF-JUNE-2015.rar | RAR | 321.7MB
117  if ($network isin $SASL($network).nlist) {  117https://mega.co.nz/#!cQVAiSQT!eDuA7hwAGaUGgkk_HWiIgfxtvc1Phk7X7Nu9JWQ9rKo
118    .raw AUTHENTICATE $SASL($network).authtype  118 
119    sd $network STATUS Authenticating  119QUICKLEAK-PDF-JUNE-2015.zip | ZIP | 360.9MB
120  }  120https://mega.co.nz/#!FVtjmTDS!SgCvi_1BPQrY8kOGBq1BOKJ3jIcBNzEPpzYFT4bgE-g
121}  121{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
122raw AUTHENTICATE:+:{  122{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
123  if ($network isin $SASL($network).nlist) {  123FREE Operating Systems (THE LINUX CAVE No. 0x1):
124    if ($lower($SASL($network).authtype) == plain) {  124 
125      var %p = $SASL($SASL($network).user, $SASL($network).passwd).plain, %e  125https://mega.co.nz/#F!nx40FbaD!EvMiNqWG3IwOqVk-IP_5cQ
126      while ($len(%p) >= 400) {  126 
127        var %e = $left(%p, 400), %p = $mid(%p, 401, 0)  127FREE Operating Systems (THE LINUX CAVE No. 0x2):
128        .raw AUTHENTICATE %e  128 
129      }  129https://mega.co.nz/#F!k8FwnbjZ!mbYUgb47Oh5xS4Z6HoInqw
130      if ($len(%p)) { .raw AUTHENTICATE %p }  130 
131      else { .raw AUTHENTICATE + }  131FREE Operating Systems (THE LINUX CAVE No. 0x3):
132    }  132 
133    else { .raw CAP END }  133https://mega.co.nz/#F!I1gyTJiL!FYsNjf5OqXGBNr7IfgQIgQ
134    haltdef  134 
135  }  135FREE Operating Systems (THE LINUX CAVE No. 0x4):
136}  136 
137raw *:*:{  137https://mega.co.nz/#F!oIkjQKxT!l5QeS1T9QvSfgDf6WSUThg
138  if ($network isin $SASL($network).nlist) {  138{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
139    if ($numeric isnum 903) {  139{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
140      .raw CAP END  140Censorship Resistant Software
141      sd $network STATUS Authenticated  141(Full Updated Archives | ZIPPED | 15.7GB)
142      var %t = $mSASL($cid, $network).timer  142 
143      %t off  143https://mega.co.nz/#F!kJw0jZZb!qDpY2xGsWjsgbEv8toWAQQ
144    }  144 
145    elseif ($numeric isnum 904-907) { .raw CAP END }  145Censorship Resistant Software.tar.gz
146    elseif ($numeric isnum 433) {  146(All Archives | TARBALL / GZIP | 14.66GB)
147      if ($istokcs(Connecting Authenticating Authenticated, $SASL($network).status, 32)) {  147 
148        var %nick_temp = $me $+ _ $+ $rand(a, z)  148https://mega.co.nz/#!gdI03CDK!YnLiP4cUdLPa__62TG5LwEP1zoAEndvOyBxD1eLlWIE
149        echo -setc Info * SASL: Nickname is already in use. Falling back to %nick_temp  149{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
150        .raw NICK %nick_temp  150{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
151        .raw USER $SASL($network).user $SASL($network).domain $server : $+ $SASL($network).realname  151»BACKUP FULL WEBSITES WITH THE TELEPORT«
152        haltdef  152 
153      }  153 Teleport_Pro_Bundle.zip includes ; Teleport Pro (a decent spider
154    }  154but the limit is 60,000 files each), Teleport Ultra (unlimited use)
155  }  155and Teleport VLX (to spider both http and https - unlimited use)
156}  156 
157  157 Download a bundle from one of the following mirrors, get started
158dialog SASL.main {  158and please remember, share any news websites you collect!
159  title "SASL Manager"  159 
160  size -1 -1 150 145  160http://www.fileshare.ro/e31248097
161  option dbu  161http://www.filesbomb.in/ct9y7xspd85c
162  box "Server List" 1, 5 3 140 113  162http://uploadhero.co/dl/f9c55b85
163  text "Created by Kyle Travaglini" 3, 40 135 65 12  163http://uploadrocket.net/wxp9t0n5wlf5/Teleport_Pro_Bundle.zip.html
164  list 4, 10 13 80 104, vsbar, edit  164http://www.usbupload.com/23109_TeleportProBundlezip.usb
165  button "Add Entry" 5, 96 13 43 12  165http://www.boxca.com/t086xbywvddd/Teleport_Pro_Bundle.zip.html
166  button "Edit Entry" 6, 96 30 43 12  166http://www.up4s.com/c5yn6c1jsb50/Teleport_Pro_Bundle.zip.html
167  button "Delete Entry" 7, 96 47 43 12  167http://www.flootr.com/download.php?file=1761e8161bdd194341ffd9fb5177ac60
168  button "Save List" 10, 96 64 43 12  168{[¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜]}
169  button "Load List" 11, 96 81 43 12  169{[⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼⅜⅜¼¼]}
170  button "OK" 8, 27 120 43 12, ok  170________________________________________
171  button "Update SASL" 9, 77 120 43 12  171Operation KILLCEN @ 8chan (Infinite Chan) »
172}  172 
173  173http://8ch.net/leaked/
174dialog SASL.edit {  174 
175  title "Network Configuration"  175http://8ch.net/killcen/
176  size -1 -1 200 120  176 
177  option dbu  177KILLCEN Archive 2013 - 2015 (Over 5,000,000 Reports) »
178  box "Network Settings" 1, 5 3 190 97  178 
179  text "Network:" 2, 10 13 36 10, right  179https://mega.co.nz/#F!u1NiRCgZ!oZJ7ujAU4RG6hKczsN8org
180  edit "" 3, 48 12 122 10  180 
181  text "Username:" 4, 10 25 36 10, right  181https://archive.org/details/OperationKILLCENKillCensorship
182  edit "" 5, 48 24 122 10  182 
183  text "NS Password:" 6, 10 37 36 10, right  183Recent KILLCEN News Website Dumps »
184  edit "" 7, 48 36 122 10  184 
185  text "Domain:" 8, 10 49 36 10, right  185NOW HERE  https://archive.is/paste.yt
186  edit "" 9, 48 48 122 10  186AND HERE  http://slexy.org/
187  text "Real Name:" 10, 10 61 36 10, right  187AND HERE  http://panicb.in/all/
188  edit "" 11, 48 60 122 10  188AND HERE  http://paste.oneb1t.cz/
189  text "Timeout:" 12, 10 73 36 10, right  189AND HERE  http://paste.headstrong.de/
190  edit "" 13, 48 72 122 10  190AND HERE  http://pasteguru.com/
191  text "AuthType:" 14, 10 85 36 10, right  191AND HERE  http://pastebin.furver.se/
192  edit "" 15, 48 84 122 10  192AND HERE  http://t.urlb.ag/
193  button "OK" 16, 57 105 43 12, ok  193AND HERE  http://paste.security-portal.cz/lists
194  button "Cancel" 17, 107 105 43 12, cancel  194AND HERE  http://paste.jabbim.cz/
195}  195¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
196    
197dialog SASL.deletewarn {    
198  title "SASL"    
199  size -1 -1 120 40    
200  option dbu    
201  text "You must specify a network to delete." 1, 13 5 100 10    
202  button "OK" 2, 40 20 43 12, ok    
203}    
204    
205dialog SASL.editwarn {    
206  title "SASL"    
207  size -1 -1 120 40    
208  option dbu    
209  text "You must specify a network to edit." 1, 13 5 100 10    
210  button "OK" 2, 40 20 43 12, ok    
211}    
212    
213on *:DIALOG:SASL.*:*:*:{    
214  if ($dname == SASL.main) {    
215    if ($devent == init) {    
216      did -r $dname 3    
217      did -a $dname 3 Created by Kyle Travaglini    
218      didtok $dname 4 44 $SASL($network).nlist    
219      ;// disable 'Update SASL' button    
220      did -b $dname 9    
221    }    
222    if ($devent == sclick) {    
223      if ($did == 5) {    
224        if ($hget($shname, EDIT) == True) {    
225          hdel $shname EDIT    
226          hdel $shname EDITn    
227        }    
228        dialog -m SASL.edit SASL.edit    
229      }    
230      elseif ($did == 6) {    
231        if ($did($dname, 4).seltext) {    
232          hadd -m $shname EDIT True    
233          hadd -m $shname EDITn $did($dname, 4).seltext    
234          dialog -m SASL.edit SASL.edit    
235        }    
236        else { dialog -m SASL.editwarn SASL.editwarn }    
237      }    
238      elseif ($did == 7) {    
239        if ($did($dname, 4).sel) {    
240          if ($?!="Are you certain you wish to delete $did($dname, 4).seltext $+ ?") {    
241            hdel -w $shname $+($did($dname, 4).seltext, :*)    
242            hadd -m $shname NLIST $remtok($SASL($network).nlist, $did($dname, 4).seltext, 1, 44)    
243            did -d $dname 4 $did($dname, 4).sel    
244          }    
245        }    
246        else { dialog -m SASL.deletewarn SASL.deletewarn }    
247      }    
248      elseif ($did == 9) { usasl }    
249      elseif ($did == 10) {    
250        if (($hget($shname)) && ($hget($shname,0).item > 0)) { hsave $shname $shfile }    
251      }    
252      elseif ($did == 11) {    
253        if ($exists($shfile)) {    
254          if (!$hget($shname)) { hmake $shname 50 }    
255          hload $shname $shfile    
256          did -r $dname 4    
257          didtok $dname 4 44 $SASL($network).nlist    
258        }    
259        else {    
260          .echo -q $input(No file to load, ohu)    
261        }    
262      }    
263    }    
264  }    
265  elseif ($dname == SASL.edit) {    
266    if ($devent == init) {    
267      if ($hget($shname, EDIT) == True) {    
268        var %network = $did(SASL.main, 4).seltext    
269        did -a $dname 3 %network    
270        did -a $dname 5 $SASL(%network).user    
271        did -a $dname 7 $SASL(%network).passwd    
272        did -a $dname 9 $SASL(%network).domain    
273        did -a $dname 11 $SASL(%network).realname    
274        did -a $dname 13 $SASL(%network).timeout    
275        did -a $dname 15 $SASL(%network).authtype    
276      }    
277    }    
278    if ($devent == sclick) {    
279      if ($did == 16) {    
280        var %network = $did($dname, 3), %user = $did($dname, 5), %passwd = $did($dname, 7)    
281        if ((!%network) || (%network == network name needed)) {    
282          if (!%network) { did -a $dname 3 network name needed }    
283          halt    
284        }    
285        if ((!%user) || (%user == username name needed)) {    
286          if (!%user) { did -a $dname 5 username name needed }    
287          halt    
288        }    
289        if ((!%passwd) || (%passwd == password name needed)) {    
290          if (!%passwd) { did -a $dname 7 password name needed }    
291          halt    
292        }    
293        if ($hget($shname, EDIT) == True) { hadd -m $shname NLIST $remtok($SASL($network).nlist, %network, 1, 44) }    
294        else {    
295          if ($findtok($SASL($network).nlist, %network, 1, 44)) {    
296            if ($?!=" $+ %network already exists; overwrite?") {    
297              hadd -m $shname NLIST $remtok($SASL($network).nlist, %network, 1, 44)    
298            }    
299            else { halt }    
300          }    
301        }    
302        if ($hget($shname, EDIT) == True) && ($hget($shname, EDITn) != %network) {    
303          if ($?!="rename $hget($shname, EDITn) to %network $+ ?") {    
304            hdel -w $shname $+($hget($shname, EDITn), :*)    
305            hadd -m $shname NLIST $remtok($SASL($network).nlist, $hget($shname, EDITn), 1, 44)    
306          }    
307          else { halt }    
308        }    
309        hdel $shname EDIT    
310        hdel $shname EDITn    
311        hadd -m $shname NLIST $+($SASL($network).nlist, $chr(44), %network)    
312        sd %network USER $did($dname, 5)    
313        sd %network PASSWD $did($dname, 7)    
314        sd %network DOMAIN $iif($did($dname, 9), $v1, 0)    
315        sd %network REALNAME $iif($did($dname, 11), $v1, $iif($fullname, $v1, *))    
316        sd %network TIMEOUT $iif($did($dname, 13), $v1, 30)    
317        sd %network AUTHTYPE $iif($did($dname, 15), $upper($v1), PLAIN)    
318        did -r SASL.main 4    
319        didtok SASL.main 4 44 $SASL($network).nlist    
320      }    
321    }    
322  }    
323}    
324;;