#! /usr/bin/perl
# PODNAME: tapper-mcp-messagereceiver-daemon (hypnotoad)
# ABSTRACT: daemon for Tapper::MCP::MessageReceiver
(my $msgreceiver = $0) =~ s!/tapper-mcp-messagereceiver-daemon!/tapper-mcp-messagereceiver!;
(my $hypnotoad = $^X) =~ s!/perl[\d.]*$!/hypnotoad!;
use 5.010;
use strict;
use warnings;
if ($ARGV[0] eq 'start') {
system($hypnotoad, $msgreceiver);
}
elsif ($ARGV[0] eq 'stop') {
system($hypnotoad, '--stop', $msgreceiver);
}
__END__
=pod
=encoding utf-8
=head1 NAME
tapper-mcp-messagereceiver-daemon (hypnotoad) - daemon for Tapper::MCP::MessageReceiver
=head1 AUTHOR
AMD OSRC Tapper Team <tapper@amd64.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 by Advanced Micro Devices, Inc..
This is free software, licensed under:
The (two-clause) FreeBSD License
=cut