NAME
Net::IEC104 - Perl implementation of IEC 60870-5-104 standard (server and client)
SYNOPSIS
use Net::IEC104;
use Time::HiRes;
sub send_all_data {
my $self = shift;
my %DATA = (TI=>{},TS=>{},TII=>{});
$DATA{TI}->{1} = [12.34,gettimeofday]; # Tele Information (real value of physical measurement)
$DATA{TS}->{2} = [0,gettimeofday]; # Tele Signalization (boolean value)
$DATA{TII}->{3} = [34567,gettimeofday]; # Tele Information Integral (32-bit counter)
return %DATA;
}
my $srvr_sock = Net::IEC104->new(
type=>"slave",
ip=>"127.0.0.1",
port=>"2404",
write_callback=>\&send_all_data
);
$srvr_sock->listen;
Net::IEC104::main_loop;
DESCRIPTION
This module implement IEC 60870-5-104 standard (also known as IEC 870-5-104). IEC 870-5-104 is a network access for IEC 60870-5-101 using standard transport profiles (TCP/IP), its application layer is based on IEC 60870-5-101. IEC 60870-5-104 enables communication between control station and substation via a standard TCP/IP network. The TCP protocol is used for connection-oriented secure data transmission.
Current implementation supports only ASDU NN 30,35,36,37,100,103. Its enough for now.
CONSTRUCTOR
Net::IEC104->new(...) accept following variables:
* type - type of station, must be one of "slave" (controlled station) or "master" (control station). Default "slave"
* ip - ip address to listen on (for slave) or connect to (for master). Default "0.0.0.0"
* port - port of connection. Default 2404
* ca - common address. Default 1
* write_callback - (slave only) ref to callback function, that returns a list with two vars: reference to class and hash with data. Hash format is as following: %HASH = ("TI" => { address=>[value,timestamp,microseconds], ... },"TS" => { address=>[value,timestamp,microseconds], ... },"TII" => { address=>[value,timestamp,microseconds], ... }); This function called when slave receive common interogation request from master (ASDU=100).
* read_callback - (master only) ref to callback function, that receive a list (same format as for write_callback)
* w - W constant (default 8)
* k - K constant (default 12)
* ts_func_num - (slave only) ASDU number used for TS data, default 30. If 0 - TS never send
* ti_func_num - (slave only) ASDU number used for TI data, default 36. If 0 - TI never send
* tii_func_num - (slave only) ASDU number used for TII data, default 37. If 0 - TII never send
* t0 - t0 timeout constant (30 sec)
* t1 - t1 timeout constant (15 sec)
* t2 - t2 timeout constant (10 sec)
* t3 - t3 timeout constant (20 sec)
* persist - (master only) 0 - do not reconnect after disconection, 1 - reconnect after disconnection
METHODS
connect() - master only method. Connect to slave. After succeful connection, its activate transmission (STARTDT) and send common interogation request to slave (ASDU=100).
listen() - slave only method. Start listen for masters connections.
send(CA,%HASH) - slave only method. Send spontaneous data to all masters connected to server with common address CA. %HASH format same as for write_callback function.
main_loop() - start event cycle. ( stub that call Lib::Event::even_mainloop() )
EXPORT
None by default.
EXAMPLES
client
use Net::IEC104;
# Print to stdout all received data;
sub take_data_cb {
my $self = shift;
my %hash = @_;
foreach my $key (keys %hash) {
print $key,"\n";
foreach my $addr (keys %{$hash{$key}}) {
print "\t";
print "address:\t", $addr, "\n\t";
print "value:\t", $hash{$key}->{$addr}->[0], "\n\t";
print "seconds:\t", $hash{$key}->{$addr}->[1], "\n";
print "microseconds:\t", $hash{$key}->{$addr}->[2], "\n";
}
}
my $master = Net::IEC104->new(
type => "master",
ip => 127.0.0.1,
port => 2404,
ca => 1,
w => 8,
k => 12,
persist => 1,
read_callback => \&take_data_cb,
);
$master->connect();
Net::IEC104::main_loop();
SEE ALSO
Idea and design of implementation of library based on OpenMRTS project (http://sourceforge.net/projects/mrts/) written by Sitkarev Grigoriy.
AUTHOR
Vladimir Lettiev, <thecrux@gmail.com>
COPYRIGHT AND LICENSE
Copyright (C) 2008-2011 by Vladimir Lettiev
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.