Net::IEC104 - Perl implementation of IEC 60870-5-104 standard (server and client)
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;
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.
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
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() )
None by default.
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();
Idea and design of implementation of library based on OpenMRTS project (http://sourceforge.net/projects/mrts/) written by Sitkarev Grigoriy.
Vladimir Lettiev, <thecrux@gmail.com>
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.
To install Net::IEC104, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::IEC104
CPAN shell
perl -MCPAN -e shell install Net::IEC104
For more information on module installation, please visit the detailed CPAN module installation guide.