NAME
    Device::WS2000::IO - Perl extension for reading data from the ELV
    Weatherstation WS2000 PC

SYNOPSIS
      use Device::WS2000::IO qw (:all);
      $ok=open_ws("ttyS0");
      send_ws($command,$parameter);
      @buffer = read_ws();
      close_ws();

DESCRIPTION
    This module contains lowlevel-routines for the communication with the
    ELV Weatherstation WS2000 PC connected to a serial port.

    Following functions are implemented:

    open_ws ($port) opens the serial port and checks initial response,
    returns 1 on success, 0 on failure

    send_ws ($cmd,$par) send a command to the WS2000 Legal commands are: 0
    read DCF-Time 1 read one datablock 2 next datablock 3 nine sensors 4 16
    sensors 5 get status 6 uses parameter: set poll interval 1 - 60 minutes

    read_ws read response from WS2000 returns read buffer length is checked
    envelope is removed checksum is not yet checked (blame on me)

    close_ws closes the serial port

  EXPORT

    None by default.

    Tag :all open_ws close_ws send_ws read_ws

SEE ALSO
    perl(1).

Thanks
    My thanks go out to Friedrich Zabel for the C-Code used for the
    low-level functions, taken from his project wx2000 at
    http://wx2000.sourceforge.net/

    To the opensource comunity in general which time and again show that
    sharing / modifying code and returning it to all users actualy works.

AUTHOR
    Michael B�ker <mmbk@cpan.org>

Copyright
    Copyright (c) 2002 by Michael B�ker. All rights reserved. This program
    is free software; you can redistribute it and/or modify it under the
    same terms as Perl itself.