home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SATAN11.ZIP / PERL / INFER_TO.PL < prev    next >
Text File  |  1995-04-11  |  3KB  |  98 lines
  1. #
  2. # Usage: &infer_todo()
  3. # 
  4. # Applies rules in $infer_todo_files to the global $target..$text
  5. # variables (and to all other globals that are available) and
  6. # generates new probes for the data collection engine.
  7. # 
  8. # Standalone usage: perl infer_todo.pl [satan_record_files...]
  9. #
  10. # version 1, Tue Mar 21 20:25:31 1995, last mod by wietse
  11. #
  12.  
  13. $infer_todo_files = "rules/todo";
  14.  
  15. sub build_infer_todo{
  16.     local($files) = @_;
  17.     local($cond, $todo, $func, $host, $tool, $args, $args1, $args2);
  18.  
  19.     $code = "sub infer_todo {\n";
  20.     $code .= "    local(\$junk);\n";
  21.  
  22.     foreach $file (split(/\s+/, $files)) {
  23.     open(RULES, $file) || die "cannot open $file: $!";
  24.     while (<RULES>) {
  25.         chop;
  26.         while (/\\$/) {
  27.         chop;
  28.         $_ .= <RULES>;
  29.         chop;
  30.         }
  31.         s/#.*$//;
  32.         next if /^\s*$/;
  33.         s/@/\\@/g;
  34.         ($cond, $todo) = split(/\t+/, $_, 2);
  35.         ($host, $tool, $args) = split(/\s+/, $todo, 3);
  36.         $host ne "" || die "no host in $file: cond=$cond, todo=$todo\n";
  37.         $tool ne "" || die "no tool in $file: cond=$cond, todo=$todo\n";
  38.         if ($args =~ /\*\s*(.+)/) {
  39.         $func = "add_todo_ignore_args";
  40.         $args = $1;
  41.         } else {
  42.         $func = "add_todo";
  43.         }
  44.         $code .= "\tif ($cond) {\n\t\t&$func($host,$tool";
  45.         ($args ne "") && ($code .= ",$args");
  46.         $code .= ");\n\t}\n";
  47.     }
  48.     close(RULES);
  49.     }
  50.     $code .= "\n}\n";
  51.     return $code;
  52. }
  53.  
  54. #
  55. # Some scaffolding for stand-alone operation
  56. #
  57. if ($running_under_satan) {
  58.     eval &build_infer_todo($infer_todo_files);
  59.     die "error in $infer_todo_files: $@" if $@;
  60. } else {
  61.     $running_under_satan = -1;
  62.  
  63.     require 'perl/misc.pl';
  64.     require 'perl/fix_hostname.pl';
  65.  
  66.     warn "infer_todo.pl running in test mode";
  67.  
  68.     eval "sub add_todo { local(\$target,\$tool,\$args) = \@_;
  69.     print \"add_todo: \$target \$tool \$args\\n\"; }\n";
  70.  
  71.     eval "sub add_todo_ignore_args { local(\$target,\$tool,\$args) = \@_;
  72.     print \"add_todo_ignore_args: \$target \$tool \$args\\n\"; }\n";
  73.  
  74.     #
  75.     # Build satan rules and include them into the running code.
  76.     #
  77.     $code = &build_infer_todo($infer_todo_files);
  78.     print "Code generated from $infer_todo_files:\n\n";
  79.     print $code;
  80.     eval $code;
  81.     die "error in $infer_todo_files: $@" if $@;
  82.  
  83.     #
  84.     # Apply rules.
  85.     #
  86.     print "\nApplying rules to all SATAN records...\n";
  87.     while (<>) {
  88.     chop;
  89.     if (&satan_split($_)) {
  90.         warn "Ill-formed record: $_\n";
  91.     } else {
  92.         &infer_todo();
  93.     }
  94.     }
  95. }
  96.  
  97. 1;
  98.