From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

KVMUSER / EMDIS-ECS-0.44 / script / ecs_proc_msg 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
—
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
#!/usr/bin/perl -w
#
# Copyright (C) 2002-2016 National Marrow Donor Program. All rights reserved.
#
# For a description of this program, please refer to the POD documentation
# embedded at the bottom of the file (e.g. perldoc ecs_proc_msg).
use strict;
use vars qw($args $cmd);
# redirect STDERR to STDOUT
open STDERR, ">&STDOUT" or die "Unable to dup STDOUT: $!\n";
select STDERR; $| = 1;   # make unbuffered
select STDOUT; $| = 1;   # make unbuffered
# compose command
$cmd = $ENV{ADAPTER_CMD};
if($cmd =~ /\$\@/) {
    $args = join(' ',@ARGV);
    $cmd =~ s/\$\@/$args/;
}
for my $arg (1..9) {
    my $i = $arg - 1;
    $cmd =~ s/\$$arg/$ARGV[$i]/;
}
# execute command
if ( $^O =~ /MSWin32/ ) {
    # EXEC in Windows doesn't seem to react the same as in UNIX
    `$cmd`;
} else {
    exec $cmd;
    # the following should be unreachable code, never executed
    die "ecs_proc_msg: unable to execute command ($cmd): $!\n"; 
}
__END__
# embedded POD documentation
=head1 NAME
ecs_proc_msg - process FML message
=head1 SYNOPSIS
 ecs_proc_msg tmp/20030320_183247_1_0005_FYUh.msg.fml FR 12345
=head1 DESCRIPTION
Process FML file from regular ECS message.
=head1 RETURN VALUE
Returns a non-zero exit code if an error is encountered.
=head1 BUGS
Possibly.
=head1 SEE ALSO
EMDIS::ECS, ecs_scan_mail, ecs_proc_meta
=head1 AUTHOR
Joel Schneider <jschneid@nmdp.org>
=head1 COPYRIGHT AND LICENSE
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED 
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
Copyright (C) 2002-2016 National Marrow Donor Program. All rights reserved.
See LICENSE file for license details.
=head1 HISTORY
ECS, the EMDIS Communication System, was originally designed and
implemented by the ZKRD (http://www.zkrd.de/).  This Perl implementation
of ECS was developed by the National Marrow Donor Program
(http://www.marrow.org/).
2004-03-12      
Canadian Blood Services - Tony Wai
Added MS Windows support for Windows 2000 and Windows XP
Added "DIRECTORY" inBox Protocol. This can interface with any mail
system that can output the new messages to text files.