diff --git a/webtools/PLIF/PLIF/Service/GenericOutputs.pm b/webtools/PLIF/PLIF/Service/GenericOutputs.pm
index 8e672a1b444..c8f0e6df831 100644
--- a/webtools/PLIF/PLIF/Service/GenericOutputs.pm
+++ b/webtools/PLIF/PLIF/Service/GenericOutputs.pm
@@ -42,6 +42,13 @@ sub provides {
$class->SUPER::provides($service));
}
+# dispatcher.output.generic
+sub outputAcknowledge {
+ my $self = shift;
+ my($app, $output) = @_;
+ $output->output('acknowledge', {});
+}
+
# dispatcher.output.generic
# this is typically used by input devices
sub outputRequest {
@@ -66,6 +73,7 @@ sub outputReportFatalError {
# dispatcher.output
sub strings {
return (
+ 'acknowledge' => 'A blank output merely acknowledging that something happened',
'request' => 'A prompt for user input (only required for interactive protocols, namely stdout)',
'error' => 'The message given to the user when something goes horribly wrong',
);
@@ -79,13 +87,17 @@ sub getDefaultString {
$self->dump(9, 'Looks like an error occured, because the string \'error\' is being requested');
}
if ($protocol eq 'stdout') {
- if ($string eq 'request') {
+ if ($string eq 'acknowledge') {
+ return ('COSES', '1', 'Acknowledged.
');
+ } elsif ($string eq 'request') {
return ('COSES', '1', '\'\' (default: \'\', \'\')? ');
} elsif ($string eq 'error') {
return ('COSES', '1', 'Error:
');
- }
+ }
} elsif ($protocol eq 'http') {
- if ($string eq 'error') {
+ if ($string eq 'acknowledge') {
+ return ('COSES', '1', 'HTTP/1.1 200 OK
Content-Type: text/plain
Acknowledged.');
+ } elsif ($string eq 'error') {
return ('COSES', '1', 'HTTP/1.1 500 Internal Error
Content-Type: text/plain
Error:
');
}
}