changed perldoc, mt

diff --git a/libtrbnet_perl/lib/HADES/TrbNet.pm b/libtrbnet_perl/lib/HADES/TrbNet.pm
index 68377fa16993e4beb0c223ac53cb2112a0341df1..34b2bc605eab8815e42f228cdf4d754b96318794 100644 (file)
--- a/libtrbnet_perl/lib/HADES/TrbNet.pm
+++ b/libtrbnet_perl/lib/HADES/TrbNet.pm
@@ -64,7 +64,7 @@ sub trb_read_uid {
        my $uid = ($res[$k] << 32) | $res[$k + 1];
        my $endP = $res[$k + 2];
        my $sender =  $res[$k + 3];
-       
+
        $rh->{$uid}->{'trb_address'} = $sender;
        $rh->{$uid}->{'trb_endpoint'} = $endP;
     }
@@ -86,23 +86,25 @@ HADES::TrbNet - Perl extension for the libtrbnet library, also via RPC calls
  #!/usr/bin/perl
  use warnings; 
  use strict;
- use HADES::TrbNet qw(trb_rr trb_wr init_ports trb_strerror);
+ use HADES::TrbNet;
 
- my $connect_status = &init_ports();
- my @res; my $res;
+ my $connect_status = &trb_init_ports();
+ my @res; my $res; my $rh_res;
  # read from TrbNet
- $res = trb_rr(0x3,0xa0e3);
- if(!defined $res) {
+ $rh_res = trb_register_read(0x3,0xa0e3);
+ if(!defined $rh_res) {
     $res = trb_strerror();
     print "error output: $res\n";
     exit();
  }
  else {
-    printf("0x%08x\n", $res);
+    printf("0x%08x\n", $rh_res->{0x3});
  }
 
+
+
  # write to TrbNet
- $res = trb_wr(0x03, 0xa0e3, 0x12);
+ $res = trb_register_write(0x03, 0xa0e3, 0x12);
  if(!defined $res) {
     $res = trb_strerror();
     print "error output: $res\n";