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.

cpanm Net::IEC104

perl -MCPAN -e shell
install Net::IEC104