Help for this page

Select Code to Download

Select or download this

sub func1{
WriteTOLog($Arga,$Argb,$Argc,$Argd); }
...
  local ($var) = @_;
  # do its fike IO stuff
}

Select or download this

sub MyWriteToLog($,$,$,$){
  if ($FLAG eq 1) {
...
   #do nothing or other things;
  }
}