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:
'); } }