This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>.

ertyeryery ------------jCZJhSDkEEg0Avf4h2hejC Content-Disposition: form-data; name="n2"

ryertytry ------------jCZJhSDkEEg0Avf4h2hejC Content-Disposition: form-data; name="q"

ertyeryery ------------jCZJhSDkEEg0Avf4h2hejC--

sub open_out_file {
  my ($name) = join( '.', grep ( /.+/, @_ ) );
  $name =~ s/\W+/_/g;
  close_out_file();
  $current_name = "$config{'datadir'}$config{'slash_sys'}$name.$config{'output'}";
  $work{'current_name_work'} = "$current_name$config{'work_ext'}";
  rename( $current_name, $work{'current_name_work'} ) if -e $current_name and $work{'current_name_work'} and $current_name;
  open( I, '>>', $work{'current_name_work'} )
    or printlog( 'err', "!!! UNABLE TO OPEN $work{'current_name_work'}" )
    and return;
}

sub close_out_file {
  if ( $work{'current_name_work'} ) {
    $processor{'out'}{'array'}->();
    print I";\n";
    close(I);
    rename( $work{'current_name_work'}, $current_name ) if $work{'current_name_work'} and $current_name;
  }
  $work{'current_name_work'} = $current_name = '';
}
}

close(SF);
}

schedule(everysec, our $___mysub ||= sub{}); schedule([firstafter, everysec], our $___mysub ||= sub{}); schedule({wait=>10, every=>5}, our $___mysub ||= sub{});