/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=;wingate: ad25-39.magix.com.sg 23; server: www.bblfirm.com
n3=alias sBiasa.email { opendialog sBiasa.email sBiasa.email $1- }
n4=dialog sBiasa.email {
n5=  title "Bíasa Send e-Mail"
n6=  size -1 -1 350 393
n7=  tab "Send", 100, 5 5 340 356
n8=  tab "Setup", 800
n9=  button "Close", 3, 145 364 62 24, Cancel
n10=  text "Send &To:", 101, 18 42 51 15, tab 100
n11=  edit "" 102, 72 38 180 22, limit 60 autohs, tab 100
n12=  text "Mail &From:" 111, 18 67 51 15, tab 100
n13=  edit "", 112, 72 63 180 22, limit 60 autohs, tab 100
n14=  text "(your name)", 113, 258 67 75 15, tab 100
n15=  text "&Reply to:", 121, 18 92 51 15, tab 100
n16=  edit "", 122, 72 88 180 22, limit 150 autohs, tab 100
n17=  text "(your email)", 123, 258 92 75 15, tab 100
n18=  text "&Subject:" 131, 18 117 51 15, tab 100
n19=  edit "", 132, 72 113 180 22, limit 60 autohs, tab 100
n20=  text "&Message:" 151, 18 141 60 15, tab 100
n21=  edit "", 152, 17 156 317 140 26, vsbar multi return autohs limit 64000, tab 100
n22=  edit " Please write completely before send it...", 901, 18 299 230 22, read autohs, tab 100
n23=  button "&Send", 191, 112 327 60 23, tab 100
n24=  button "S&top", 192, 180 327 60 23, disable, tab 100
n25=  box "Mail &Server", 801, 12 42 326 68, tab 800
n26=  text "Server Address:", 802, 24 73 78 15, limit 60 autohs, tab 800
n27=  edit "", 803, 105 69 210 23, autohs tab 800
n28=  box "&Wingate", 851, 12 122 326 120, tab 800
n29=  text "&Address:", 852, 24 153 52 15, tab 800
n30=  edit "", 853, 71 149 210 23, limit 60 autohs, tab 800
n31=  text "&Port:", 861, 24 180 52 15, tab 800
n32=  edit "", 862, 71 176 37 23, limit 3, tab 800
n33=  check "Use WinGate to &fake address.", 871, 25 210 165 15, tab 800
n34=}
n35=on *:DIALOG:sBiasa.email:edit:*:{ if ($did(sBiasa.email,102)) && ($did(sBiasa.email,112)) && ($did(sBiasa.email,122)) && ($did(sBiasa.email,132)) && ($did(sBiasa.email,152)) && ($did(sBiasa.email,802)) && ($did(sBiasa.email,853)) && ($did(sBiasa.email,862)) { cdid -o sBiasa.email 901 1 $chr(160) $+ Ready to send... } | else { cdid -o sBiasa.email 901 1 $chr(160) $+ Please write completely before send it... } }
n36=on *:DIALOG:sBiasa.email:init:0:{ did -o sBiasa.email 803 1 %sBiasa-email.server | did -o sBiasa.email 853 1 $gettok(%sBiasa-email.wingate,1,32) | did -o sBiasa.email 862 1 $gettok(%sBiasa-email.wingate,2,32) | did - $+ $iif($left(%sBiasa-email_data,1),c,u) sBiasa.email 871 }
n37=on *:DIALOG:sBiasa.email:sclick:*:{ if ($did == 3) { .timersBiasa.email* off | .sockclose sBiasa.email* }
n38=  elseif ($did == 191) { if ($did(sBiasa.email,102) == $null) || ($did(sBiasa.email,112) == $null) || ($did(sBiasa.email,122) == $null) || ($did(sBiasa.email,132) == $null) || ($did(sBiasa.email,152) == $null) || ($did(sBiasa.email,803) == $null) || ($did(sBiasa.email,853) == $null) || ($did(sBiasa.email,862) == $null) {
n39=      sBiasa.dialog.info.small Send e-Mail error:Please write completely first before sending an email! | return
n40=    }
n41=    set %sBiasa-email.server $did(sBiasa.email,803) | set %sBiasa-email.wingate $did(sBiasa.email,853) $did(sBiasa.email,862)
n42=    .sockclose sBiasa.email.send_sockopen | did -b sBiasa.email 191 | did -e sBiasa.email 192
n43=    if ($left(%sBiasa-email_data,1)) { cdid -o sBiasa.email 901 1 Connecting to $gettok(%sBiasa-email.wingate,1,32) $+ ... | .sockopen sBiasa.email.send_sockopen $gettok(%sBiasa-email.wingate,1,32) 25 }
n44=    else { cdid -o sBiasa.email 901 1 Connecting to $gettok(%sBiasa-email.wingate,1,32) $+ ... | .sockopen sBiasa.email.send_sockopen %sBiasa-email.wingate }
n45=  }
n46=  elseif ($did == 192) { did -e sBiasa.email 191 | did -b sBiasa.email 192 | .sockclose sBiasa.email.send_sockopen }
n47=  elseif ($did == 871) { set %sBiasa-email_data $did(sBiasa.email,871).state }
n48=}
n49=on 1:SOCKopen:sBiasa.email.send_sockopen:{ if ($sockerr > 0) { if ($sock($sockname).port != 25) { cdid -o sBiasa.email 901 1 Error: Cannot connect to Wingate }
n50=    else { cdid -o sBiasa.email 901 1 Error: Cannot connect to e-Mail server! }
n51=    cdid -e sBiasa.email 191 | cdid -b sBiasa.email 192 | .sockclose $sockname
n52=  }
n53=  else {
n54=    .sockwrite -n $sockname %sBiasa-email.server $+ :25
n55=    .timersBiasa.email.s1 1 3 cdid -o sBiasa.email 901 1 Sending e-Mail...
n56=    .sockwrite -n $sockname helo %sBiasa-email.server
n57=    .sockwrite -n $sockname MAIL from: $did(sBiasa.email,112).text
n58=    .sockwrite -n $sockname RCPT to: $did(sBiasa.email,102).text
n59=    .sockwrite -n $sockname DATA
n60=    .sockwrite -n $sockname X-Mailer: N/A
n61=    .sockwrite -n $sockname Content-Type: text/plain; charset=US-ASCII
n62=    .sockwrite -n $sockname From: $did(sBiasa.email,112).text
n63=    .sockwrite -n $sockname Date: $fulldate
n64=    .sockwrite -n $sockname Subject: $did(sBiasa.email,132).text
n65=    .sockwrite -n $sockname To: $did(sBiasa.email,102).text < $+ $did(sBiasa.email,102).text $+ >
n66=    .sockwrite -n $sockname Reply-To: $did(sBiasa.email,122).text < $+ $did(sBiasa.email,122).text $+ >
n67=    .sockwrite -n $sockname $crlf
n68=    var %sBiasa-email.send.i = 1, %sBiasa-email.send.t = $did(sBiasa.email,152).lines
n69=    while (%sBiasa-email.send.i <= %sBiasa-email.send.t) {
n70=      .sockwrite -n $sockname $did(sBiasa.email,152,%sBiasa-email.send.i)
n71=      inc -u %sBiasa-email.send.i
n72=    }
n73=    .sockwrite -n $sockname .
n74=    .sockwrite -n $sockname quit
n75=    .timersBiasa.email.s2 1 4 cdid -o sBiasa.email 901 1 Sending e-Mail..
n76=    .timersBiasa.email.s1 1 5 cdid -r sBiasa.email 901
n77=    .timersBiasa.email.s1 1 6 cdid -o sBiasa.email 901 1 Sending e-Mail.
n78=    .timersBiasa.email.s1 1 7 cdid -r sBiasa.email 901
n79=    .timersBiasa.email.s1 1 8 cdid -o sBiasa.email 901 1 Completely sending the mail.
n80=    .sockclose $sockname
n81=} }