Subversion Repositories cms

<%perl>
</%perl>
<%args>
  $t => '5'
  $m => 'time stamp'
</%args>
<%init>
  my $message = $m;
  my $typemsg = $t;

  my $LOGfile = '[[log_message_error_path]][[log_message_error_filename]]';
  if(! $MAIN::log_cms){
    `echo 'opening from msg'>>[[log_message_error_path]][[log_message_error_filename]]`;
    $MAIN::log_cms = new IO::File;
    $MAIN::log_cms->open(">>$LOGfile") or die "Error opening file $LOGfile: $!";
    $MAIN::log_cms->autoflush(1);
  }

  print $MAIN::log_cms "$typemsg:$message\n" or warn "on print file $LOGfile: $!";



#  open(FH, '>>', $filename) or die"can't open file $filename \n";
#    print FH "$type:$message\n";
#  close FH;

</%init>