Project

General

Profile

Sockudp » History » Version 3

Per Amundsen, 12/23/2021 05:49 AM

1 1 Per Amundsen
_Added in 2.3_
2
3 3 Per Amundsen
*/sockudp [-bntkdu] [bindip] <name> [port] <ipaddress> <port> [numbytes] [text|%var|&binvar]*
4 1 Per Amundsen
5
Opens a UDP connection to a remote ipaddress/port and sends a UDP packet.
6
7
*Switches*
8
9
-b - Indicates that you are specifying the numbytes value which is the number of bytes you want sent.
10
-n - Appends a [[$crlf]] to the line being sent if it is not a &binvar and if it does not already have a [[$crlf]].
11
-t - Forces AdiIRC to send anything beginning with a *&* as normal text instead of interpreting it as a binary variable.
12
-k - Forces the socket to stay open, so it can receive UDP data.
13
-d - The specified IP address is the bind ip address.
14 3 Per Amundsen
-u - Enables "dual stack sockets":https://docs.microsoft.com/en-us/windows/win32/winsock/dual-stack-sockets.
15 1 Per Amundsen
16
*Parameters*
17
18
[bindip] - Bind ip to be used.
19
&lt;name&gt; - Socket connection name.
20
[port] - Bind port to be used.
21
<ipaddress> - Remote ipaddress to connect to.
22
<port> - Remote port to connect to.
23
[numbytes] - Number of bytes to send. (used with -b)
24 2 Per Amundsen
[text|%var|&binvar] - Text, %variable or &binvar to send.
25
26
*Example*
27
28
<pre>
29
alias gettime {
30
  ; Set a NULL byte binary variable.
31
  bset &null 1 0
32
33
  ; Open a UDP connection to Time-a.nist.gov = 129.6.15.28
34
  sockudp -k gettime 129.6.15.28 37 &null
35
}
36
37
on *:udpread:gettime: {
38
39
  ; Read the reply.
40
  sockread -f &time
41
42
  var %time $bvar(&time,1,$bvar(&time,0))
43
 
44
  ; Convert to binary, remove spaces.
45
  var %bin $regsubex(%time, /(\d+)\s?/g, $base(\1, 10, 2, 8))
46
 
47
  ; Get the current unix time in decimal system.
48
  var %time = $base(%bin, 2, 10)
49
 
50
  ; Print the time and close the socket.
51
  echo -ag Currnt Time/Date: $asctime($calc(%time - 2208988800), yyyy-mm-dd hh:nn:ss TT)
52
  sockclose $sockname
53
}
54
</pre>