$file = find_special_page('violation');
    $fn = $try . "/" . escape_chars($file) . $suffix;
  }
}
else {
  $fn = $try . "/" . escape_chars($file) . $suffix;
}

if (open(MVIN, "< $fn")) {
  binmode(MVIN) if $Global::Windows;
  binmode(MVIN, ":utf8") if $::Variable->{MV_UTF8};
  undef $/;
  $contents = <MVIN>;
  close(MVIN);
  last;

use File::Path;
use File::Copy;
use subs qw(logError logGlobal);
use vars qw($VERSION @EXPORT @EXPORT_OK $errstr);
$VERSION = '2.33';

sub writefile {
  my($file, $data, $opt) = @_;
my($encoding, $fallback);

if ($::Variable->{MV_UTF8}) {
  $encoding = $opt->{encoding} ||= 'utf-8';
  undef $encoding if $encoding eq 'raw';
  $fallback = $opt->{fallback};
  $fallback = Encode::PERLQQ() unless defined $fallback;

# If catalog FileDatabase is enabled and there are no contents, we can retrieve
# the file from the database.

sub readfile {
  my($ifile, $no, $loc, $opt) = @_;
  my($contents,$encoding,$fallback);
  local($/);

$opt ||= {};

if ($::Variable->{MV_UTF8}) {
  $encoding = $opt->{encoding} ||= 'utf-8';
  $fallback = $opt->{fallback};
  $fallback = Encode::PERLQQ() unless defined $fallback;
  undef $encoding if $encoding eq 'raw';

if($Vend::admin or ! defined($cfg->{LOG_ERROR_SESSION}) or $cfg->{LOG_ERROR_SESSION}) {
  $Vend::Session->{errors} = {} unless CORE::ref($Vend::Session->{errors}) eq 'HASH';
  $Vend::Session->{errors}{$ekey} = $msg;
}
die $msg if $cfg->{DIE_ERROR};
return $cfg->{last_error} = $msg;
}

sub new_filehandle {
my $fh = shift;
binmode($fh, ":utf8") if $::Variable->{MV_UTF8};
return $fh;
}

1;