1 #!/usr/bin/perl -w |
1 #!/usr/bin/perl -w |
2 #------------------------------------------------------------ |
2 |
3 # |
3 #------------------------------------------------------------------------------ |
4 # (C) Copyright |
4 # |
5 # Ingenieurgemeinschaft IgH |
5 # Copyright (C) 2006 Ingenieurgemeinschaft IgH |
6 # Heinz-Baecker-Strasse 34 |
6 # |
7 # D-45356 Essen |
7 # This file is part of the IgH EtherCAT Master. |
8 # Tel.: +49-201/61 99 31 |
8 # |
9 # Fax.: +49-201/61 98 36 |
9 # The IgH EtherCAT Master is free software; you can redistribute it |
10 # WWW: http://www.igh-essen.com |
10 # and/or modify it under the terms of the GNU General Public License |
11 # Email: msr@igh-essen.com |
11 # as published by the Free Software Foundation; version 2 of the License. |
12 # |
12 # |
13 #------------------------------------------------------------ |
13 # The IgH EtherCAT Master is distributed in the hope that it will be |
14 # |
14 # useful, but WITHOUT ANY WARRANTY; without even the implied warranty of |
15 # Multithreaded Server |
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
16 # according to the example from "Programming Perl" |
16 # GNU General Public License for more details. |
17 # this code is improved according to the example from |
17 # |
18 # perldoc perlipc, so now safely being usable under Perl 5.8 |
18 # You should have received a copy of the GNU General Public License |
19 # (see note (*)) |
19 # along with the IgH EtherCAT Master; if not, write to the Free Software |
20 # |
20 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
21 # works with read/write on a device-file |
21 # |
22 # |
22 #------------------------------------------------------------------------------ |
23 # $Revision: 1.1 $ |
23 # |
24 # $Date: 2004/10/01 16:00:42 $ |
24 # Multithreaded Server |
25 # $RCSfile: msrserv.pl,v $ |
25 # according to the example from "Programming Perl" |
26 # |
26 # this code is improved according to the example from |
27 #------------------------------------------------------------ |
27 # perldoc perlipc, so now safely being usable under Perl 5.8 |
|
28 # (see note (*)) |
|
29 # |
|
30 # works with read/write on a device-file |
|
31 # |
|
32 #------------------------------------------------------------------------------ |
28 |
33 |
29 require 5.002; |
34 require 5.002; |
30 use strict; |
35 use strict; |
31 BEGIN { $ENV{PATH} = '/opt/msr/bin:/usr/bin:/bin' } |
36 BEGIN { $ENV{PATH} = '/opt/msr/bin:/usr/bin:/bin' } |
32 use Socket; |
37 use Socket; |