From 82c58e0882feda1019ddf56d2eba46e1920e23dc Mon Sep 17 00:00:00 2001 From: Earl Hood Date: Sat, 19 Jul 2003 17:46:30 -0500 Subject: [PATCH] MHonArc 2.6.5: (https://www.mhonarc.org/release/MHonArc/tar/MHonArc-2.6.5.tar.gz) * Bug Fixes: Bug ID Summary ------ ------------------------------------------------------------ 4126 Typo in mhopt.pl causes error message for big5 character set 4315 allowcomments' directive to filter() is ignored ------ ------------------------------------------------------------ * An architecture independent RPM package is now provided for installation. Because of this, the package name format has slightly changed to be consistent RPM, and other, package managers: Old format New Format ------------- ------------- MHonArcX.X.X MHonArc-X.X.X Installation document has been updated to reflect this change. If you create third-party distribution bundles for MHonArc, you may need to update your bundling process to take account of this change, mainly because the directory created when extracting the tar or zip bundles now include the hyphen. --- CHANGES | 32 +++++- INSTALL | 152 ++++++++++++++++++++++------ doc/install.html | 242 ++++++++++++++++++++++++++++++++++++++------ doc/mhonarc.html | 4 +- install.me | 59 +++++++---- lib/mhamain.pl | 4 +- lib/mhopt.pl | 4 +- lib/mhtxthtml.pl | 9 +- man/mha-dbedit.1 | 2 +- man/mha-dbrecover.1 | 2 +- man/mha-decode.1 | 2 +- man/mhonarc.1 | 2 +- mha-dbedit | 4 +- mha-dbrecover | 4 +- mha-decode | 4 +- mhonarc | 4 +- 16 files changed, 433 insertions(+), 97 deletions(-) diff --git a/CHANGES b/CHANGES index ba8a655..ccef222 100644 --- a/CHANGES +++ b/CHANGES @@ -12,6 +12,36 @@ all changes that will be visible to users of MHonArc. YYYY/MM/DD +============================================================================ +2003/07/19 (2.6.5) + +* Bug Fixes: + + Bug ID Summary + ------ ------------------------------------------------------------ + 4126 Typo in mhopt.pl causes error message for big5 + character set + 4315 allowcomments' directive to filter() is ignored + ------ ------------------------------------------------------------ + + +* An architecture independent RPM package is now provided for + installation. Because of this, the package name format has slightly + changed to be consistent RPM, and other, package managers: + + Old format New Format + ------------- ------------- + MHonArcX.X.X MHonArc-X.X.X + + Installation document has been updated to reflect this change. + + If you create third-party distribution bundles for MHonArc, you may + need to update your bundling process to take account of this change, + mainly because the directory created when extracting the tar or + zip bundles now include the hyphen. + ============================================================================ 2003/06/20 (2.6.4) @@ -2486,4 +2516,4 @@ YYYY/MM/DD ======================================================================= Earl Hood, mhonarc@mhonarc.org -$Id: CHANGES,v 1.111 2003/06/20 18:28:59 ehood Exp $ +$Id: CHANGES,v 1.112 2003/07/20 03:27:49 ehood Exp $ diff --git a/INSTALL b/INSTALL index 2775118..70c62ea 100644 --- a/INSTALL +++ b/INSTALL @@ -13,8 +13,10 @@ NOTE: Make sure to read the release notes before installing MHonArc, MHonArc distribution. * For the Impatient + * Vendor Supplied Packages * System Requirements * Downloading MHonArc + * RPM Installation * Extracting the MHonArc Distribution * Installing with install.me + install.me Notes @@ -31,21 +33,68 @@ NOTE: Make sure to read the release notes before installing MHonArc, For the Impatient -If you cannot wait to get going, try the following: +If you cannot wait to get going, try one of the following: -+-------------------------------------------------------------------------+ -|prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArcX.X.X' | -|prompt> gzip -dc MHonArcX.X.X | tar xvf - | -|prompt> cd MHonArcX.X.X | -|prompt> perl install.me | -+-------------------------------------------------------------------------+ + * Plaform independent install: + +---------------------------------------------------------------------------+ + |prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArc-X.X.X.tar.gz' | + |prompt> gzip -dc MHonArc-X.X.X.tar.gz | tar xvf - | + |prompt> cd MHonArc-X.X.X | + |prompt> perl install.me | + +---------------------------------------------------------------------------+ + + * RPM install: + +---------------------------------------------------------------------------------+ + |prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArc-X.X.X-n.noarch.rpm' | + |prompt> rpm -Uvh MHonArc-X.X.X-1.noarch.rpm | + +---------------------------------------------------------------------------------+ -where X.X.X represents the version number. +Where X.X.X represents the version number, and X.X.X-n represents the +version and release number of the RPM. Generally, the release number is +equal to '1'. If there were problems doing the above, then keep reading. --------------------------------------------------------------------------- +Vendor Supplied Packages + +Some software system vendors provide MHonArc, usually as an optional +package. The following links provide vendor-supplied versions of MHonArc: + +Debian GNU/Linux + +Linux (multiple vendors/distros) + + +NOTE: Choosing to go with a vendor-supplied package depends on your needs. + Here are some things to consider: + + * Some vendors may have their own QA process along with their own + support services while others may provide MHonArc as a + contributed package with no additional support. + + * Vendor/distro versions of MHonArc tend not to reflect the latest + release since there is a latency between a new release made + available from mhonarc.org to when vendors are able to download + and create their own packages. This difference can be important + depending on what MHonArc features or fixes you need. + + In general, if your vendor provides their own QA and support services + for the software they provide, it is usually best to use the vendor's + version of MHonArc. However, if the vendor does not provide + additional support, and/or you need the latest features and fixes, + you may want go with what is provided from mhonarc.org. + + If you require professional support and consulting, see Contacts for + contact information. + +This document does not cover any installation details for vendor supplied +packages. See your vendor's supplied documentation for installation +instructions. + +--------------------------------------------------------------------------- + System Requirements The following is required to run MHonArc: @@ -79,41 +128,86 @@ The following is required to run MHonArc: Downloading MHonArc The homepage for MHonArc is . The homepage list -various sites that you can download MHonArc. If you are familiar with -Comprehensive Perl Archive Network (CPAN), MHonArc can be downloaded from -. +various sites that you can download MHonArc. MHonArc is distributed in the following formats: - * tar-bz2: MHonArcX.X.X.tar.bz2 - * tar-gzip: MHonArcX.X.X.tar.gz - * zip: MHonArcX.X.X.zip + * RPM: MHonArc-X.X.X-n.noarch.rpm + * tar-bz2: MHonArc-X.X.X.tar.bz2 + * tar-gzip: MHonArc-X.X.X.tar.gz + * zip: MHonArc-X.X.X.zip + +Where X.X.X represents the version number, and X.X.X-n represents the +version and release number of the RPM. Generally, the release number is +equal to '1'. Choose the format that best suits your environment. + +NOTE: Alternate distribution formats for MHonArc may be available from + third-parties. Alternate distribution formats are not covered in this + document. + +If you downloaded the RPM distribution, goto RPM Installation. If you +downloaded one of the other formats, goto Extracting the MHonArc +Distribution. + +--------------------------------------------------------------------------- + +RPM Installation + +RPM is a widely used software package manager for various Linux-based +systems and sometimes used for other Unix-based environments. If the +software on your system is managed by RPM, you may prefer to install +MHonArc via RPM: + ++-------------------------------------------------------------------------+ +|prompt> rpm -Uvh MHonArc-X.X.X-n.noarch.rpm | ++-------------------------------------------------------------------------+ -where X.X.X represents the version number. +NOTE: RPM-based installation requires that the perl executable is located + at /usr/bin/perl. -Alternate distribution formats for MHonArc may be available, like Linux -RPM. Alternate distribution formats are not covered in this document. +MHonArc files will be installed in the following locations: + +/usr/bin: Program files: mhonarc, mha-dbedit, ... +/usr/lib/MHonArc: Library files. +/usr/share/doc/MHonArc-X.X.X: Documentation, examples, and extras. +/usr/share/man/man1: Manpages. + +It is highly likely that you will need to have root priviledges to install +via RPM. If you do not have root access, or you want to install in a +non-standard location, you will need to install MHonArc from the non-RPM +bundles. + +Once the install is completed, you can skip to Post Installation +Configuration. + +NOTE: RPM distributions have been directly available starting with MHonArc + v2.6.5. However, alternate RPM packages are available for current and + older versions via third parties and some Linux distros. Goto to get a + list of third-party RPM bundles. --------------------------------------------------------------------------- Extracting the MHonArc Distribution -After downloading MHonArc, it is best to move the file to a temporary -location for extraction. To extract the distribution under Unix-like -systems, use one of the following commands based upon the distribution -format you downloaded: +NOTE: If doing an RPM-based install, goto RPM Installation above. + +After downloading the MHonArc distribution, it is best to move the file to +a temporary location for extraction. To extract the distribution under +Unix-like systems, use one of the following commands based upon the +distribution format you downloaded: tar-bz2 +---------------------------------------------------------------------+ - |prompt> bzip2 -dc MHonArcX.X.X.tar.bz2 | tar xvf - | + |prompt> bzip2 -dc MHonArc-X.X.X.tar.bz2 | tar xvf - | +---------------------------------------------------------------------+ tar-gzip +---------------------------------------------------------------------+ - |prompt> gzip -dc MHonArcX.X.X.tar.gz | tar xvf - | + |prompt> gzip -dc MHonArc-X.X.X.tar.gz | tar xvf - | +---------------------------------------------------------------------+ zip +---------------------------------------------------------------------+ - |prompt> unzip MHonArcX.X.X.zip | + |prompt> unzip MHonArc-X.X.X.zip | +---------------------------------------------------------------------+ For Win32 systems, you can use a program like WinZip to extract the @@ -125,18 +219,18 @@ NOTE: If your are using Cygwin and the cygwin build of Perl, then the environment. MHonArc treats the cygwin environment as a Unix-type environment. -After extraction, the subdirectory MHonArcX.X.X will have been created +After extraction, the subdirectory MHonArc-X.X.X will have been created containing all the files comprising MHonArc. NOTE: Please read the release notes before continuing for any news about compatibility with previous versions and/or important usage information. -Now, change your current directory to MHonArcX.X.X for the next step. On a +Now, change your current directory to MHonArc-X.X.X for the next step. On a Unix-type system, the following command will do it: +-------------------------------------------------------------------------+ -|prompt> cd MHonArcX.X.X | +|prompt> cd MHonArc-X.X.X | +-------------------------------------------------------------------------+ --------------------------------------------------------------------------- @@ -386,7 +480,7 @@ highlighting mode. The mode is best used with color-capable terminals. --------------------------------------------------------------------------- -$Date: 2002/12/10 04:08:02 $ +$Date: 2003/07/20 03:27:49 $ MHonArc -Copyright © 1997-2002, Earl Hood, mhonarc@mhonarc.org +Copyright © 1997-2003, Earl Hood, mhonarc@mhonarc.org diff --git a/doc/install.html b/doc/install.html index a351f6d..14c4737 100644 --- a/doc/install.html +++ b/doc/install.html @@ -35,8 +35,10 @@

Installation

  • For the Impatient +
  • Vendor Supplied Packages
  • System Requirements
  • Downloading MHonArc +
  • RPM Installation
  • Extracting the MHonArc Distribution
  • Installing with install.me
      @@ -59,19 +61,95 @@

      Installation

      For the Impatient

      -

      If you cannot wait to get going, try the following: +

      If you cannot wait to get going, try one of the following:

      +
        + +
      • Plaform independent install: 
        -prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArcX.X.X'
-prompt> gzip -dc MHonArcX.X.X | tar xvf -
-prompt> cd MHonArcX.X.X
+prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArc-X.X.X.tar.gz'
+prompt> gzip -dc MHonArc-X.X.X.tar.gz | tar xvf -
+prompt> cd MHonArc-X.X.X
 prompt> perl install.me
-
        -

        where X.X.X represents the version number.

        +
        • + +
      • RPM install: +
        +prompt> wget 'http://www.mhonarc.org/release/MHonArc/MHonArc-X.X.X-n.noarch.rpm'
+prompt> rpm -Uvh MHonArc-X.X.X-1.noarch.rpm
+
        • + +
      +

      Where X.X.X represents the version number, and +X.X.X-n represents the version and release number +of the RPM. Generally, the release number is equal to '1'. +

      If there were problems doing the above, then keep reading.

      + +
      +

      Vendor Supplied Packages

      + +

      Some software system vendors provide MHonArc, usually as an +optional package. The following links provide vendor-supplied +versions of MHonArc: +

      + +
      +
      Debian GNU/Linux
      +
      <http://packages.debian.org/mhonarc> +
      +
      Linux (multiple vendors/distros)
      +
      <http://www.rpmfind.net/linux/rpm2html/search.php?query=MHonArc> +
      +
      + + + + + + +
      NOTE:

      Choosing to go with a vendor-supplied package +depends on your needs. Here are some things to consider: +

      +
        +

      • Some vendors may have their own QA process + along with their own support services while others may provide + MHonArc as a contributed package with no additional support. +

        +
        • +

      • Vendor/distro versions of MHonArc tend not to reflect the + latest release since there is a latency between a new release + made available from + mhonarc.org + to when vendors are able to download and + create their own packages. This difference can be important + depending on what MHonArc features or fixes you need. +

        +
        • +
      +

      In general, if your vendor provides their own QA and support +services for the software they provide, it is usually best to use +the vendor's version of MHonArc. However, if the vendor does not +provide additional support, and/or you need the latest features +and fixes, you may want go with what is provided from +mhonarc.org. +

      +

      If you require professional support and consulting, +see Contacts for +contact information. +

      +
      + +

      This document does not cover any installation details for +vendor supplied packages. See your vendor's supplied documentation +for installation instructions. +

      +

      System Requirements

      @@ -128,51 +206,155 @@

      Downloading MHonArc

      The homepage for MHonArc is <http://www.mhonarc.org/>. The homepage -list various sites that you can download MHonArc. If you are -familiar with -Comprehensive Perl Archive Network -(CPAN), MHonArc can be downloaded from -<http://www.perl.com/CPAN/authors/id/EHOOD/>. +list various sites that you can download MHonArc.

      MHonArc is distributed in the following formats:

        -
      • tar-bz2: MHonArcX.X.X.tar.bz2 +
      • RPM: MHonArc-X.X.X-n.noarch.rpm +
        • +
      • tar-bz2: MHonArc-X.X.X.tar.bz2
        • -
      • tar-gzip: MHonArcX.X.X.tar.gz +
      • tar-gzip: MHonArc-X.X.X.tar.gz
        • -
      • zip: MHonArcX.X.X.zip +
      • zip: MHonArc-X.X.X.zip
      -

      where X.X.X represents the version number. +

      Where X.X.X represents the version number, and +X.X.X-n represents the version and release number +of the RPM. Generally, the release number is equal to '1'. +Choose the format that best suits your environment.

      -

      Alternate distribution formats for MHonArc may be available, like -Linux RPM. Alternate distribution formats are not covered in this + + + + + + +
      NOTE:

      +Alternate distribution formats for MHonArc may be available from +third-parties. Alternate distribution formats are not covered in this document.

      +
      + +

      If you downloaded the RPM distribution, goto +RPM Installation. +If you downloaded one of the other formats, goto +Extracting the MHonArc Distribution. +

      + + +
      +

      RPM Installation

      + +

      RPM is a widely used software +package manager for various Linux-based systems and sometimes used +for other Unix-based environments. If the software on your system is +managed by RPM, you may prefer to install MHonArc via RPM: +

      + +
      +prompt> rpm -Uvh MHonArc-X.X.X-n.noarch.rpm
+
      + +

      + + + + + + +
      NOTE:

      RPM-based installation requires that the perl +executable is located at /usr/bin/perl. +

      +
      + +

      MHonArc files will be installed in the following locations: +

      + + + + + + + + + + + + + + + + + + +
      /usr/bin: Program files: mhonarc, mha-dbedit, ... +
      /usr/lib/MHonArc: Library files. +
      /usr/share/doc/MHonArc-X.X.X: Documentation, examples, and extras. +
      /usr/share/man/man1: Manpages. +
      + +

      It is highly likely that you will need to have root priviledges +to install via RPM. If you do not have root access, or you want +to install in a non-standard location, you will need to +install MHonArc from the non-RPM bundles. +

      + +

      Once the install is completed, you can skip to +Post Installation Configuration. +

      + + + + + + +
      NOTE:

      RPM distributions have been directly +available starting with MHonArc v2.6.5. However, alternate RPM packages +are available for current and older versions via +third parties and some Linux distros. Goto +<http://www.rpmfind.net/linux/rpm2html/search.php?query=MHonArc> to +get a list of third-party RPM bundles. +

      +
      + +

      Extracting the MHonArc Distribution

      -

      After downloading MHonArc, it is best to move the file to a -temporary location for extraction. To extract the distribution -under Unix-like systems, use one of the following commands based upon the -distribution format you downloaded: + + + + + +
      NOTE:

      If doing an RPM-based install, goto +RPM Installation above. +

      +
      + +

      After downloading the MHonArc distribution, it is best to move +the file to a temporary location for extraction. To extract the +distribution under Unix-like systems, use one of the following commands +based upon the distribution format you downloaded:

      +
      tar-bz2
      -prompt> bzip2 -dc MHonArcX.X.X.tar.bz2 | tar xvf -
      +prompt> bzip2 -dc MHonArc-X.X.X.tar.bz2 | tar xvf -
      tar-gzip
      -prompt> gzip -dc MHonArcX.X.X.tar.gz | tar xvf -
      +prompt> gzip -dc MHonArc-X.X.X.tar.gz | tar xvf -
      zip
      -prompt> unzip MHonArcX.X.X.zip
      +prompt> unzip MHonArc-X.X.X.zip
      @@ -194,7 +376,7 @@

      Extracting the MHonArc Distribution

      -

      After extraction, the subdirectory MHonArcX.X.X will +

      After extraction, the subdirectory MHonArc-X.X.X will have been created containing all the files comprising MHonArc.

      @@ -207,12 +389,12 @@

      Extracting the MHonArc Distribution

      -

      Now, change your current directory to MHonArcX.X.X +

      Now, change your current directory to MHonArc-X.X.X for the next step. On a Unix-type system, the following command will do it: 

      -prompt> cd MHonArcX.X.X
+prompt> cd MHonArc-X.X.X
      @@ -570,10 +752,10 @@

      Resource File Editing

      -$Date: 2002/12/10 04:08:02 $
      +$Date: 2003/07/20 03:27:49 $
      MHonArc
      -Copyright © 1997-2002, Earl Hood, mhonarc@mhonarc.org
      diff --git a/doc/mhonarc.html b/doc/mhonarc.html index 8982e13..9a8b91e 100644 --- a/doc/mhonarc.html +++ b/doc/mhonarc.html @@ -44,8 +44,10 @@

      Table of Contents

    • Installation
      • For the Impatient
        • +
      • Vendor Supplied Packages
      • System Requirements
      • Downloading MHonArc
        • +
      • RPM Installation
      • Extracting the MHonArc Distribution
      • Installing with install.me
      • The Perl 5 Way
        • @@ -165,7 +167,7 @@

        Table of Contents

        -$Date: 2003/02/23 00:12:07 $
        +$Date: 2003/07/20 03:27:49 $
        MHonArc
        diff --git a/install.me b/install.me index 8466d31..3a95284 100755 --- a/install.me +++ b/install.me @@ -1,7 +1,7 @@ #!/usr/bin/perl ##---------------------------------------------------------------------------## ## File: -## $Id: install.me,v 1.18 2002/05/14 19:40:46 ehood Exp $ +## $Id: install.me,v 1.19 2003/07/20 00:00:51 ehood Exp $ ## Author: ## Earl Hood, earl@earlhood.com ## Summary: @@ -229,6 +229,8 @@ my %Files = (); my %DefValues = (); my %OptValues = (); +my $Root = ''; + ############################################################################### ## Parse Command-line ############################################################################### @@ -239,6 +241,7 @@ my %OptValues = (); GetOptions(\%OptValues, qw( afs + root=s batch binpath=s docpath=s @@ -260,6 +263,8 @@ my %OptValues = (); exit !$ret; } + $Root = $OptValues{'root'} if defined $OptValues{'root'}; + my $cfg_prefix = interpolate_path($Config{'prefix'}); $DefValues{'binpath'} = interpolate_path($Config{'installbin'}); $DefValues{'libpath'} = interpolate_path($Config{'installsitelib'}); @@ -422,63 +427,71 @@ my %OptValues = (); ## Install files ## ------------- - print STDERR "($OptValues{'perl'})\n"; my $plprefix = "#!$OptValues{'perl'}\n"; $plprefix .= "use lib qw($OptValues{'libpath'});\n" if $OptValues{'libpath'}; my($file, $destfile); if ($dobin) { print STDOUT qq(Installing programs to "$OptValues{'binpath'}":\n); - if (create_dir($OptValues{'binpath'}, 1) <= 0) { die "\n"; } + if (create_dir(apply_root($Root, $OptValues{'binpath'}), 1) <= 0) { + die "\n"; + } foreach (@{$Files{'bin'}}) { print STDOUT " $_ => "; ($file = $_) =~ s%.*/%%o; $destfile = join('', $OptValues{'binpath'}, $DIRSEP, $file); + my $fulldestfile = apply_root($Root, $destfile); print STDOUT $destfile, "\n"; - cp($_, $destfile, $plprefix, $WINDOWS); - eval q{chmod 0755, $destfile;}; + cp($_, $fulldestfile, $plprefix, $WINDOWS); + eval q{chmod 0755, $fulldestfile;}; if ($WINDOWS && $file !~ /\.pl$/i) { - $destfile .= ".pl"; - cp($_, $destfile, $plprefix); - eval q{chmod 0755, $destfile;}; + $fulldestfile .= ".pl"; + cp($_, $fulldestfile, $plprefix); + eval q{chmod 0755, $fulldestfile;}; } } } if ($dolib) { print STDOUT qq(Installing lib files to "$OptValues{'libpath'}":\n); - if (create_dir($OptValues{'libpath'}, 1) <= 0) { die "\n"; } + if (create_dir(apply_root($Root, $OptValues{'libpath'}), 1) <= 0) { + die "\n"; + } foreach (@{$Files{'lib'}}) { print STDOUT " $_ => "; ($file = $_) =~ s%.*/%%o; $destfile = join('', $OptValues{'libpath'}, $DIRSEP, $file); print STDOUT $destfile, "\n"; - cp($_, $destfile); + cp($_, apply_root($Root, $destfile)); } } if ($dodoc) { print STDOUT qq(Installing docs to "$OptValues{'docpath'}":\n); - if (create_dir($OptValues{'docpath'}, 1) <= 0) { die "\n"; } + if (create_dir(apply_root($Root, $OptValues{'docpath'}), 1) <= 0) { + die "\n"; + } foreach (@{$Files{'doc'}}) { print STDOUT " $_ => "; ($file = $_) =~ s%.*/%%o; $destfile = join('', $OptValues{'docpath'}, $DIRSEP, $file); print STDOUT $destfile, "\n"; - cp($_, $destfile); + cp($_, apply_root($Root, $destfile)); } } if ($doman) { my($sect, $msubdir); print STDOUT qq(Installing manpages to "$OptValues{'manpath'}":\n); - if (create_dir($OptValues{'manpath'}, 1) <= 0) { die "\n"; } + if (create_dir(apply_root($Root, $OptValues{'manpath'}), 1) <= 0) { + die "\n"; + } foreach (@{$Files{'man'}}) { print STDOUT " $_ => "; ($file = $_) =~ s%.*/%%o; ($sect = $file) =~ s%.*\.%%o; $msubdir = join($DIRSEP, $OptValues{'manpath'}, "man$sect"); - if (create_dir($msubdir, 1) <= 0) { die "\n"; } + if (create_dir(apply_root($Root, $msubdir), 1) <= 0) { die "\n"; } $destfile = join($DIRSEP, $msubdir, $file); print STDOUT $destfile, "\n"; - cp($_, $destfile); + cp($_, apply_root($Root, $destfile)); } } } @@ -547,6 +560,18 @@ sub get_perl_from_user { $value; } +##------------------------------------------------------------------------ +## apply_root() applies install base root path to given path. +## +sub apply_root { + my $base = shift; + my $path = shift; + if ($base) { + return $base . $path; + } + $path; +} + ##------------------------------------------------------------------------ ## get_path_from_user() gets a path from the user. The function ## insures the path exists. @@ -558,12 +583,12 @@ sub get_path_from_user { if (defined($value) && ($value =~ /\S/)) { die qq(ERROR: Unable to create "$value".\n) - unless create_dir($value, 1) > 0; + unless create_dir(apply_root($Root, $value), 1) > 0; } else { my $stat; while (1) { $value = interpolate_path(prompt_user($prompt, $default)); - $stat = create_dir($value); + $stat = create_dir(apply_root($Root, $value)); if ($stat > 0) { last; } if ($stat == 0) { next; } } diff --git a/lib/mhamain.pl b/lib/mhamain.pl index e0d80d4..3fd5c02 100644 --- a/lib/mhamain.pl +++ b/lib/mhamain.pl @@ -1,6 +1,6 @@ ##---------------------------------------------------------------------------## ## File: -## $Id: mhamain.pl,v 2.66 2003/06/20 18:28:59 ehood Exp $ +## $Id: mhamain.pl,v 2.67 2003/07/20 03:25:18 ehood Exp $ ## Author: ## Earl Hood mhonarc@mhonarc.org ## Description: @@ -29,7 +29,7 @@ package mhonarc; require 5; -$VERSION = '2.6.4'; +$VERSION = '2.6.5'; $VINFO =< [ 'cp878' ], 'gost-19768-87' => [ 'ecma-cyrillic', 'ecma-113', 'ecma-113:1988' ], - 'big5-eten ' => [ 'big5', 'csbig5', + 'big5-eten' => [ 'big5', 'csbig5', 'tcs-big5', 'tcsbig5' ], 'big5-hkscs' => [ 'big5hkscs', 'big5hk', 'hkscs-big5', 'hk-big5' ], diff --git a/lib/mhtxthtml.pl b/lib/mhtxthtml.pl index bc4c9b4..c300e64 100644 --- a/lib/mhtxthtml.pl +++ b/lib/mhtxthtml.pl @@ -1,6 +1,6 @@ ##---------------------------------------------------------------------------## ## File: -## $Id: mhtxthtml.pl,v 2.32 2003/04/05 23:52:20 ehood Exp $ +## $Id: mhtxthtml.pl,v 2.33 2003/07/15 20:12:16 ehood Exp $ ## Author: ## Earl Hood mhonarc@mhonarc.org ## Description: @@ -137,6 +137,7 @@ sub filter { my $onlycid = $args !~ /\ballownoncidurls\b/i; my $subdir = $args =~ /\bsubdir\b/i; my $norelate = $args =~ /\bdisablerelated\b/i; + my $allowcom = $args =~ /\ballowcomments\b/i; my $atdir = $subdir ? $mhonarc::MsgPrefix.$mhonarc::MHAmsgnum : ""; my $tmp; @@ -343,8 +344,10 @@ sub filter { ## Check comment declarations: may screw-up mhonarc processing ## and avoids someone sneaking in SSIs. - #$$data =~ s///go; # can crash perl - $$data =~ s/