#!/usr/local/bin/php -n
<?php

  # 'echo' is some weird magic related to PHP implementation of passthru
  $file = "echo '' | /usr/local/directadmin/plugins/comodo_waf/admin/cwaf_catalog.pl 2>&1";
  ob_start();
  passthru($file);
  $perlreturn = ob_get_contents();
  ob_end_clean();

  # parse Perl script output by replacing Status by HTTP status header
  $pos = strpos($perlreturn, "Status:");
  if ($pos == 0) {
      $perlreturn = substr_replace($perlreturn, "HTTP/1.1", $pos, strlen("Status:"));
  }
  print "$perlreturn\n";

?>