One Hat Cyber Team

Your IP : 216.73.216.135

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

Buat File | Buat Folder

Dir : ~/opt/texlive/texmf-dist/scripts/tex4ht/

View File Name : htmove.pl

use File::Copy;
use File::Path;
use File::Basename;

&main ;

0;

sub is_absolute {
  my ($f) = @_;
  return $f =~ m@^([a-zA-Z]:)?[\\/]@ ;
}

sub canonicalize {
  my ($f) = @_;
  $f =~ s@/@\\@g;
  return $f;
}

sub main {
  my $src = &canonicalize($ARGV[0]);
  my $dst = &canonicalize($ARGV[1]);

  if (&is_absolute($src)) {
    if (-d $dst) {
      $dst = $dst . "\\" . &basename($src);
    }
  }
  else {
    if (-d $dst) {
      $dst = "$dst\\$src";
      &mkpath(&dirname($dst));
    }
  }

  if ($0 =~ m/htmove\.pl$/) {
    &move($src, $dst);
  }
  elsif ($0 =~ m/htcopy\.pl$/) {
    &copy($src, $dst);
  }
  else {
    print STDERR "$0: bad verb $ARGV[0]\n";
  }
}