Replaced the messy GNU-styled, multi-lingual documents with a single Markdown README.md. Added the GitHub repository to the document and removed the SourceForge website, my web page, and the SourceForge mailing list from the document. Removed the document license, and my PGP key from the package. Removed the signature file from the repository. Changed the license from GPLv3 to APLv2. Various fixes to avoid JetBrains IDE problem detection.
This commit is contained in:
parent
8e134b3a67
commit
896b7ac5ce
@ -1 +0,0 @@
|
||||
ÒÀÂêè <imacat@mail.imacat.idv.tw>
|
@ -1 +0,0 @@
|
||||
¨Ìº¿¿ß <imacat@mail.imacat.idv.tw>
|
4
Build.PL
4
Build.PL
@ -6,7 +6,7 @@ use Config qw(%Config);
|
||||
use Module::Build;
|
||||
|
||||
# Check if there is any old file
|
||||
use vars qw(%old_version);
|
||||
our (%old_version);
|
||||
%old_version = qw();
|
||||
foreach (qw(/usr/sbin/arclog.pl
|
||||
/usr/sbin/arclog
|
||||
@ -52,7 +52,7 @@ my $build = Module::Build->new(
|
||||
dist_version_from => "arclog",
|
||||
dist_abstract => "Archive log files monthly",
|
||||
dist_author => "imacat <imacat\@mail.imacat.idv.tw>",
|
||||
license => "gpl",
|
||||
license => "apache_2_0",
|
||||
sign => 1,
|
||||
|
||||
script_files => [ "arclog" ],
|
||||
|
674
COPYING
674
COPYING
@ -1,674 +0,0 @@
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
Version 3, 29 June 2007
|
||||
|
||||
Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
Preamble
|
||||
|
||||
The GNU General Public License is a free, copyleft license for
|
||||
software and other kinds of works.
|
||||
|
||||
The licenses for most software and other practical works are designed
|
||||
to take away your freedom to share and change the works. By contrast,
|
||||
the GNU General Public License is intended to guarantee your freedom to
|
||||
share and change all versions of a program--to make sure it remains free
|
||||
software for all its users. We, the Free Software Foundation, use the
|
||||
GNU General Public License for most of our software; it applies also to
|
||||
any other work released this way by its authors. You can apply it to
|
||||
your programs, too.
|
||||
|
||||
When we speak of free software, we are referring to freedom, not
|
||||
price. Our General Public Licenses are designed to make sure that you
|
||||
have the freedom to distribute copies of free software (and charge for
|
||||
them if you wish), that you receive source code or can get it if you
|
||||
want it, that you can change the software or use pieces of it in new
|
||||
free programs, and that you know you can do these things.
|
||||
|
||||
To protect your rights, we need to prevent others from denying you
|
||||
these rights or asking you to surrender the rights. Therefore, you have
|
||||
certain responsibilities if you distribute copies of the software, or if
|
||||
you modify it: responsibilities to respect the freedom of others.
|
||||
|
||||
For example, if you distribute copies of such a program, whether
|
||||
gratis or for a fee, you must pass on to the recipients the same
|
||||
freedoms that you received. You must make sure that they, too, receive
|
||||
or can get the source code. And you must show them these terms so they
|
||||
know their rights.
|
||||
|
||||
Developers that use the GNU GPL protect your rights with two steps:
|
||||
(1) assert copyright on the software, and (2) offer you this License
|
||||
giving you legal permission to copy, distribute and/or modify it.
|
||||
|
||||
For the developers' and authors' protection, the GPL clearly explains
|
||||
that there is no warranty for this free software. For both users' and
|
||||
authors' sake, the GPL requires that modified versions be marked as
|
||||
changed, so that their problems will not be attributed erroneously to
|
||||
authors of previous versions.
|
||||
|
||||
Some devices are designed to deny users access to install or run
|
||||
modified versions of the software inside them, although the manufacturer
|
||||
can do so. This is fundamentally incompatible with the aim of
|
||||
protecting users' freedom to change the software. The systematic
|
||||
pattern of such abuse occurs in the area of products for individuals to
|
||||
use, which is precisely where it is most unacceptable. Therefore, we
|
||||
have designed this version of the GPL to prohibit the practice for those
|
||||
products. If such problems arise substantially in other domains, we
|
||||
stand ready to extend this provision to those domains in future versions
|
||||
of the GPL, as needed to protect the freedom of users.
|
||||
|
||||
Finally, every program is threatened constantly by software patents.
|
||||
States should not allow patents to restrict development and use of
|
||||
software on general-purpose computers, but in those that do, we wish to
|
||||
avoid the special danger that patents applied to a free program could
|
||||
make it effectively proprietary. To prevent this, the GPL assures that
|
||||
patents cannot be used to render the program non-free.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow.
|
||||
|
||||
TERMS AND CONDITIONS
|
||||
|
||||
0. Definitions.
|
||||
|
||||
"This License" refers to version 3 of the GNU General Public License.
|
||||
|
||||
"Copyright" also means copyright-like laws that apply to other kinds of
|
||||
works, such as semiconductor masks.
|
||||
|
||||
"The Program" refers to any copyrightable work licensed under this
|
||||
License. Each licensee is addressed as "you". "Licensees" and
|
||||
"recipients" may be individuals or organizations.
|
||||
|
||||
To "modify" a work means to copy from or adapt all or part of the work
|
||||
in a fashion requiring copyright permission, other than the making of an
|
||||
exact copy. The resulting work is called a "modified version" of the
|
||||
earlier work or a work "based on" the earlier work.
|
||||
|
||||
A "covered work" means either the unmodified Program or a work based
|
||||
on the Program.
|
||||
|
||||
To "propagate" a work means to do anything with it that, without
|
||||
permission, would make you directly or secondarily liable for
|
||||
infringement under applicable copyright law, except executing it on a
|
||||
computer or modifying a private copy. Propagation includes copying,
|
||||
distribution (with or without modification), making available to the
|
||||
public, and in some countries other activities as well.
|
||||
|
||||
To "convey" a work means any kind of propagation that enables other
|
||||
parties to make or receive copies. Mere interaction with a user through
|
||||
a computer network, with no transfer of a copy, is not conveying.
|
||||
|
||||
An interactive user interface displays "Appropriate Legal Notices"
|
||||
to the extent that it includes a convenient and prominently visible
|
||||
feature that (1) displays an appropriate copyright notice, and (2)
|
||||
tells the user that there is no warranty for the work (except to the
|
||||
extent that warranties are provided), that licensees may convey the
|
||||
work under this License, and how to view a copy of this License. If
|
||||
the interface presents a list of user commands or options, such as a
|
||||
menu, a prominent item in the list meets this criterion.
|
||||
|
||||
1. Source Code.
|
||||
|
||||
The "source code" for a work means the preferred form of the work
|
||||
for making modifications to it. "Object code" means any non-source
|
||||
form of a work.
|
||||
|
||||
A "Standard Interface" means an interface that either is an official
|
||||
standard defined by a recognized standards body, or, in the case of
|
||||
interfaces specified for a particular programming language, one that
|
||||
is widely used among developers working in that language.
|
||||
|
||||
The "System Libraries" of an executable work include anything, other
|
||||
than the work as a whole, that (a) is included in the normal form of
|
||||
packaging a Major Component, but which is not part of that Major
|
||||
Component, and (b) serves only to enable use of the work with that
|
||||
Major Component, or to implement a Standard Interface for which an
|
||||
implementation is available to the public in source code form. A
|
||||
"Major Component", in this context, means a major essential component
|
||||
(kernel, window system, and so on) of the specific operating system
|
||||
(if any) on which the executable work runs, or a compiler used to
|
||||
produce the work, or an object code interpreter used to run it.
|
||||
|
||||
The "Corresponding Source" for a work in object code form means all
|
||||
the source code needed to generate, install, and (for an executable
|
||||
work) run the object code and to modify the work, including scripts to
|
||||
control those activities. However, it does not include the work's
|
||||
System Libraries, or general-purpose tools or generally available free
|
||||
programs which are used unmodified in performing those activities but
|
||||
which are not part of the work. For example, Corresponding Source
|
||||
includes interface definition files associated with source files for
|
||||
the work, and the source code for shared libraries and dynamically
|
||||
linked subprograms that the work is specifically designed to require,
|
||||
such as by intimate data communication or control flow between those
|
||||
subprograms and other parts of the work.
|
||||
|
||||
The Corresponding Source need not include anything that users
|
||||
can regenerate automatically from other parts of the Corresponding
|
||||
Source.
|
||||
|
||||
The Corresponding Source for a work in source code form is that
|
||||
same work.
|
||||
|
||||
2. Basic Permissions.
|
||||
|
||||
All rights granted under this License are granted for the term of
|
||||
copyright on the Program, and are irrevocable provided the stated
|
||||
conditions are met. This License explicitly affirms your unlimited
|
||||
permission to run the unmodified Program. The output from running a
|
||||
covered work is covered by this License only if the output, given its
|
||||
content, constitutes a covered work. This License acknowledges your
|
||||
rights of fair use or other equivalent, as provided by copyright law.
|
||||
|
||||
You may make, run and propagate covered works that you do not
|
||||
convey, without conditions so long as your license otherwise remains
|
||||
in force. You may convey covered works to others for the sole purpose
|
||||
of having them make modifications exclusively for you, or provide you
|
||||
with facilities for running those works, provided that you comply with
|
||||
the terms of this License in conveying all material for which you do
|
||||
not control copyright. Those thus making or running the covered works
|
||||
for you must do so exclusively on your behalf, under your direction
|
||||
and control, on terms that prohibit them from making any copies of
|
||||
your copyrighted material outside their relationship with you.
|
||||
|
||||
Conveying under any other circumstances is permitted solely under
|
||||
the conditions stated below. Sublicensing is not allowed; section 10
|
||||
makes it unnecessary.
|
||||
|
||||
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
|
||||
|
||||
No covered work shall be deemed part of an effective technological
|
||||
measure under any applicable law fulfilling obligations under article
|
||||
11 of the WIPO copyright treaty adopted on 20 December 1996, or
|
||||
similar laws prohibiting or restricting circumvention of such
|
||||
measures.
|
||||
|
||||
When you convey a covered work, you waive any legal power to forbid
|
||||
circumvention of technological measures to the extent such circumvention
|
||||
is effected by exercising rights under this License with respect to
|
||||
the covered work, and you disclaim any intention to limit operation or
|
||||
modification of the work as a means of enforcing, against the work's
|
||||
users, your or third parties' legal rights to forbid circumvention of
|
||||
technological measures.
|
||||
|
||||
4. Conveying Verbatim Copies.
|
||||
|
||||
You may convey verbatim copies of the Program's source code as you
|
||||
receive it, in any medium, provided that you conspicuously and
|
||||
appropriately publish on each copy an appropriate copyright notice;
|
||||
keep intact all notices stating that this License and any
|
||||
non-permissive terms added in accord with section 7 apply to the code;
|
||||
keep intact all notices of the absence of any warranty; and give all
|
||||
recipients a copy of this License along with the Program.
|
||||
|
||||
You may charge any price or no price for each copy that you convey,
|
||||
and you may offer support or warranty protection for a fee.
|
||||
|
||||
5. Conveying Modified Source Versions.
|
||||
|
||||
You may convey a work based on the Program, or the modifications to
|
||||
produce it from the Program, in the form of source code under the
|
||||
terms of section 4, provided that you also meet all of these conditions:
|
||||
|
||||
a) The work must carry prominent notices stating that you modified
|
||||
it, and giving a relevant date.
|
||||
|
||||
b) The work must carry prominent notices stating that it is
|
||||
released under this License and any conditions added under section
|
||||
7. This requirement modifies the requirement in section 4 to
|
||||
"keep intact all notices".
|
||||
|
||||
c) You must license the entire work, as a whole, under this
|
||||
License to anyone who comes into possession of a copy. This
|
||||
License will therefore apply, along with any applicable section 7
|
||||
additional terms, to the whole of the work, and all its parts,
|
||||
regardless of how they are packaged. This License gives no
|
||||
permission to license the work in any other way, but it does not
|
||||
invalidate such permission if you have separately received it.
|
||||
|
||||
d) If the work has interactive user interfaces, each must display
|
||||
Appropriate Legal Notices; however, if the Program has interactive
|
||||
interfaces that do not display Appropriate Legal Notices, your
|
||||
work need not make them do so.
|
||||
|
||||
A compilation of a covered work with other separate and independent
|
||||
works, which are not by their nature extensions of the covered work,
|
||||
and which are not combined with it such as to form a larger program,
|
||||
in or on a volume of a storage or distribution medium, is called an
|
||||
"aggregate" if the compilation and its resulting copyright are not
|
||||
used to limit the access or legal rights of the compilation's users
|
||||
beyond what the individual works permit. Inclusion of a covered work
|
||||
in an aggregate does not cause this License to apply to the other
|
||||
parts of the aggregate.
|
||||
|
||||
6. Conveying Non-Source Forms.
|
||||
|
||||
You may convey a covered work in object code form under the terms
|
||||
of sections 4 and 5, provided that you also convey the
|
||||
machine-readable Corresponding Source under the terms of this License,
|
||||
in one of these ways:
|
||||
|
||||
a) Convey the object code in, or embodied in, a physical product
|
||||
(including a physical distribution medium), accompanied by the
|
||||
Corresponding Source fixed on a durable physical medium
|
||||
customarily used for software interchange.
|
||||
|
||||
b) Convey the object code in, or embodied in, a physical product
|
||||
(including a physical distribution medium), accompanied by a
|
||||
written offer, valid for at least three years and valid for as
|
||||
long as you offer spare parts or customer support for that product
|
||||
model, to give anyone who possesses the object code either (1) a
|
||||
copy of the Corresponding Source for all the software in the
|
||||
product that is covered by this License, on a durable physical
|
||||
medium customarily used for software interchange, for a price no
|
||||
more than your reasonable cost of physically performing this
|
||||
conveying of source, or (2) access to copy the
|
||||
Corresponding Source from a network server at no charge.
|
||||
|
||||
c) Convey individual copies of the object code with a copy of the
|
||||
written offer to provide the Corresponding Source. This
|
||||
alternative is allowed only occasionally and noncommercially, and
|
||||
only if you received the object code with such an offer, in accord
|
||||
with subsection 6b.
|
||||
|
||||
d) Convey the object code by offering access from a designated
|
||||
place (gratis or for a charge), and offer equivalent access to the
|
||||
Corresponding Source in the same way through the same place at no
|
||||
further charge. You need not require recipients to copy the
|
||||
Corresponding Source along with the object code. If the place to
|
||||
copy the object code is a network server, the Corresponding Source
|
||||
may be on a different server (operated by you or a third party)
|
||||
that supports equivalent copying facilities, provided you maintain
|
||||
clear directions next to the object code saying where to find the
|
||||
Corresponding Source. Regardless of what server hosts the
|
||||
Corresponding Source, you remain obligated to ensure that it is
|
||||
available for as long as needed to satisfy these requirements.
|
||||
|
||||
e) Convey the object code using peer-to-peer transmission, provided
|
||||
you inform other peers where the object code and Corresponding
|
||||
Source of the work are being offered to the general public at no
|
||||
charge under subsection 6d.
|
||||
|
||||
A separable portion of the object code, whose source code is excluded
|
||||
from the Corresponding Source as a System Library, need not be
|
||||
included in conveying the object code work.
|
||||
|
||||
A "User Product" is either (1) a "consumer product", which means any
|
||||
tangible personal property which is normally used for personal, family,
|
||||
or household purposes, or (2) anything designed or sold for incorporation
|
||||
into a dwelling. In determining whether a product is a consumer product,
|
||||
doubtful cases shall be resolved in favor of coverage. For a particular
|
||||
product received by a particular user, "normally used" refers to a
|
||||
typical or common use of that class of product, regardless of the status
|
||||
of the particular user or of the way in which the particular user
|
||||
actually uses, or expects or is expected to use, the product. A product
|
||||
is a consumer product regardless of whether the product has substantial
|
||||
commercial, industrial or non-consumer uses, unless such uses represent
|
||||
the only significant mode of use of the product.
|
||||
|
||||
"Installation Information" for a User Product means any methods,
|
||||
procedures, authorization keys, or other information required to install
|
||||
and execute modified versions of a covered work in that User Product from
|
||||
a modified version of its Corresponding Source. The information must
|
||||
suffice to ensure that the continued functioning of the modified object
|
||||
code is in no case prevented or interfered with solely because
|
||||
modification has been made.
|
||||
|
||||
If you convey an object code work under this section in, or with, or
|
||||
specifically for use in, a User Product, and the conveying occurs as
|
||||
part of a transaction in which the right of possession and use of the
|
||||
User Product is transferred to the recipient in perpetuity or for a
|
||||
fixed term (regardless of how the transaction is characterized), the
|
||||
Corresponding Source conveyed under this section must be accompanied
|
||||
by the Installation Information. But this requirement does not apply
|
||||
if neither you nor any third party retains the ability to install
|
||||
modified object code on the User Product (for example, the work has
|
||||
been installed in ROM).
|
||||
|
||||
The requirement to provide Installation Information does not include a
|
||||
requirement to continue to provide support service, warranty, or updates
|
||||
for a work that has been modified or installed by the recipient, or for
|
||||
the User Product in which it has been modified or installed. Access to a
|
||||
network may be denied when the modification itself materially and
|
||||
adversely affects the operation of the network or violates the rules and
|
||||
protocols for communication across the network.
|
||||
|
||||
Corresponding Source conveyed, and Installation Information provided,
|
||||
in accord with this section must be in a format that is publicly
|
||||
documented (and with an implementation available to the public in
|
||||
source code form), and must require no special password or key for
|
||||
unpacking, reading or copying.
|
||||
|
||||
7. Additional Terms.
|
||||
|
||||
"Additional permissions" are terms that supplement the terms of this
|
||||
License by making exceptions from one or more of its conditions.
|
||||
Additional permissions that are applicable to the entire Program shall
|
||||
be treated as though they were included in this License, to the extent
|
||||
that they are valid under applicable law. If additional permissions
|
||||
apply only to part of the Program, that part may be used separately
|
||||
under those permissions, but the entire Program remains governed by
|
||||
this License without regard to the additional permissions.
|
||||
|
||||
When you convey a copy of a covered work, you may at your option
|
||||
remove any additional permissions from that copy, or from any part of
|
||||
it. (Additional permissions may be written to require their own
|
||||
removal in certain cases when you modify the work.) You may place
|
||||
additional permissions on material, added by you to a covered work,
|
||||
for which you have or can give appropriate copyright permission.
|
||||
|
||||
Notwithstanding any other provision of this License, for material you
|
||||
add to a covered work, you may (if authorized by the copyright holders of
|
||||
that material) supplement the terms of this License with terms:
|
||||
|
||||
a) Disclaiming warranty or limiting liability differently from the
|
||||
terms of sections 15 and 16 of this License; or
|
||||
|
||||
b) Requiring preservation of specified reasonable legal notices or
|
||||
author attributions in that material or in the Appropriate Legal
|
||||
Notices displayed by works containing it; or
|
||||
|
||||
c) Prohibiting misrepresentation of the origin of that material, or
|
||||
requiring that modified versions of such material be marked in
|
||||
reasonable ways as different from the original version; or
|
||||
|
||||
d) Limiting the use for publicity purposes of names of licensors or
|
||||
authors of the material; or
|
||||
|
||||
e) Declining to grant rights under trademark law for use of some
|
||||
trade names, trademarks, or service marks; or
|
||||
|
||||
f) Requiring indemnification of licensors and authors of that
|
||||
material by anyone who conveys the material (or modified versions of
|
||||
it) with contractual assumptions of liability to the recipient, for
|
||||
any liability that these contractual assumptions directly impose on
|
||||
those licensors and authors.
|
||||
|
||||
All other non-permissive additional terms are considered "further
|
||||
restrictions" within the meaning of section 10. If the Program as you
|
||||
received it, or any part of it, contains a notice stating that it is
|
||||
governed by this License along with a term that is a further
|
||||
restriction, you may remove that term. If a license document contains
|
||||
a further restriction but permits relicensing or conveying under this
|
||||
License, you may add to a covered work material governed by the terms
|
||||
of that license document, provided that the further restriction does
|
||||
not survive such relicensing or conveying.
|
||||
|
||||
If you add terms to a covered work in accord with this section, you
|
||||
must place, in the relevant source files, a statement of the
|
||||
additional terms that apply to those files, or a notice indicating
|
||||
where to find the applicable terms.
|
||||
|
||||
Additional terms, permissive or non-permissive, may be stated in the
|
||||
form of a separately written license, or stated as exceptions;
|
||||
the above requirements apply either way.
|
||||
|
||||
8. Termination.
|
||||
|
||||
You may not propagate or modify a covered work except as expressly
|
||||
provided under this License. Any attempt otherwise to propagate or
|
||||
modify it is void, and will automatically terminate your rights under
|
||||
this License (including any patent licenses granted under the third
|
||||
paragraph of section 11).
|
||||
|
||||
However, if you cease all violation of this License, then your
|
||||
license from a particular copyright holder is reinstated (a)
|
||||
provisionally, unless and until the copyright holder explicitly and
|
||||
finally terminates your license, and (b) permanently, if the copyright
|
||||
holder fails to notify you of the violation by some reasonable means
|
||||
prior to 60 days after the cessation.
|
||||
|
||||
Moreover, your license from a particular copyright holder is
|
||||
reinstated permanently if the copyright holder notifies you of the
|
||||
violation by some reasonable means, this is the first time you have
|
||||
received notice of violation of this License (for any work) from that
|
||||
copyright holder, and you cure the violation prior to 30 days after
|
||||
your receipt of the notice.
|
||||
|
||||
Termination of your rights under this section does not terminate the
|
||||
licenses of parties who have received copies or rights from you under
|
||||
this License. If your rights have been terminated and not permanently
|
||||
reinstated, you do not qualify to receive new licenses for the same
|
||||
material under section 10.
|
||||
|
||||
9. Acceptance Not Required for Having Copies.
|
||||
|
||||
You are not required to accept this License in order to receive or
|
||||
run a copy of the Program. Ancillary propagation of a covered work
|
||||
occurring solely as a consequence of using peer-to-peer transmission
|
||||
to receive a copy likewise does not require acceptance. However,
|
||||
nothing other than this License grants you permission to propagate or
|
||||
modify any covered work. These actions infringe copyright if you do
|
||||
not accept this License. Therefore, by modifying or propagating a
|
||||
covered work, you indicate your acceptance of this License to do so.
|
||||
|
||||
10. Automatic Licensing of Downstream Recipients.
|
||||
|
||||
Each time you convey a covered work, the recipient automatically
|
||||
receives a license from the original licensors, to run, modify and
|
||||
propagate that work, subject to this License. You are not responsible
|
||||
for enforcing compliance by third parties with this License.
|
||||
|
||||
An "entity transaction" is a transaction transferring control of an
|
||||
organization, or substantially all assets of one, or subdividing an
|
||||
organization, or merging organizations. If propagation of a covered
|
||||
work results from an entity transaction, each party to that
|
||||
transaction who receives a copy of the work also receives whatever
|
||||
licenses to the work the party's predecessor in interest had or could
|
||||
give under the previous paragraph, plus a right to possession of the
|
||||
Corresponding Source of the work from the predecessor in interest, if
|
||||
the predecessor has it or can get it with reasonable efforts.
|
||||
|
||||
You may not impose any further restrictions on the exercise of the
|
||||
rights granted or affirmed under this License. For example, you may
|
||||
not impose a license fee, royalty, or other charge for exercise of
|
||||
rights granted under this License, and you may not initiate litigation
|
||||
(including a cross-claim or counterclaim in a lawsuit) alleging that
|
||||
any patent claim is infringed by making, using, selling, offering for
|
||||
sale, or importing the Program or any portion of it.
|
||||
|
||||
11. Patents.
|
||||
|
||||
A "contributor" is a copyright holder who authorizes use under this
|
||||
License of the Program or a work on which the Program is based. The
|
||||
work thus licensed is called the contributor's "contributor version".
|
||||
|
||||
A contributor's "essential patent claims" are all patent claims
|
||||
owned or controlled by the contributor, whether already acquired or
|
||||
hereafter acquired, that would be infringed by some manner, permitted
|
||||
by this License, of making, using, or selling its contributor version,
|
||||
but do not include claims that would be infringed only as a
|
||||
consequence of further modification of the contributor version. For
|
||||
purposes of this definition, "control" includes the right to grant
|
||||
patent sublicenses in a manner consistent with the requirements of
|
||||
this License.
|
||||
|
||||
Each contributor grants you a non-exclusive, worldwide, royalty-free
|
||||
patent license under the contributor's essential patent claims, to
|
||||
make, use, sell, offer for sale, import and otherwise run, modify and
|
||||
propagate the contents of its contributor version.
|
||||
|
||||
In the following three paragraphs, a "patent license" is any express
|
||||
agreement or commitment, however denominated, not to enforce a patent
|
||||
(such as an express permission to practice a patent or covenant not to
|
||||
sue for patent infringement). To "grant" such a patent license to a
|
||||
party means to make such an agreement or commitment not to enforce a
|
||||
patent against the party.
|
||||
|
||||
If you convey a covered work, knowingly relying on a patent license,
|
||||
and the Corresponding Source of the work is not available for anyone
|
||||
to copy, free of charge and under the terms of this License, through a
|
||||
publicly available network server or other readily accessible means,
|
||||
then you must either (1) cause the Corresponding Source to be so
|
||||
available, or (2) arrange to deprive yourself of the benefit of the
|
||||
patent license for this particular work, or (3) arrange, in a manner
|
||||
consistent with the requirements of this License, to extend the patent
|
||||
license to downstream recipients. "Knowingly relying" means you have
|
||||
actual knowledge that, but for the patent license, your conveying the
|
||||
covered work in a country, or your recipient's use of the covered work
|
||||
in a country, would infringe one or more identifiable patents in that
|
||||
country that you have reason to believe are valid.
|
||||
|
||||
If, pursuant to or in connection with a single transaction or
|
||||
arrangement, you convey, or propagate by procuring conveyance of, a
|
||||
covered work, and grant a patent license to some of the parties
|
||||
receiving the covered work authorizing them to use, propagate, modify
|
||||
or convey a specific copy of the covered work, then the patent license
|
||||
you grant is automatically extended to all recipients of the covered
|
||||
work and works based on it.
|
||||
|
||||
A patent license is "discriminatory" if it does not include within
|
||||
the scope of its coverage, prohibits the exercise of, or is
|
||||
conditioned on the non-exercise of one or more of the rights that are
|
||||
specifically granted under this License. You may not convey a covered
|
||||
work if you are a party to an arrangement with a third party that is
|
||||
in the business of distributing software, under which you make payment
|
||||
to the third party based on the extent of your activity of conveying
|
||||
the work, and under which the third party grants, to any of the
|
||||
parties who would receive the covered work from you, a discriminatory
|
||||
patent license (a) in connection with copies of the covered work
|
||||
conveyed by you (or copies made from those copies), or (b) primarily
|
||||
for and in connection with specific products or compilations that
|
||||
contain the covered work, unless you entered into that arrangement,
|
||||
or that patent license was granted, prior to 28 March 2007.
|
||||
|
||||
Nothing in this License shall be construed as excluding or limiting
|
||||
any implied license or other defenses to infringement that may
|
||||
otherwise be available to you under applicable patent law.
|
||||
|
||||
12. No Surrender of Others' Freedom.
|
||||
|
||||
If conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot convey a
|
||||
covered work so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you may
|
||||
not convey it at all. For example, if you agree to terms that obligate you
|
||||
to collect a royalty for further conveying from those to whom you convey
|
||||
the Program, the only way you could satisfy both those terms and this
|
||||
License would be to refrain entirely from conveying the Program.
|
||||
|
||||
13. Use with the GNU Affero General Public License.
|
||||
|
||||
Notwithstanding any other provision of this License, you have
|
||||
permission to link or combine any covered work with a work licensed
|
||||
under version 3 of the GNU Affero General Public License into a single
|
||||
combined work, and to convey the resulting work. The terms of this
|
||||
License will continue to apply to the part which is the covered work,
|
||||
but the special requirements of the GNU Affero General Public License,
|
||||
section 13, concerning interaction through a network will apply to the
|
||||
combination as such.
|
||||
|
||||
14. Revised Versions of this License.
|
||||
|
||||
The Free Software Foundation may publish revised and/or new versions of
|
||||
the GNU General Public License from time to time. Such new versions will
|
||||
be similar in spirit to the present version, but may differ in detail to
|
||||
address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the
|
||||
Program specifies that a certain numbered version of the GNU General
|
||||
Public License "or any later version" applies to it, you have the
|
||||
option of following the terms and conditions either of that numbered
|
||||
version or of any later version published by the Free Software
|
||||
Foundation. If the Program does not specify a version number of the
|
||||
GNU General Public License, you may choose any version ever published
|
||||
by the Free Software Foundation.
|
||||
|
||||
If the Program specifies that a proxy can decide which future
|
||||
versions of the GNU General Public License can be used, that proxy's
|
||||
public statement of acceptance of a version permanently authorizes you
|
||||
to choose that version for the Program.
|
||||
|
||||
Later license versions may give you additional or different
|
||||
permissions. However, no additional obligations are imposed on any
|
||||
author or copyright holder as a result of your choosing to follow a
|
||||
later version.
|
||||
|
||||
15. Disclaimer of Warranty.
|
||||
|
||||
THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
|
||||
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
|
||||
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
|
||||
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
|
||||
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
||||
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
|
||||
IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
|
||||
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
|
||||
|
||||
16. Limitation of Liability.
|
||||
|
||||
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
|
||||
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
|
||||
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
|
||||
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
|
||||
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
|
||||
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
|
||||
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
|
||||
SUCH DAMAGES.
|
||||
|
||||
17. Interpretation of Sections 15 and 16.
|
||||
|
||||
If the disclaimer of warranty and limitation of liability provided
|
||||
above cannot be given local legal effect according to their terms,
|
||||
reviewing courts shall apply local law that most closely approximates
|
||||
an absolute waiver of all civil liability in connection with the
|
||||
Program, unless a warranty or assumption of liability accompanies a
|
||||
copy of the Program in return for a fee.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
How to Apply These Terms to Your New Programs
|
||||
|
||||
If you develop a new program, and you want it to be of the greatest
|
||||
possible use to the public, the best way to achieve this is to make it
|
||||
free software which everyone can redistribute and change under these terms.
|
||||
|
||||
To do so, attach the following notices to the program. It is safest
|
||||
to attach them to the start of each source file to most effectively
|
||||
state the exclusion of warranty; and each file should have at least
|
||||
the "copyright" line and a pointer to where the full notice is found.
|
||||
|
||||
<one line to give the program's name and a brief idea of what it does.>
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
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/>.
|
||||
|
||||
Also add information on how to contact you by electronic and paper mail.
|
||||
|
||||
If the program does terminal interaction, make it output a short
|
||||
notice like this when it starts in an interactive mode:
|
||||
|
||||
<program> Copyright (C) <year> <name of author>
|
||||
This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
|
||||
This is free software, and you are welcome to redistribute it
|
||||
under certain conditions; type `show c' for details.
|
||||
|
||||
The hypothetical commands `show w' and `show c' should show the appropriate
|
||||
parts of the General Public License. Of course, your program's commands
|
||||
might be different; for a GUI interface, you would use an "about box".
|
||||
|
||||
You should also get your employer (if you work as a programmer) or school,
|
||||
if any, to sign a "copyright disclaimer" for the program, if necessary.
|
||||
For more information on this, and how to apply and follow the GNU GPL, see
|
||||
<http://www.gnu.org/licenses/>.
|
||||
|
||||
The GNU General Public License does not permit incorporating your program
|
||||
into proprietary programs. If your program is a subroutine library, you
|
||||
may consider it more useful to permit linking proprietary applications with
|
||||
the library. If this is what you want to do, use the GNU Lesser General
|
||||
Public License instead of this License. But first, please read
|
||||
<http://www.gnu.org/philosophy/why-not-lgpl.html>.
|
72
Changes
72
Changes
@ -1,19 +1,35 @@
|
||||
arclog change log
|
||||
|
||||
2020-02-06
|
||||
1. Replaced the messy GNU-styled, multi-lingual documents with a
|
||||
single Markdown README.md.
|
||||
2. Added the GitHub repository to the document, and removed the
|
||||
SourceForge website, my web page, and the SourceForge mailing
|
||||
list from the document.
|
||||
3. Removed the document license, and my PGP key from the package.
|
||||
Removed the signature file from the repository.
|
||||
4. Various fixes to avoid JetBrains IDE problem detection.
|
||||
|
||||
2020-02-04
|
||||
Changed the license from GPLv3 to APLv2.
|
||||
|
||||
2020-02-01
|
||||
arclog is hosted on GitHub now.
|
||||
|
||||
2008-11-18
|
||||
1. INSTALL and arclog.en.html: Fixed the grammer on
|
||||
1. INSTALL and arclog.en.html: Fixed the grammar on
|
||||
installation with the CPAN or CPANPLUS shell, changed
|
||||
"install with the CPAN shell using" and "install with the
|
||||
CPANPLUS shell using" to "install it with the CPAN shell
|
||||
by running" and "install it with the CPANPLUS shell by
|
||||
running".
|
||||
2. INSTALL* and ahping.*.html: Changed "Fedora/Red Hat" to
|
||||
2. INSTALL* and reslog.*.html: Changed "Fedora/Red Hat" to
|
||||
"Red Hat/Fedora/CentOS".
|
||||
3. INSTALL.zh-tw and INSTALL.zh-cn: Added the missing
|
||||
Date::Parse to the required modules section.
|
||||
|
||||
2008-11-17
|
||||
1. INSTALL and arclog.en.html: Fixed the grammer on required
|
||||
1. INSTALL and arclog.en.html: Fixed the grammar on required
|
||||
and optional module installation, changed "install using"
|
||||
and "install this using" to "install it by running".
|
||||
|
||||
@ -23,7 +39,7 @@ arclog change log
|
||||
in required modules. It is stated in the module
|
||||
description in detail now.
|
||||
3. arclog.*.html: Fixed so that installation from source and
|
||||
with shells are joint into one sentense.
|
||||
with shells are joint into one sentence.
|
||||
|
||||
2008-11-12
|
||||
1. INSTALL, arclog.en.html: Updated "don't" and "won't" to
|
||||
@ -85,8 +101,8 @@ arclog change log
|
||||
_private::LogFile class.
|
||||
|
||||
2007-12-03
|
||||
1. arclog.zh-tw.html, arclog.zh-cn.html: "不需要安裝新版" was
|
||||
revised to "不需要昇級新版".
|
||||
1. arclog.zh-tw.html, arclog.zh-cn.html: "不需要安裝新版" was
|
||||
revised to "不需要昇級新版".
|
||||
2. Build.PL: Fixed the comment. This file is "Build.PL",
|
||||
not "Makefile.PL".
|
||||
3. Build.PL: Added "use warnings;".
|
||||
@ -95,14 +111,14 @@ arclog change log
|
||||
Documentation fix.
|
||||
1. arclog, arclog.*.html, README*: Added the information on
|
||||
the usability of arclog with log files from many
|
||||
softwares that log with an Apache-like log format.
|
||||
software that log with an Apache-like log format.
|
||||
2. arclog.zh-cn.html: Fixed the version number.
|
||||
3. arclog.*.html: Added <dfn>...</dfn> to the description.
|
||||
|
||||
2007-12-03 version 3.03
|
||||
1. t/*.t: Fixed so that send frread($fs) instead of $cs
|
||||
is sent to arclog STDIN when reading from STDIN, so that
|
||||
compresed content is sent to arclog but not the original
|
||||
compressed content is sent to arclog but not the original
|
||||
content.
|
||||
2. arclog.zh-tw.html, arclog.zh-cn.html: Revised the Chinese
|
||||
text on "3-argument open()" so that it is more readable.
|
||||
@ -151,7 +167,7 @@ arclog change log
|
||||
|
||||
2007-11-29
|
||||
1. arclog.zh-tw.html, TODO.zh-tw, TODO.zh-cn: Changed
|
||||
'繁體中文' to '正體中文'.
|
||||
'繁體中文' to '正體中文'.
|
||||
|
||||
2007-11-28 version 3.01
|
||||
Test suite improvement.
|
||||
@ -159,7 +175,7 @@ arclog change log
|
||||
2. Makefile.PL: Use "use 5.008" instead of "use 5.8.0" for
|
||||
compatibility with older Perl.
|
||||
3. t/01-exhaust.t: Added $vardump to error output, to catch
|
||||
CPAN testers test failurs.
|
||||
CPAN testers test failures.
|
||||
4. Return to build distribution with ExtUtils::MakeMaker,
|
||||
since Module::Build did not preserve the original file
|
||||
date.
|
||||
@ -300,8 +316,8 @@ arclog change log
|
||||
other packages can use it, too.
|
||||
2. arclog: Added $one_arg in the parse_arg() subroutine to deal with
|
||||
only one argument, and check if the only one argument is STDIN in
|
||||
advance. If a compressd source log file is the only one argument,
|
||||
remove the compresssion suffix (.gz or .bz2) from the output
|
||||
advance. If a compressed source log file is the only one argument,
|
||||
remove the compression suffix (.gz or .bz2) from the output
|
||||
prefix.
|
||||
3. _helper.pm: Added the cleanup() subroutine to clean up after
|
||||
a test.
|
||||
@ -332,22 +348,22 @@ arclog change log
|
||||
3. arclog: Reformatted the POD document.
|
||||
4. arclog: Added the sort() method to the _private::Archive package,
|
||||
and implement the sorting ability. The new way (sort the
|
||||
record index but not record themseves) seems to have lesser
|
||||
record index but not record themselves) seems to have lesser
|
||||
memory impact than the original implementation.
|
||||
5. arclog: Added time zone to the bracked ISO 8601 format.
|
||||
5. arclog: Added time zone to the bracketed ISO 8601 format.
|
||||
6. Upgrade notes changed from 2.1.1dev3 to 2.1.1dev4.
|
||||
6. arclog: Rename the _private::Format::BracketISO package to
|
||||
_private::Format::ModfISO. It is not really ISO 8601.
|
||||
|
||||
2007-11-14
|
||||
1. Changes.zh-tw, Changes.zh-cn: Removed. It is too troblesome to
|
||||
1. Changes.zh-tw, Changes.zh-cn: Removed. It is too troublesome to
|
||||
maintain 3 copies of the change log.
|
||||
2. arclog: Fixed the rel2abs() subroutine and method so that it use
|
||||
getpwuid() instead of getlogin(), and respect the HOME environment
|
||||
variable for the current user.
|
||||
3. arclog: Renamed the new_read() method as open_read(), the
|
||||
new_write() method as open_write(), the new_append() method
|
||||
as open_append(). Replaced the strange architech that start
|
||||
as open_append(). Replaced the strange architect that start
|
||||
a new instance with $ioclass, with reusing the same $io object.
|
||||
4. arclog: Removed the Chinese GPL copyright message. There should
|
||||
only be one version of the copyright message, and should not be
|
||||
@ -443,7 +459,7 @@ arclog change log
|
||||
1. Reading loop changed from do {...} while()
|
||||
to for(;;;) {...}, to fix the problem
|
||||
"Exiting subroutine via next at ..." when
|
||||
encounting and skipping a bad record.
|
||||
encountering and skipping a bad record.
|
||||
|
||||
2003-01-04
|
||||
1. File handler EOF read checks were fixed with
|
||||
@ -536,12 +552,12 @@ arclog change log
|
||||
2002-08-31 version 2.1.0dev1
|
||||
Rewrite after almost 1 year, to be run on the
|
||||
newly-released Perl 5.8.0.
|
||||
1. Filehandles are now saved and passed in global
|
||||
1. File handles are now saved and passed in global
|
||||
named variables. This is the way it should be.
|
||||
The old way (initialize the file handles by
|
||||
duplicate the STDIN and assign them) was just
|
||||
not natural. It works in Perl 5.6.1, but not in
|
||||
perl 5.8.0. The duplicated filehandles are
|
||||
perl 5.8.0. The duplicated file handles are
|
||||
constants, which cannot be assigned new values.
|
||||
2. Indents are changed from 1 tab to 4 columns, to
|
||||
accommodate the Perl style guide documented in
|
||||
@ -603,7 +619,7 @@ arclog change log
|
||||
file is met, was fixed.
|
||||
2. "none" keep mode was removed. "restart" and
|
||||
"delete" keep modes were added.
|
||||
3. Precheck on empty files was added. It bounces
|
||||
3. Pre-check on empty files was added. It bounces
|
||||
directly when an empty file is found in the
|
||||
first sight.
|
||||
4. A bug that there's no documentation on --keep
|
||||
@ -635,7 +651,7 @@ arclog change log
|
||||
|
||||
2001-06-11 version 1.5.1
|
||||
1. A serious bug was fixed. :p I was planning to set
|
||||
the memory limit dymatically but failed. And I
|
||||
the memory limit dynamically but failed. And I
|
||||
forgot to return the original codes, which
|
||||
prevents the program from running.
|
||||
2. The argument checking was modified to report
|
||||
@ -685,7 +701,7 @@ arclog change log
|
||||
3. "append" override mode was added. When the
|
||||
target archived file exists, it appends the
|
||||
records for that month to that file, for easy
|
||||
merging on seperated log files.
|
||||
merging on separated log files.
|
||||
4. --sort option was added, to sort the records
|
||||
in a log file by time.
|
||||
5. syslog log file format was supported.
|
||||
@ -698,7 +714,7 @@ arclog change log
|
||||
overwrite.
|
||||
1. Program flow was rewritten. The file open
|
||||
routine when open an archived file at the first
|
||||
time was seperated, to insert handlers for
|
||||
time was separated, to insert handlers for
|
||||
existing old archived files.
|
||||
2. --override option was added, to set the
|
||||
override behavior when old archived files exist.
|
||||
@ -708,7 +724,7 @@ arclog change log
|
||||
the temporary working files.
|
||||
4. --compress option was added to set if we should
|
||||
compress the archived files.
|
||||
5. Checking on write previledge of the output
|
||||
5. Checking on write privilege of the output
|
||||
directory was added.
|
||||
6. A bug that rel2abs will wrongly ignore the last
|
||||
part of a path when it is the current or parent
|
||||
@ -727,7 +743,7 @@ arclog change log
|
||||
autoflush STDOUT solely under debugging mode.
|
||||
2. Temporary working file method was removed. Works
|
||||
are done on the source file, to avoid the
|
||||
garbages when program stopped in the middle.
|
||||
garbage when program stopped in the middle.
|
||||
3. File::Temp was introduced to handle the
|
||||
temporary working file. Records of this month
|
||||
was outputs to temporary file at first.
|
||||
@ -735,7 +751,7 @@ arclog change log
|
||||
5. "wb9" was introduced to zip with highest ratio.
|
||||
6. Zipping size message was added.
|
||||
7. format_number() was added to format the numbers.
|
||||
8. GNU copyright infomation was added.
|
||||
8. GNU copyright information was added.
|
||||
9. Chinese annotations was added.
|
||||
10. POD documents was added.
|
||||
11. Release notes was added.
|
||||
@ -748,7 +764,7 @@ arclog change log
|
||||
2001-06-05 version 1.2.0
|
||||
1. Program flow was rewritten. Now it outputs to
|
||||
the target file without gzipping first. Gzip
|
||||
will be done next after finishing all outouts.
|
||||
will be done next after finishing all outputs.
|
||||
2. Message level was changed to $VERBOSE.
|
||||
3. The default message level was changed to 1. The
|
||||
debugging message level was changed to 2.
|
||||
@ -772,7 +788,7 @@ arclog change log
|
||||
arguments, in replace of my own argument-parsing
|
||||
routine.
|
||||
5. File::Spec::Functions was introduced to handle
|
||||
the pathnames, with my own rel2abs.
|
||||
the pathname, with my own rel2abs.
|
||||
6. Cwd was introduced to obtain the current working
|
||||
directory.
|
||||
|
||||
|
211
INSTALL
211
INSTALL
@ -1,211 +0,0 @@
|
||||
arclog Installation Guide
|
||||
|
||||
* Table of Contents
|
||||
|
||||
* System Requirements
|
||||
* Installation Instruction
|
||||
** Install with ExtUtils::MakeMaker
|
||||
** Install with Module::Build
|
||||
|
||||
|
||||
* System Requirements
|
||||
|
||||
1. Perl, version 5.8.0 or above. arclog uses 3-argument open() to
|
||||
duplicate filehandles, which is only supported since 5.8.0. I have
|
||||
not successfully port this onto earlier versions yet. Please tell me
|
||||
if you made it. You can run perl -v to see your current Perl version.
|
||||
If you do not have Perl, or if you have an older version of Perl, you
|
||||
can download and install/upgrade it from Perl website.
|
||||
|
||||
http://www.perl.com/
|
||||
|
||||
If you are using MS-Windows, you can download and install
|
||||
ActiveState ActivePerl.
|
||||
|
||||
http://www.activestate.com/
|
||||
|
||||
2. Required Perl modules:
|
||||
|
||||
* Date::Parse
|
||||
|
||||
This is used to parse the timestamp of the log records.
|
||||
You can download and install Date::Parse from the CPAN archive
|
||||
http://search.cpan.org/dist/TimeDate/ ,
|
||||
or install it with the CPAN shell by running "cpan Date::Parse",
|
||||
or install it with the CPANPLUS shell by running
|
||||
"cpanp i Date::Parse".
|
||||
Debian/Ubandu Linux users can install it by running
|
||||
"apt-get install libtimedate-perl".
|
||||
Red Hat/Fedora/CentOS Linux users can install it by running
|
||||
"yum install perl-TimeDate".
|
||||
FreeBSD users can install it by running
|
||||
"ports install p5-TimeDate".
|
||||
ActivePerl users can install it by running
|
||||
"ppm install Date::Parse".
|
||||
|
||||
If you install arclog with the CPAN or CPANPLUS shell, the above
|
||||
shall be automatically installed.
|
||||
|
||||
3. Optional Perl Modules
|
||||
|
||||
* File::MMagic
|
||||
|
||||
This is used to check the file type. If this is not
|
||||
available, arclog will look for the file executable instead.
|
||||
If that is not available, too, arclog will judge the file type
|
||||
by its name suffix (extension). In that case arclog will fail
|
||||
when reading from STDIN.
|
||||
You can download and install File::MMagic from the CPAN archive
|
||||
http://search.cpan.org/dist/File-MMagic/ ,
|
||||
or install it with the CPAN shell by running "cpan File::MMagic",
|
||||
or install it with the CPANPLUS shell by running
|
||||
"cpanp i File::MMagic".
|
||||
Debian/Ubandu Linux users can install it by running
|
||||
"apt-get install libfile-mmagic-perl".
|
||||
Red Hat/Fedora/CentOS Linux users can install it by running
|
||||
"yum install perl-File-MMagic".
|
||||
FreeBSD users can install it by running
|
||||
"ports install p5-File-MMagic".
|
||||
ActivePerl MS-Windows users can install it by running
|
||||
"ppm install File::MMagic".
|
||||
The alternative file.exe for MS-Windows can be obtained from
|
||||
the GnuWin32 home page: http://gnuwin32.sourceforge.net/.
|
||||
Be sure to save it as file.exe somewhere in your PATH.
|
||||
|
||||
It is preferred to use File::MMagic. The file executable
|
||||
seems to make mistakes occationally.
|
||||
|
||||
* Compress::Zlib
|
||||
|
||||
This is used to support read/write of gzip compressed files.
|
||||
It is only needed when gzip compressed files are encountered.
|
||||
If it is not available when needed, arclog will try to use the
|
||||
gzip executable instead. If that is not available, too, arclog
|
||||
will fail.
|
||||
You can download and install Compress::Zlib from the CPAN archive
|
||||
http://search.cpan.org/dist/Compress-Zlib/ ,
|
||||
or install it with the CPAN shell by running "cpan Compress::Zlib",
|
||||
or install it with the CPANPLUS shell by running
|
||||
"cpanp i Compress::Zlib".
|
||||
Debian/Ubandu Linux users can install it by running
|
||||
"apt-get install libcompress-zlib-perl".
|
||||
Red Hat/Fedora/CentOS Linux users can install it by running
|
||||
"yum install perl-Compress-Zlib".
|
||||
FreeBSD users can install it by running
|
||||
"ports install p5-Compress-Zlib".
|
||||
ActivePerl MS-Windows users can install it by running
|
||||
"ppm install Compress::Zlib".
|
||||
The alternative gzip.exe for MS-Windows can be obtained from
|
||||
the gzip home page: http://www.gzip.org/.
|
||||
Be sure to save it as gzip.exe somewhere in your PATH.
|
||||
|
||||
* Compress::Bzip2, version 2 or above
|
||||
|
||||
This is used to support read/write of bzip2 compressed
|
||||
files. It is only needed when bzip2 compressed files are
|
||||
encountered. If it is not available when needed, arclog will
|
||||
try to use the bzip2 executable instead. If that is not
|
||||
available, too, arclog will fail. Notice that older versions
|
||||
before 2 does not work, since file I/O compression were not
|
||||
implemented yet.
|
||||
You can download and install Compress::Bzip2 from the CPAN archive
|
||||
http://search.cpan.org/dist/Compress-Bzip2/ ,
|
||||
or install it with the CPAN shell by running "cpan Compress::Bzip2",
|
||||
or install it with the CPANPLUS shell by running
|
||||
"cpanp i Compress::Bzip2".
|
||||
Debian/Ubandu Linux users can install it by running
|
||||
"apt-get install libcompress-bzip2-perl".
|
||||
Red Hat/Fedora/CentOS Linux users can install it by running
|
||||
"yum install perl-Compress-Bzip2".
|
||||
FreeBSD users can install it by running
|
||||
"ports install p5-Compress-Bzip2".
|
||||
ActivePerl MS-Windows users can install it by running
|
||||
"ppm install Compress::Bzip2".
|
||||
The alternative bzip2.exe for MS-Windows can be obtained from
|
||||
the bzip2 home page: http://www.bzip.org/.
|
||||
Be sure to save it as bzip2.exe somewhere in your PATH.
|
||||
|
||||
* Term::ReadKey
|
||||
|
||||
This is used to display the progress bar. Without this
|
||||
arclog will not display the progress bar, but nothing else is
|
||||
different. The progress bar is a good visual representation of
|
||||
what arclog is currently doing.
|
||||
You can download and install Term::ReadKey from the CPAN archive
|
||||
http://search.cpan.org/dist/TermReadKey/ ,
|
||||
or install it with the CPAN shell by running "cpan Term::ReadKey",
|
||||
or install it with the CPANPLUS shell by running
|
||||
"cpanp i Term::ReadKey".
|
||||
Debian/Ubandu Linux users can install it by running
|
||||
"apt-get install libterm-readkey-perl".
|
||||
Red Hat/Fedora/CentOS Linux users can install it by running
|
||||
"yum install perl-TermReadKey".
|
||||
FreeBSD users can install it by running
|
||||
"ports install p5-Term-ReadKey".
|
||||
ActivePerl MS-Windows users can install it by running
|
||||
"ppm install Term::ReadKey".
|
||||
|
||||
|
||||
* Installation Instruction
|
||||
|
||||
If you are upgrading from arclog.pl 2.1.1dev4 or earlier, please
|
||||
read UPGRADE for some upgrade instruction.
|
||||
|
||||
** Install with ExtUtils::MakeMaker
|
||||
|
||||
arclog uses standard Perl installation with ExtUtils::MakeMaker.
|
||||
Follow these steps:
|
||||
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
|
||||
When running make install, make sure you have the priviledge to
|
||||
write to the installation location. This usually requires the root
|
||||
priviledge.
|
||||
|
||||
If you are using ActivePerl under MS-Windows, you should use
|
||||
nmake instead of make. nmake can be obtained from the Microsoft FTP
|
||||
site.
|
||||
|
||||
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
|
||||
|
||||
If you want to install into another location, you can set the
|
||||
PREFIX. For example, to install into your home when you are not
|
||||
root:
|
||||
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
|
||||
Refer to the docuemntation of ExtUtils::MakeMaker for more
|
||||
installation options (by running perldoc ExtUtils::MakeMaker).
|
||||
|
||||
|
||||
** Install with Module::Build
|
||||
|
||||
You can install with Module::Build instead, if you prefer.
|
||||
Follow these steps:
|
||||
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
|
||||
When running ./Build install, make sure you have the priviledge to
|
||||
write to the installation location. This usually requires the root
|
||||
priviledge.
|
||||
|
||||
If you want to install into another location, you can set the
|
||||
--prefix. For example, to install into your home when you are not
|
||||
root:
|
||||
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
|
||||
Refer to the docuemntation of Module::Build for more
|
||||
installation options (by running perldoc Module::Build).
|
||||
|
||||
|
||||
imacat
|
||||
2008-11-17
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
186
INSTALL.zh-cn
186
INSTALL.zh-cn
@ -1,186 +0,0 @@
|
||||
arclog 安装指南
|
||||
|
||||
◎目录
|
||||
|
||||
◎系统需求
|
||||
◎安装指南
|
||||
◎◎以 ExtUtils::MakeMaker 安装
|
||||
◎◎以 Module::Build 安装
|
||||
|
||||
|
||||
◎系统需求
|
||||
|
||||
1. Perl 5.8.0 或以上。 arclog 使用三参数的 open() 以复制档案操作,
|
||||
我还不知道怎么改写到更早的版本上执行。若你可以改写到更早的版本上执行,
|
||||
请告诉我。你可以输入 perl -v 查询你目前的 Perl 版本。目前大多数的 Unix
|
||||
系统都有 Perl 。如果你没有 Perl 或需要升级,可以到 Perl 网站下载安装最
|
||||
新版 Perl 。
|
||||
|
||||
http://www.perl.com/
|
||||
|
||||
若你用 MS-Windows ,可以下载安装 ActiveState 公司的 ActivePerl 。
|
||||
|
||||
http://www.activestate.com/
|
||||
|
||||
2. 需搭配的 Perl 模组:无。
|
||||
|
||||
* Date::Parse
|
||||
|
||||
这是辨识记录时间用的。
|
||||
你可以由 CPAN 模组库下载安装 Date::Parse :
|
||||
http://search.cpan.org/dist/TimeDate/ ,
|
||||
或用 CPAN Shell 执行 cpan Date::Parse 安装,
|
||||
或用 CPANPLUS Shell 执行 cpanp i Date::Parse 安装。
|
||||
若你是 Debian/Ubandu Linux 使用者,可以执行
|
||||
apt-get install libtimedate-perl 安装。
|
||||
若你是 Red Hat/Fedora/CentOS Linux 使用者,可以执行
|
||||
yum install perl-TimeDate 安装。
|
||||
若你是 FreeBSD 使用者,可以执行
|
||||
ports install p5-TimeDate 安装。
|
||||
若你是 ActivePerl 使用者,可以执行
|
||||
ppm install Date::Parse 安装。
|
||||
|
||||
若你由 CPAN 或 CPANPLUS Shell 安装 arclog ,会自动帮你安装以上所
|
||||
需的模组。
|
||||
|
||||
3. 选配的 Perl 模组:
|
||||
|
||||
* File::MMagic
|
||||
|
||||
这是检查档案类型用的。若没有安装, arclog 会试著去找 file 程
|
||||
式代替。若还找不到, arclog 会改用档尾(副档名)判断档案类型。这
|
||||
时若从标准输入读档, arclog 会无法判断。
|
||||
你可以由 CPAN 模组库下载安装 File::MMagic :
|
||||
http://search.cpan.org/dist/File-MMagic/ ,
|
||||
或用 CPAN Shell 执行 cpan File::MMagic 安装,
|
||||
或用 CPANPLUS Shell 执行 cpanp i File::MMagic 安装。
|
||||
若你是 Debian/Ubandu Linux 使用者,可以执行
|
||||
apt-get install libfile-mmagic-perl 安装。
|
||||
若你是 Red Hat/Fedora/CentOS Linux 使用者,可以执行
|
||||
yum install perl-File-MMagic 安装。
|
||||
若你是 FreeBSD 使用者,可以执行
|
||||
ports install p5-File-MMagic 安装。
|
||||
若你是 ActivePerl 使用者,可以执行
|
||||
ppm install File::MMagic 安装。
|
||||
若你要在 MS-Windows 下使用 file.exe 程式,可以由
|
||||
GnuWin32 网站下载: http://gnuwin32.sourceforge.net/ 。
|
||||
请确认下载后,存档在系统的路径下,档名为 file.exe 。
|
||||
|
||||
建议用 File::MMagic 。 file 程式偶尔会误判。
|
||||
|
||||
* Compress::Zlib
|
||||
|
||||
这是处理 gzip 压缩档用的,只有处理 gzip 压缩档时才会用到。若
|
||||
要用时没有安装, arclog 会试著改用 gzip 程式代替。若还找不到,
|
||||
arclog 就无法执行。
|
||||
你可以由 CPAN 模组库下载安装 Compress::Zlib :
|
||||
http://search.cpan.org/dist/Compress-Zlib/ ,
|
||||
或用 CPAN Shell 执行 cpan Compress::Zlib 安装,
|
||||
或用 CPANPLUS Shell 执行 cpanp i Compress::Zlib 安装。
|
||||
若你是 Debian/Ubandu Linux 使用者,可以执行
|
||||
apt-get install libcompress-zlib-perl 安装。
|
||||
若你是 Red Hat/Fedora/CentOS Linux 使用者,可以执行
|
||||
yum install perl-Compress-Zlib 安装。
|
||||
若你是 FreeBSD 使用者,可以执行
|
||||
ports install p5-Compress-Zlib 安装。
|
||||
若你是 ActivePerl 使用者,可以执行
|
||||
ppm install Compress::Zlib 安装。
|
||||
若你要在 MS-Windows 下使用 gzip.exe 程式,可以由
|
||||
gzip 网站下载: http://www.gzip.org/ 。
|
||||
请确认下载后,存档在系统的路径下,档名为 gzip.exe 。
|
||||
|
||||
* Compress::Bzip2 第二版以上
|
||||
|
||||
这是支援读写 bzip2 压缩档用的,只有处理 bzip2 压缩档时才会用
|
||||
到。若要用时没有安装, arclog 会试著改用 bzip2 程式代替。若还找
|
||||
不到, arclog 就无法执行。
|
||||
你可以由 CPAN 模组库下载安装 Compress::Bzip2 :
|
||||
http://search.cpan.org/dist/Compress-Bzip2/ ,
|
||||
或用 CPAN Shell 执行 cpan Compress::Bzip2 安装,
|
||||
或用 CPANPLUS Shell 执行 cpanp i Compress::Bzip2 安装。
|
||||
若你是 Debian/Ubandu Linux 使用者,可以执行
|
||||
apt-get install libcompress-bzip2-perl 安装。
|
||||
若你是 Red Hat/Fedora/CentOS Linux 使用者,可以执行
|
||||
yum install perl-Compress-Bzip2 安装。
|
||||
若你是 FreeBSD 使用者,可以执行
|
||||
ports install p5-Compress-Bzip2 安装。
|
||||
若你是 ActivePerl 使用者,可以执行
|
||||
ppm install Compress::Bzip2 安装。
|
||||
若你要在 MS-Windows 下使用 bzip2.exe 程式,可以由
|
||||
bzip2 网站下载: http://www.bzip.org/ 。
|
||||
请确认下载后,存档在系统的路径下,档名为 bzip2.exe 。
|
||||
|
||||
* Term::ReadKey
|
||||
|
||||
这是显示进度列用的,若没有安装,就不会显示进度列。此外不会有
|
||||
任何问题。进度列可以让你对 arclog 的工作进度一目了然。
|
||||
你可以由 CPAN 模组库下载安装 Term::ReadKey :
|
||||
http://search.cpan.org/dist/TermReadKey/ ,
|
||||
或用 CPAN Shell 执行 cpan Term::ReadKey 安装,
|
||||
或用 CPANPLUS Shell 执行 cpanp i Term::ReadKey 安装。
|
||||
若你是 Debian/Ubandu Linux 使用者,可以执行
|
||||
apt-get install libterm-readkey-perl 安装。
|
||||
若你是 Red Hat/Fedora/CentOS Linux 使用者,可以执行
|
||||
yum install perl-TermReadKey 安装。
|
||||
若你是 FreeBSD 使用者,可以执行
|
||||
ports install p5-Term-ReadKey 安装。
|
||||
若你是 ActivePerl 使用者,可以执行
|
||||
ppm install Term::ReadKey 安装。
|
||||
|
||||
|
||||
◎安装指南
|
||||
|
||||
若你是由 arclog.pl 2.1.1dev4 以前的版本升级,请参阅 UPGRADE.zh-tw
|
||||
档的升级说明。
|
||||
|
||||
◎◎以 ExtUtils::MakeMaker 安装
|
||||
|
||||
arclog 用 Perl 标准的 ExtUtils::MakeMaker 安装,程序如下:
|
||||
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
|
||||
在 make install 前,请先确认你有在安装目录存档的权限。通常这时候
|
||||
要切换为 root ,才能安装存档。
|
||||
|
||||
若你是用 MS-Windows 下的 ActivePerl , make 请改用 nmake 。 nmake
|
||||
可由微软的 FTP 站下载:
|
||||
|
||||
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
|
||||
|
||||
若要安装到其它地方,请设定好 PREFIX 。例如,一般使用者,要安装在
|
||||
自己的目录下时:
|
||||
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
|
||||
要知道更多安装选项的细节,请参阅 ExtUtils::MakeMaker 的说明(请执
|
||||
行 perldoc ExtUtils::MakeMaker )。
|
||||
|
||||
|
||||
◎◎以 Module::Build 安装
|
||||
|
||||
若你喜欢,也可以用 Module::Build 安装,程序如下:
|
||||
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
|
||||
在 ./Build install 前,请先确认你有在安装目录存档的权限。通常这时
|
||||
候要切换为 root ,才能安装存档。
|
||||
|
||||
若要安装到其它地方,请设定好 --prefix 。例如,一般使用者,要安装
|
||||
在自己的目录下时:
|
||||
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
|
||||
要知道更多安装选项的细节,请参阅 Module::Build 的说明(请执行
|
||||
perldoc Module::Build )。
|
||||
|
||||
|
||||
依玛猫
|
||||
2008-11-18
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
186
INSTALL.zh-tw
186
INSTALL.zh-tw
@ -1,186 +0,0 @@
|
||||
arclog 安裝指南
|
||||
|
||||
◎目錄
|
||||
|
||||
◎系統需求
|
||||
◎安裝指南
|
||||
◎◎以 ExtUtils::MakeMaker 安裝
|
||||
◎◎以 Module::Build 安裝
|
||||
|
||||
|
||||
◎系統需求
|
||||
|
||||
1. Perl 5.8.0 或以上。 arclog 使用三參數的 open() 以複製檔案操作,
|
||||
我還不知道怎麼改寫到更早的版本上執行。若妳可以改寫到更早的版本上執行,
|
||||
請告訴我。妳可以輸入 perl -v 查詢妳目前的 Perl 版本。目前大多數的 Unix
|
||||
系統都有 Perl 。如果妳沒有 Perl 或需要昇級,可以到 Perl 網站下載安裝最
|
||||
新版 Perl 。
|
||||
|
||||
http://www.perl.com/
|
||||
|
||||
若妳用 MS-Windows ,可以下載安裝 ActiveState 公司的 ActivePerl 。
|
||||
|
||||
http://www.activestate.com/
|
||||
|
||||
2. 需搭配的 Perl 模組:無。
|
||||
|
||||
* Date::Parse
|
||||
|
||||
這是辨識記錄時間用的。
|
||||
妳可以由 CPAN 模組庫下載安裝 Date::Parse :
|
||||
http://search.cpan.org/dist/TimeDate/ ,
|
||||
或用 CPAN Shell 執行 cpan Date::Parse 安裝,
|
||||
或用 CPANPLUS Shell 執行 cpanp i Date::Parse 安裝。
|
||||
若妳是 Debian/Ubandu Linux 使用者,可以執行
|
||||
apt-get install libtimedate-perl 安裝。
|
||||
若妳是 Red Hat/Fedora/CentOS Linux 使用者,可以執行
|
||||
yum install perl-TimeDate 安裝。
|
||||
若妳是 FreeBSD 使用者,可以執行
|
||||
ports install p5-TimeDate 安裝。
|
||||
若妳是 ActivePerl 使用者,可以執行
|
||||
ppm install Date::Parse 安裝。
|
||||
|
||||
若妳由 CPAN 或 CPANPLUS Shell 安裝 arclog ,會自動幫妳安裝以上所
|
||||
需的模組。
|
||||
|
||||
3. 選配的 Perl 模組:
|
||||
|
||||
* File::MMagic
|
||||
|
||||
這是檢查檔案類型用的。若沒有安裝, arclog 會試著去找 file 程
|
||||
式代替。若還找不到, arclog 會改用檔尾(副檔名)判斷檔案類型。這
|
||||
時若從標準輸入讀檔, arclog 會無法判斷。
|
||||
妳可以由 CPAN 模組庫下載安裝 File::MMagic :
|
||||
http://search.cpan.org/dist/File-MMagic/ ,
|
||||
或用 CPAN Shell 執行 cpan File::MMagic 安裝,
|
||||
或用 CPANPLUS Shell 執行 cpanp i File::MMagic 安裝。
|
||||
若妳是 Debian/Ubandu Linux 使用者,可以執行
|
||||
apt-get install libfile-mmagic-perl 安裝。
|
||||
若妳是 Red Hat/Fedora/CentOS Linux 使用者,可以執行
|
||||
yum install perl-File-MMagic 安裝。
|
||||
若妳是 FreeBSD 使用者,可以執行
|
||||
ports install p5-File-MMagic 安裝。
|
||||
若妳是 ActivePerl 使用者,可以執行
|
||||
ppm install File::MMagic 安裝。
|
||||
若妳要在 MS-Windows 下使用 file.exe 程式,可以由
|
||||
GnuWin32 網站下載: http://gnuwin32.sourceforge.net/ 。
|
||||
請確認下載後,存檔在系統的路徑下,檔名為 file.exe 。
|
||||
|
||||
建議用 File::MMagic 。 file 程式偶爾會誤判。
|
||||
|
||||
* Compress::Zlib
|
||||
|
||||
這是處理 gzip 壓縮檔用的,只有處理 gzip 壓縮檔時才會用到。若
|
||||
要用時沒有安裝, arclog 會試著改用 gzip 程式代替。若還找不到,
|
||||
arclog 就無法執行。
|
||||
妳可以由 CPAN 模組庫下載安裝 Compress::Zlib :
|
||||
http://search.cpan.org/dist/Compress-Zlib/ ,
|
||||
或用 CPAN Shell 執行 cpan Compress::Zlib 安裝,
|
||||
或用 CPANPLUS Shell 執行 cpanp i Compress::Zlib 安裝。
|
||||
若妳是 Debian/Ubandu Linux 使用者,可以執行
|
||||
apt-get install libcompress-zlib-perl 安裝。
|
||||
若妳是 Red Hat/Fedora/CentOS Linux 使用者,可以執行
|
||||
yum install perl-Compress-Zlib 安裝。
|
||||
若妳是 FreeBSD 使用者,可以執行
|
||||
ports install p5-Compress-Zlib 安裝。
|
||||
若妳是 ActivePerl 使用者,可以執行
|
||||
ppm install Compress::Zlib 安裝。
|
||||
若妳要在 MS-Windows 下使用 gzip.exe 程式,可以由
|
||||
gzip 網站下載: http://www.gzip.org/ 。
|
||||
請確認下載後,存檔在系統的路徑下,檔名為 gzip.exe 。
|
||||
|
||||
* Compress::Bzip2 第二版以上
|
||||
|
||||
這是支援讀寫 bzip2 壓縮檔用的,只有處理 bzip2 壓縮檔時才會用
|
||||
到。若要用時沒有安裝, arclog 會試著改用 bzip2 程式代替。若還找
|
||||
不到, arclog 就無法執行。
|
||||
妳可以由 CPAN 模組庫下載安裝 Compress::Bzip2 :
|
||||
http://search.cpan.org/dist/Compress-Bzip2/ ,
|
||||
或用 CPAN Shell 執行 cpan Compress::Bzip2 安裝,
|
||||
或用 CPANPLUS Shell 執行 cpanp i Compress::Bzip2 安裝。
|
||||
若妳是 Debian/Ubandu Linux 使用者,可以執行
|
||||
apt-get install libcompress-bzip2-perl 安裝。
|
||||
若妳是 Red Hat/Fedora/CentOS Linux 使用者,可以執行
|
||||
yum install perl-Compress-Bzip2 安裝。
|
||||
若妳是 FreeBSD 使用者,可以執行
|
||||
ports install p5-Compress-Bzip2 安裝。
|
||||
若妳是 ActivePerl 使用者,可以執行
|
||||
ppm install Compress::Bzip2 安裝。
|
||||
若妳要在 MS-Windows 下使用 bzip2.exe 程式,可以由
|
||||
bzip2 網站下載: http://www.bzip.org/ 。
|
||||
請確認下載後,存檔在系統的路徑下,檔名為 bzip2.exe 。
|
||||
|
||||
* Term::ReadKey
|
||||
|
||||
這是顯示進度列用的,若沒有安裝,就不會顯示進度列。此外不會有
|
||||
任何問題。進度列可以讓妳對 arclog 的工作進度一目瞭然。
|
||||
妳可以由 CPAN 模組庫下載安裝 Term::ReadKey :
|
||||
http://search.cpan.org/dist/TermReadKey/ ,
|
||||
或用 CPAN Shell 執行 cpan Term::ReadKey 安裝,
|
||||
或用 CPANPLUS Shell 執行 cpanp i Term::ReadKey 安裝。
|
||||
若妳是 Debian/Ubandu Linux 使用者,可以執行
|
||||
apt-get install libterm-readkey-perl 安裝。
|
||||
若妳是 Red Hat/Fedora/CentOS Linux 使用者,可以執行
|
||||
yum install perl-TermReadKey 安裝。
|
||||
若妳是 FreeBSD 使用者,可以執行
|
||||
ports install p5-Term-ReadKey 安裝。
|
||||
若妳是 ActivePerl 使用者,可以執行
|
||||
ppm install Term::ReadKey 安裝。
|
||||
|
||||
|
||||
◎安裝指南
|
||||
|
||||
若妳是由 arclog.pl 2.1.1dev4 以前的版本昇級,請參閱 UPGRADE.zh-tw
|
||||
檔的昇級說明。
|
||||
|
||||
◎◎以 ExtUtils::MakeMaker 安裝
|
||||
|
||||
arclog 用 Perl 標準的 ExtUtils::MakeMaker 安裝,程序如下:
|
||||
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
|
||||
在 make install 前,請先確認妳有在安裝目錄存檔的權限。通常這時候
|
||||
要切換為 root ,才能安裝存檔。
|
||||
|
||||
若妳是用 MS-Windows 下的 ActivePerl , make 請改用 nmake 。 nmake
|
||||
可由微軟的 FTP 站下載:
|
||||
|
||||
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
|
||||
|
||||
若要安裝到其它地方,請設定好 PREFIX 。例如,一般使用者,要安裝在
|
||||
自己的目錄下時:
|
||||
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
|
||||
要知道更多安裝選項的細節,請參閱 ExtUtils::MakeMaker 的說明(請執
|
||||
行 perldoc ExtUtils::MakeMaker )。
|
||||
|
||||
|
||||
◎◎以 Module::Build 安裝
|
||||
|
||||
若妳喜歡,也可以用 Module::Build 安裝,程序如下:
|
||||
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
|
||||
在 ./Build install 前,請先確認妳有在安裝目錄存檔的權限。通常這時
|
||||
候要切換為 root ,才能安裝存檔。
|
||||
|
||||
若要安裝到其它地方,請設定好 --prefix 。例如,一般使用者,要安裝
|
||||
在自己的目錄下時:
|
||||
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
|
||||
要知道更多安裝選項的細節,請參閱 Module::Build 的說明(請執行
|
||||
perldoc Module::Build )。
|
||||
|
||||
|
||||
依瑪貓
|
||||
2008-11-18
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
202
LICENSE
Normal file
202
LICENSE
Normal file
@ -0,0 +1,202 @@
|
||||
|
||||
Apache License
|
||||
Version 2.0, January 2004
|
||||
http://www.apache.org/licenses/
|
||||
|
||||
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
|
||||
|
||||
1. Definitions.
|
||||
|
||||
"License" shall mean the terms and conditions for use, reproduction,
|
||||
and distribution as defined by Sections 1 through 9 of this document.
|
||||
|
||||
"Licensor" shall mean the copyright owner or entity authorized by
|
||||
the copyright owner that is granting the License.
|
||||
|
||||
"Legal Entity" shall mean the union of the acting entity and all
|
||||
other entities that control, are controlled by, or are under common
|
||||
control with that entity. For the purposes of this definition,
|
||||
"control" means (i) the power, direct or indirect, to cause the
|
||||
direction or management of such entity, whether by contract or
|
||||
otherwise, or (ii) ownership of fifty percent (50%) or more of the
|
||||
outstanding shares, or (iii) beneficial ownership of such entity.
|
||||
|
||||
"You" (or "Your") shall mean an individual or Legal Entity
|
||||
exercising permissions granted by this License.
|
||||
|
||||
"Source" form shall mean the preferred form for making modifications,
|
||||
including but not limited to software source code, documentation
|
||||
source, and configuration files.
|
||||
|
||||
"Object" form shall mean any form resulting from mechanical
|
||||
transformation or translation of a Source form, including but
|
||||
not limited to compiled object code, generated documentation,
|
||||
and conversions to other media types.
|
||||
|
||||
"Work" shall mean the work of authorship, whether in Source or
|
||||
Object form, made available under the License, as indicated by a
|
||||
copyright notice that is included in or attached to the work
|
||||
(an example is provided in the Appendix below).
|
||||
|
||||
"Derivative Works" shall mean any work, whether in Source or Object
|
||||
form, that is based on (or derived from) the Work and for which the
|
||||
editorial revisions, annotations, elaborations, or other modifications
|
||||
represent, as a whole, an original work of authorship. For the purposes
|
||||
of this License, Derivative Works shall not include works that remain
|
||||
separable from, or merely link (or bind by name) to the interfaces of,
|
||||
the Work and Derivative Works thereof.
|
||||
|
||||
"Contribution" shall mean any work of authorship, including
|
||||
the original version of the Work and any modifications or additions
|
||||
to that Work or Derivative Works thereof, that is intentionally
|
||||
submitted to Licensor for inclusion in the Work by the copyright owner
|
||||
or by an individual or Legal Entity authorized to submit on behalf of
|
||||
the copyright owner. For the purposes of this definition, "submitted"
|
||||
means any form of electronic, verbal, or written communication sent
|
||||
to the Licensor or its representatives, including but not limited to
|
||||
communication on electronic mailing lists, source code control systems,
|
||||
and issue tracking systems that are managed by, or on behalf of, the
|
||||
Licensor for the purpose of discussing and improving the Work, but
|
||||
excluding communication that is conspicuously marked or otherwise
|
||||
designated in writing by the copyright owner as "Not a Contribution."
|
||||
|
||||
"Contributor" shall mean Licensor and any individual or Legal Entity
|
||||
on behalf of whom a Contribution has been received by Licensor and
|
||||
subsequently incorporated within the Work.
|
||||
|
||||
2. Grant of Copyright License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
copyright license to reproduce, prepare Derivative Works of,
|
||||
publicly display, publicly perform, sublicense, and distribute the
|
||||
Work and such Derivative Works in Source or Object form.
|
||||
|
||||
3. Grant of Patent License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
(except as stated in this section) patent license to make, have made,
|
||||
use, offer to sell, sell, import, and otherwise transfer the Work,
|
||||
where such license applies only to those patent claims licensable
|
||||
by such Contributor that are necessarily infringed by their
|
||||
Contribution(s) alone or by combination of their Contribution(s)
|
||||
with the Work to which such Contribution(s) was submitted. If You
|
||||
institute patent litigation against any entity (including a
|
||||
cross-claim or counterclaim in a lawsuit) alleging that the Work
|
||||
or a Contribution incorporated within the Work constitutes direct
|
||||
or contributory patent infringement, then any patent licenses
|
||||
granted to You under this License for that Work shall terminate
|
||||
as of the date such litigation is filed.
|
||||
|
||||
4. Redistribution. You may reproduce and distribute copies of the
|
||||
Work or Derivative Works thereof in any medium, with or without
|
||||
modifications, and in Source or Object form, provided that You
|
||||
meet the following conditions:
|
||||
|
||||
(a) You must give any other recipients of the Work or
|
||||
Derivative Works a copy of this License; and
|
||||
|
||||
(b) You must cause any modified files to carry prominent notices
|
||||
stating that You changed the files; and
|
||||
|
||||
(c) You must retain, in the Source form of any Derivative Works
|
||||
that You distribute, all copyright, patent, trademark, and
|
||||
attribution notices from the Source form of the Work,
|
||||
excluding those notices that do not pertain to any part of
|
||||
the Derivative Works; and
|
||||
|
||||
(d) If the Work includes a "NOTICE" text file as part of its
|
||||
distribution, then any Derivative Works that You distribute must
|
||||
include a readable copy of the attribution notices contained
|
||||
within such NOTICE file, excluding those notices that do not
|
||||
pertain to any part of the Derivative Works, in at least one
|
||||
of the following places: within a NOTICE text file distributed
|
||||
as part of the Derivative Works; within the Source form or
|
||||
documentation, if provided along with the Derivative Works; or,
|
||||
within a display generated by the Derivative Works, if and
|
||||
wherever such third-party notices normally appear. The contents
|
||||
of the NOTICE file are for informational purposes only and
|
||||
do not modify the License. You may add Your own attribution
|
||||
notices within Derivative Works that You distribute, alongside
|
||||
or as an addendum to the NOTICE text from the Work, provided
|
||||
that such additional attribution notices cannot be construed
|
||||
as modifying the License.
|
||||
|
||||
You may add Your own copyright statement to Your modifications and
|
||||
may provide additional or different license terms and conditions
|
||||
for use, reproduction, or distribution of Your modifications, or
|
||||
for any such Derivative Works as a whole, provided Your use,
|
||||
reproduction, and distribution of the Work otherwise complies with
|
||||
the conditions stated in this License.
|
||||
|
||||
5. Submission of Contributions. Unless You explicitly state otherwise,
|
||||
any Contribution intentionally submitted for inclusion in the Work
|
||||
by You to the Licensor shall be under the terms and conditions of
|
||||
this License, without any additional terms or conditions.
|
||||
Notwithstanding the above, nothing herein shall supersede or modify
|
||||
the terms of any separate license agreement you may have executed
|
||||
with Licensor regarding such Contributions.
|
||||
|
||||
6. Trademarks. This License does not grant permission to use the trade
|
||||
names, trademarks, service marks, or product names of the Licensor,
|
||||
except as required for reasonable and customary use in describing the
|
||||
origin of the Work and reproducing the content of the NOTICE file.
|
||||
|
||||
7. Disclaimer of Warranty. Unless required by applicable law or
|
||||
agreed to in writing, Licensor provides the Work (and each
|
||||
Contributor provides its Contributions) on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
|
||||
implied, including, without limitation, any warranties or conditions
|
||||
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
|
||||
PARTICULAR PURPOSE. You are solely responsible for determining the
|
||||
appropriateness of using or redistributing the Work and assume any
|
||||
risks associated with Your exercise of permissions under this License.
|
||||
|
||||
8. Limitation of Liability. In no event and under no legal theory,
|
||||
whether in tort (including negligence), contract, or otherwise,
|
||||
unless required by applicable law (such as deliberate and grossly
|
||||
negligent acts) or agreed to in writing, shall any Contributor be
|
||||
liable to You for damages, including any direct, indirect, special,
|
||||
incidental, or consequential damages of any character arising as a
|
||||
result of this License or out of the use or inability to use the
|
||||
Work (including but not limited to damages for loss of goodwill,
|
||||
work stoppage, computer failure or malfunction, or any and all
|
||||
other commercial damages or losses), even if such Contributor
|
||||
has been advised of the possibility of such damages.
|
||||
|
||||
9. Accepting Warranty or Additional Liability. While redistributing
|
||||
the Work or Derivative Works thereof, You may choose to offer,
|
||||
and charge a fee for, acceptance of support, warranty, indemnity,
|
||||
or other liability obligations and/or rights consistent with this
|
||||
License. However, in accepting such obligations, You may act only
|
||||
on Your own behalf and on Your sole responsibility, not on behalf
|
||||
of any other Contributor, and only if You agree to indemnify,
|
||||
defend, and hold each Contributor harmless for any liability
|
||||
incurred by, or claims asserted against, such Contributor by reason
|
||||
of your accepting any such warranty or additional liability.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
APPENDIX: How to apply the Apache License to your work.
|
||||
|
||||
To apply the Apache License to your work, attach the following
|
||||
boilerplate notice, with the fields enclosed by brackets "[]"
|
||||
replaced with your own identifying information. (Don't include
|
||||
the brackets!) The text should be enclosed in the appropriate
|
||||
comment syntax for the file format. We also recommend that a
|
||||
file or class name and description of purpose be included on the
|
||||
same "printed page" as the copyright notice for easier
|
||||
identification within third-party archives.
|
||||
|
||||
Copyright [yyyy] [name of copyright owner]
|
||||
|
||||
Licensed under the Apache License, Version 2.0 (the "License");
|
||||
you may not use this file except in compliance with the License.
|
||||
You may obtain a copy of the License at
|
||||
|
||||
http://www.apache.org/licenses/LICENSE-2.0
|
||||
|
||||
Unless required by applicable law or agreed to in writing, software
|
||||
distributed under the License is distributed on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
See the License for the specific language governing permissions and
|
||||
limitations under the License.
|
39
MANIFEST
39
MANIFEST
@ -1,39 +0,0 @@
|
||||
arclog
|
||||
arclog.en.html
|
||||
arclog.zh-cn.html
|
||||
arclog.zh-tw.html
|
||||
AUTHORS
|
||||
AUTHORS.zh-cn
|
||||
AUTHORS.zh-tw
|
||||
Build.PL
|
||||
Changes
|
||||
COPYING
|
||||
fdl.txt
|
||||
INSTALL
|
||||
INSTALL.zh-cn
|
||||
INSTALL.zh-tw
|
||||
Makefile.PL
|
||||
MANIFEST This list of files
|
||||
META.yml
|
||||
NEWS
|
||||
pgpkey.asc
|
||||
README
|
||||
README.zh-cn
|
||||
README.zh-tw
|
||||
SIGNATURE
|
||||
t/00-signature.t
|
||||
t/01-exhaust.t
|
||||
t/02-several.t
|
||||
t/03-fallback.t
|
||||
t/04-errors.t
|
||||
t/99-pod.t
|
||||
t/_helper.pm
|
||||
THANKS
|
||||
THANKS.zh-cn
|
||||
THANKS.zh-tw
|
||||
TODO
|
||||
TODO.zh-cn
|
||||
TODO.zh-tw
|
||||
UPGRADE
|
||||
UPGRADE.zh-cn
|
||||
UPGRADE.zh-tw
|
14
MANIFEST.SKIP
Normal file
14
MANIFEST.SKIP
Normal file
@ -0,0 +1,14 @@
|
||||
^blib/
|
||||
^Makefile$
|
||||
^Build$
|
||||
^_build/
|
||||
^MANIFEST\.bak$
|
||||
^MYMETA\.yml$
|
||||
^MYMETA\.json$
|
||||
^SIGNATURE$
|
||||
^pm_to_blib$
|
||||
^\.git/
|
||||
^\.gitignore$
|
||||
^\.idea/
|
||||
^excludes/
|
||||
^t/logs.*/
|
14
META.yml
14
META.yml
@ -1,14 +0,0 @@
|
||||
--- #YAML:1.0
|
||||
name: arclog
|
||||
version: 3.04
|
||||
abstract: Archive log files monthly
|
||||
license: gpl
|
||||
author:
|
||||
- imacat <imacat@mail.imacat.idv.tw>
|
||||
generated_by: ExtUtils::MakeMaker version 6.38
|
||||
distribution_type: module
|
||||
requires:
|
||||
Date::Parse: 0
|
||||
meta-spec:
|
||||
url: http://module-build.sourceforge.net/META-spec-v1.3.html
|
||||
version: 1.3
|
@ -7,7 +7,7 @@ use Config qw(%Config);
|
||||
use ExtUtils::MakeMaker;
|
||||
|
||||
# Check if there is any old file
|
||||
use vars qw(%old_version);
|
||||
our (%old_version);
|
||||
%old_version = qw();
|
||||
foreach (qw(/usr/sbin/arclog.pl
|
||||
/usr/sbin/arclog
|
||||
@ -49,7 +49,7 @@ EOT
|
||||
}
|
||||
|
||||
# Optional prerequisite modules
|
||||
use vars qw(%OPT_PREREQ);
|
||||
our (%OPT_PREREQ);
|
||||
%OPT_PREREQ = (
|
||||
"File::MMagic" => 0,
|
||||
"Compress::Zlib" => 0,
|
||||
@ -72,7 +72,7 @@ WriteMakefile(
|
||||
VERSION_FROM => "arclog",
|
||||
ABSTRACT => "Archive log files monthly",
|
||||
AUTHOR => "imacat <imacat\@mail.imacat.idv.tw>",
|
||||
LICENSE => "gpl",
|
||||
LICENSE => "apache_2_0",
|
||||
PREREQ_PM => {
|
||||
"Date::Parse" => 0,
|
||||
},
|
||||
|
29
NEWS
29
NEWS
@ -1,29 +0,0 @@
|
||||
New in 3.04:
|
||||
* Documentation fixes.
|
||||
|
||||
New in 3.03:
|
||||
* Test suite fixes.
|
||||
* Required Perl version number compatible to older versions, to work
|
||||
with the Perl 5.10 warning.
|
||||
|
||||
New in 3.02:
|
||||
* Test suite improvement.
|
||||
|
||||
New in 3.01:
|
||||
* Test suite improvement.
|
||||
|
||||
New in 3.00:
|
||||
* Name changed from arclog.pl to arclog.
|
||||
* Perl's s build system ExtUtils::MakeMaker and Module::Build are
|
||||
used instead of GNU autoconf.
|
||||
* Added test suite that help quality assurance.
|
||||
* License updated to GPLv3.
|
||||
|
||||
New in 2.1.0:
|
||||
* Added support for bzip2 compression.
|
||||
* Added support for gzip compression with gzip binary instead of
|
||||
Compress::Zlib.
|
||||
* Added the GNU autoconf configuration script.
|
||||
|
||||
New in 2.1.0dev2:
|
||||
* Documentation fixes.
|
67
README
67
README
@ -1,67 +0,0 @@
|
||||
arclog - Archive the log files monthly
|
||||
|
||||
Copyright (c) 2001-2007 imacat.
|
||||
|
||||
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/>.
|
||||
|
||||
arclog archives the log files monthly. It strips off previous months'
|
||||
log records from the log file, and save them to compressed archive files
|
||||
named logfile.yyyymm. It then saves the hard disk space and prevents
|
||||
potential attacks on log files.
|
||||
|
||||
Currently, arclog supports Apache access log, Syslog, NTP, Apache 1 SSL
|
||||
engine log and my own bracketed, modified ISO date/time log file formats, and
|
||||
gzip and bzip2 compression methods. Several software projects log (or can
|
||||
log) in a format compatible with the Apache access log, like CUPS, ProFTPD,
|
||||
Pure-FTPd... etc., and arclog can archive their Apache-like log files, too.
|
||||
|
||||
|
||||
* Documentation
|
||||
|
||||
Type "perldoc arclog" to read the arclog manual.
|
||||
|
||||
|
||||
* Installation
|
||||
|
||||
Read INSTALL for instructions on how to install arclog.
|
||||
|
||||
|
||||
* News, Changes and Updates
|
||||
|
||||
Refer to the Changes for changes, bug fixes, updates, new functions, etc.
|
||||
|
||||
|
||||
* Support
|
||||
|
||||
arclog's website is at http://arclog.sourceforge.net/. Visit the website
|
||||
for the current information of arclog.
|
||||
|
||||
arclog has a mailing list arclog-users@lists.sourceforge.net. If you have
|
||||
any question, comment, bug report, patch, please send it to the mailing list.
|
||||
Join the list at https://lists.sourceforge.net/lists/listinfo/arclog-users .
|
||||
Do not send mails directly to me unless you have private business with me.
|
||||
The mailing list has an archive. People having the same trouble as you may
|
||||
search the archive, find the answer and save a lot of time.
|
||||
|
||||
|
||||
* License
|
||||
|
||||
This program is distributed under GNU Gneral Pulbic License (GPL). Please
|
||||
refer to the COPYING file for the copyright and the license of this program.
|
||||
|
||||
|
||||
imacat ^_*'
|
||||
2007-12-03
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
613
README.md
Normal file
613
README.md
Normal file
@ -0,0 +1,613 @@
|
||||
`arclog` - Archive the Log Files Monthly
|
||||
========================================
|
||||
|
||||
|
||||
Description
|
||||
-----------
|
||||
|
||||
`arclog` archives the log files monthly. It strips off previous
|
||||
months’ log records from the log file, and save them to compressed
|
||||
archive files named `logfile.yyyymm`. It then saves the hard disk
|
||||
space and prevents potential attacks on log files.
|
||||
|
||||
Currently, `arclog` supports [Apache] access log, Syslog, [NTP],
|
||||
Apache 1 SSL engine log, and my own bracketed, modified ISO date/time
|
||||
log file formats, and gzip and bzip2 compression methods. Several
|
||||
software projects log (or can log) in a format compatible with the
|
||||
Apache access log, like [CUPS], [ProFTPD], [Pure-FTPd]… etc., and
|
||||
`arclog` can archive their Apache-like log files, too.
|
||||
|
||||
Caution
|
||||
=======
|
||||
|
||||
* *Archival takes time*. To reduce the time occupying the source log
|
||||
file, `arclog` copies the content of the source log file to a
|
||||
temporary working file and restart the source log file first. Then
|
||||
`arclog` can take its time working on the temporary working file.
|
||||
However, please note:
|
||||
|
||||
1. If you have a huge log file (several hundreds of MBs), merely
|
||||
copying still takes a lot of time. You had better stop logging
|
||||
first, archive the log file and restart logging, to avoid racing
|
||||
condition in writing. If you archive the log file periodically,
|
||||
it shall not grow too big.
|
||||
|
||||
2. If `arclog` stops in the middle of the execution, it will leave a
|
||||
temporary working file. The next time `arclog` runs, it stops
|
||||
when it sees that temporary working file. You have to process
|
||||
that temporary working file first. That temporary working file
|
||||
is merely a copy of the original log file. You can rename and
|
||||
archive it like an ordinary log file to solve this.
|
||||
|
||||
* Do not sort unless you have a particular reason. Sorting has the
|
||||
following potential problems:
|
||||
|
||||
1. Sorting may *eat huge memory* on large log files. The amount of
|
||||
the memory required depends on the number of records in each
|
||||
archived month. Modern Linux and MS-Windows kill processes that
|
||||
eat too much memory, but it still takes minutes, and your system
|
||||
hangs for that. I do not know other operating systems. Try at
|
||||
your own risk.
|
||||
|
||||
2. The time unit of all recognized log formats is *second*. Log
|
||||
records happen in a same second are sorted by the log file order
|
||||
(if you are archiving several log files at a time) and then the
|
||||
log record order. I try to ensure that the sorted archived
|
||||
records are in a correct order of the happening events, but I
|
||||
cannot guarantee. You have to watch out if the order in a second
|
||||
is important.
|
||||
|
||||
* Be careful on the Syslog and NTP log files: Syslog and NTP does not
|
||||
record the year. `arclog` uses [Date::Parse] to parse the date,
|
||||
which assumes the year between this month and last next month if the
|
||||
year is missing. For example, if today is 2001/6/8, it assumes the
|
||||
year between 2001/6/30 back to 2000/7/1. This is fair. However, if
|
||||
you do have a Syslog or NTP log file that has records older than one
|
||||
year, do not use `arclog`. It will destroy your log file.
|
||||
|
||||
* If read from `STDIN`, please note:
|
||||
|
||||
1. You *must* specify the output prefix if you want to read from
|
||||
`STDIN`, since what it needs is an output pathname prefix, not an
|
||||
output file.
|
||||
|
||||
2. `STDIN` cannot be deleted, restarted or partially kept. If you
|
||||
read from `STDIN`, the keep mode is always "keep all". If you
|
||||
archive several source log files including `STDIN`, the keep mode
|
||||
will be "keep all" for all source log files, to prevent disaster.
|
||||
|
||||
3. The answers of the `ask` mode is obtained from `STDIN`, too.
|
||||
Since you have only one `STDIN`, you cannot specify the ask mode
|
||||
while reading from `STDIN`. It falls back to the fail mode in
|
||||
that case.
|
||||
|
||||
* I suggest that you install [File::MMagic] instead of counting on the
|
||||
`file` executable. The internal magic file of File::MMagic works
|
||||
better than the `file` executable. `arclog` treats everything not
|
||||
gzip nor bzip2 compressed as plain text. When a compressed log file
|
||||
is wrongly recognized as an image, `arclog` treats it as plain text,
|
||||
reads directly from it, and fails. This does not hurt the source
|
||||
log files, but is still annoying.
|
||||
|
||||
[Date::Parse]: https://metacpan.org/release/TimeDate
|
||||
[File::MMagic]: https://metacpan.org/release/File-MMagic
|
||||
|
||||
|
||||
System Requirement
|
||||
------------------
|
||||
|
||||
1. Perl, version 5.8.0 or above. `arclog` uses 3-argument open() to
|
||||
duplicate file handles, which is only supported since 5.8.0. I
|
||||
have not successfully port this onto earlier versions yet. Please
|
||||
tell me if you made it. You can run `perl -v` to see your current
|
||||
Perl version. If you do not have Perl, or if you have an older
|
||||
version of Perl, you can download and install/upgrade it from the
|
||||
[Perl website]. If you are using MS-Windows, you can download and
|
||||
install [ActiveState ActivePerl].
|
||||
|
||||
2. Required Perl modules:
|
||||
|
||||
* [Date::Parse]
|
||||
|
||||
This is used to parse the timestamp of the log records. You can
|
||||
download and install Date::Parse from the CPAN archive, or
|
||||
install it with the CPAN shell:
|
||||
|
||||
cpan Date::Parse
|
||||
|
||||
or with the CPANPLUS shell:
|
||||
|
||||
cpanp i Date::Parse
|
||||
|
||||
For Debian/Ubuntu:
|
||||
|
||||
sudo apt install libtimedate-perl
|
||||
|
||||
For Red Hat/Fedora/CentOS:
|
||||
|
||||
sudo yum install perl-TimeDate
|
||||
|
||||
For FreeBSD:
|
||||
|
||||
ports install p5-TimeDate
|
||||
|
||||
For ActivePerl:
|
||||
|
||||
ppm install TimeDate
|
||||
|
||||
3. Optional Perl modules:
|
||||
|
||||
* [File::MMagic]
|
||||
|
||||
This is used to check the file type. If this is not available,
|
||||
`arclog` tries the `file` executable instead. If that is not
|
||||
available, too, `arclog` judges the file type by its name suffix
|
||||
(extension). In that case `arclog` fails when reading from
|
||||
`STDIN`. You can download and install File::MMagic from the CPAN
|
||||
archive, or install it with the CPAN shell:
|
||||
|
||||
cpan File::MMagic
|
||||
|
||||
or with the CPANPLUS shell:
|
||||
|
||||
cpanp i File::MMagic
|
||||
|
||||
For Debian/Ubuntu:
|
||||
|
||||
sudo apt install libfile-mmagic-perl
|
||||
|
||||
For Red Hat/Fedora/CentOS:
|
||||
|
||||
sudo yum install perl-File-MMagic
|
||||
|
||||
For FreeBSD:
|
||||
|
||||
ports install p5-File-MMagic
|
||||
|
||||
For ActivePerl:
|
||||
|
||||
ppm install File-MMagic
|
||||
|
||||
The alternative `file.exe` for MS-Windows can be obtained from
|
||||
the [GnuWin32] home page. Be sure to save it as `file.exe`
|
||||
somewhere in your `PATH`.
|
||||
|
||||
* [Compress::Zlib]
|
||||
|
||||
This is used to support reading/writing the gzip compressed
|
||||
files. It is only needed when gzip compressed files are
|
||||
encountered. If it is not available, `arclog` tries the `gzip`
|
||||
executable instead. If that is not available, too, `arclog`
|
||||
fails. You can download and install Compress::Zlib from the CPAN
|
||||
archive, or install it with the CPAN shell:
|
||||
|
||||
cpan Compress::Zlib
|
||||
|
||||
or with the CPANPLUS shell:
|
||||
|
||||
cpanp i Compress::Zlib
|
||||
|
||||
For Debian/Ubuntu:
|
||||
|
||||
sudo apt install libcompress-zlib-perl
|
||||
|
||||
For Red Hat/Fedora/CentOS:
|
||||
|
||||
sudo yum install perl-Compress-Zlib
|
||||
|
||||
For FreeBSD:
|
||||
|
||||
ports install p5-Compress-Zlib
|
||||
|
||||
For ActivePerl:
|
||||
|
||||
ppm install Compress-Zlib
|
||||
|
||||
The alternative `gzip.exe` for MS-Windows can be obtained from
|
||||
[the gzip website]. Be sure to save it as `gzip.exe` somewhere
|
||||
in your `PATH`.
|
||||
|
||||
* [Compress::Bzip2] version 2 or above.
|
||||
|
||||
This is used to support reading/writing the bzip2 compressed
|
||||
files. It is only needed when bzip2 compressed files are
|
||||
encountered. If it is not available, `arclog` tries the `bzip2`
|
||||
executable instead. If that is not available, too, `arclog`
|
||||
fails. Notice that older versions before 2 does not work, since
|
||||
the file I/O compression was not implemented yet. You can
|
||||
download and install Compress::Bzip2 from the CPAN archive, or
|
||||
install it with the CPAN shell:
|
||||
|
||||
cpan Compress::Bzip2
|
||||
|
||||
or with the CPANPLUS shell:
|
||||
|
||||
cpanp i Compress::Bzip2
|
||||
|
||||
For Debian/Ubuntu:
|
||||
|
||||
sudo apt install libcompress-bzip2-perl
|
||||
|
||||
For Red Hat/Fedora/CentOS:
|
||||
|
||||
sudo yum install perl-Compress-Bzip2
|
||||
|
||||
For FreeBSD:
|
||||
|
||||
ports install p5-Compress-Bzip2
|
||||
|
||||
For ActivePerl:
|
||||
|
||||
ppm install Compress-Bzip2
|
||||
|
||||
The alternative `bzip2.exe` for MS-Windows can be obtained from
|
||||
[the bzip2 website]. Be sure to save it as `bzip2.exe` somewhere
|
||||
in your `PATH`.
|
||||
|
||||
* [Term::ReadKey]
|
||||
|
||||
This is used to display the progress bar. The progress bar is a
|
||||
good visual feedback of what `arclog` is currently doing, but
|
||||
`arclog` is safe without it. You can download and install
|
||||
Term::ReadKey from the CPAN archive, or install it with the
|
||||
CPAN shell:
|
||||
|
||||
cpan Term::ReadKey
|
||||
|
||||
or with the CPANPLUS shell:
|
||||
|
||||
cpanp i Term::ReadKey
|
||||
|
||||
For Debian/Ubuntu:
|
||||
|
||||
sudo apt install libterm-readkey-perl
|
||||
|
||||
For Red Hat/Fedora/CentOS:
|
||||
|
||||
sudo yum install perl-TermReadKey
|
||||
|
||||
For FreeBSD:
|
||||
|
||||
ports install p5-Term-ReadKey
|
||||
|
||||
For ActivePerl:
|
||||
|
||||
ppm install TermReadKey
|
||||
|
||||
[Perl website]: https://www.perl.org
|
||||
[ActiveState ActivePerl]: https://www.activestate.com
|
||||
[Date::Parse]: https://metacpan.org/release/TimeDate
|
||||
[File::MMagic]: https://metacpan.org/release/File-MMagic
|
||||
[GnuWin32]: http://gnuwin32.sourceforge.net
|
||||
[Compress::Zlib]: https://metacpan.org/release/Compress-Zlib
|
||||
[the gzip website]: https://www.gzip.org
|
||||
[Compress::Bzip2]: https://metacpan.org/release/Compress-Bzip2
|
||||
[the bzip2 website]: http://www.bzip.org
|
||||
[Term::ReadKey]: https://metacpan.org/release/TermReadKey
|
||||
|
||||
|
||||
Download
|
||||
--------
|
||||
|
||||
`arclog` is hosted is on…
|
||||
|
||||
* [arclog project on GitHub]
|
||||
|
||||
* [arclog project on SourceForge]
|
||||
|
||||
You can always download the newest version of `arclog` from…
|
||||
|
||||
* [arclog download on SourceForge]
|
||||
|
||||
* [Tavern IMACAT’s FTP directory]
|
||||
|
||||
imacat’s PGP public key is at…
|
||||
|
||||
* [imacat’s PGP key at Tavern IMACAT’s]
|
||||
|
||||
[arclog project on GitHub]: https://github.com/imacat/arclog
|
||||
[arclog project on SourceForge]: https://sf.net/p/arclog
|
||||
[arclog download on SourceForge]: https://sourceforge.net/projects/arclog/files
|
||||
[Tavern IMACAT’s FTP directory]: https://ftp.imacat.idv.tw/pub/arclog/
|
||||
[imacat’s PGP key at Tavern IMACAT’s]: https://www.imacat.idv.tw/me/pgpkey.asc
|
||||
|
||||
|
||||
Install
|
||||
-------
|
||||
|
||||
If you are upgrading from `arclog.pl` 2.1.1dev4 or earlier, please
|
||||
read the upgrade instruction later in this document.
|
||||
|
||||
### Install with [ExtUtils::MakeMaker]
|
||||
|
||||
`arclog` uses standard Perl installation with ExtUtils::MakeMaker.
|
||||
Follow these steps:
|
||||
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
|
||||
When running `make install`, make sure you have the privilege to
|
||||
write to the installation location. This usually requires the `root`
|
||||
privilege.
|
||||
|
||||
If you are using ActivePerl under MS-Windows, you should use `nmake`
|
||||
instead of `make`. [nmake can be obtained from the Microsoft FTP site.]
|
||||
|
||||
If you want to install into another location, you can set the
|
||||
`PREFIX`. For example, to install into your home when you are not
|
||||
`root`:
|
||||
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
|
||||
Refer to the documentation of ExtUtils::MakeMaker for more
|
||||
installation options (by running `perldoc ExtUtils::MakeMaker`).
|
||||
|
||||
### Install with [Module::Build]
|
||||
|
||||
You can install with Module::Build instead, if you prefer. Follow
|
||||
these steps:
|
||||
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
|
||||
When running `./Build install`, make sure you have the privilege to
|
||||
write to the installation location. This usually requires the `root`
|
||||
privilege.
|
||||
|
||||
If you want to install into another location, you can set the
|
||||
`--prefix`. For example, to install into your home when you are not
|
||||
`root`:
|
||||
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
|
||||
Refer to the documentation of Module::Build for more installation
|
||||
options (by running `perldoc Module::Build`).
|
||||
|
||||
[ExtUtils::MakeMaker]: https://metacpan.org/release/ExtUtils-MakeMaker
|
||||
[nmake can be obtained from the Microsoft FTP site.]: ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
|
||||
[Module::Build]: https://metacpan.org/release/Module-Build
|
||||
|
||||
|
||||
Upgrade Instruction
|
||||
-------------------
|
||||
|
||||
Here are a few hints for people upgrading from 2.1.1dev4 or earlier:
|
||||
|
||||
### The Script Name is Changed from `arclog.pl` to `arclog`
|
||||
|
||||
This is obvious. If you have any scripts or cron jobs that are
|
||||
running `arclog`, remember to modify your script for the new name.
|
||||
Of course, you can rename `arclog` to `arclog.pl`. It still works.
|
||||
|
||||
The reason I changed the script and project name is that: A dot `.`
|
||||
in the project name is not valid everywhere. At least SourceForge
|
||||
don’t accept it. Besides, `arclog` is enough for a script name under
|
||||
UNIX. The `.pl` file name suffix/extension may be convenient on
|
||||
MS-Windows, but MS-Windows users won’t run it with explorer file name
|
||||
association anyway, and there is a `pl2bat` to convert `arclog` to
|
||||
`arclog.bat`, which would make more sense. The only disadvantage is
|
||||
that I was using `UltraEdit`, which depends on the file name extension
|
||||
for the syntax highlighting rules. I can manually set it anyway. I’m
|
||||
using `gedit` on Linux now. This is not a problem anymore.
|
||||
|
||||
|
||||
### The Default Installation Location Is at `/usr/bin`
|
||||
|
||||
Also, the man page is at `/usr/share/man/man1/arclog.1`. This is to
|
||||
follow Perl’s standard convention, and to avoid breaking
|
||||
ExtUtils::MakeMaker with future versions.
|
||||
|
||||
When you run `perl Makefile.PL` or `perl Build.PL`, it hints a
|
||||
list of existing old files to be removed. Please delete them
|
||||
manually.
|
||||
|
||||
If you saved them in other places, you have to delete them yourself.
|
||||
|
||||
Also, if you have any scripts or cron jobs that are running `arclog`,
|
||||
remember to modify your script for the new `arclog` location. Of
|
||||
course, you can copy `arclog` to the original location. It still
|
||||
works.
|
||||
|
||||
|
||||
### The Argument of `--keep` and `--override` Options Are Required Now
|
||||
|
||||
Support for omitting the `--keep` or `--override` arguments are
|
||||
removed. This helps to avoid confusion for the log file name and the
|
||||
option arguments.
|
||||
|
||||
|
||||
Options
|
||||
-------
|
||||
|
||||
./arclog [options] logfile… [output]
|
||||
./arclog [-h|-v]
|
||||
|
||||
* `logfile`
|
||||
|
||||
The log file to be archived. Specify `-` to read from `STDIN`.
|
||||
You can specify multiple log files. `gzip` or `bzip2` compressed
|
||||
files are supported.
|
||||
|
||||
* `output`
|
||||
|
||||
The prefix of the output files. The output files are named as
|
||||
`output.yyyymm`, i.e., `output.200101`, `output.200102`. If not
|
||||
specified, the default is the same as the log file. You must
|
||||
specify this if you want to read from `STDIN`. You cannot specify
|
||||
`-` (`STDOUT`), since `arclog` needs a name prefix, not the output
|
||||
file.
|
||||
|
||||
* `-c`, `--compress method`
|
||||
|
||||
Specify the compression method for the archived files. Log files
|
||||
usually have large number of similar lines. Compress them saves you
|
||||
lots of disk spaces. (And this is why we want to archive them.)
|
||||
The following compression methods are supported:
|
||||
|
||||
* `g`, `gzip`
|
||||
|
||||
Compress with `gzip`. This is the default. `arclog` can use
|
||||
`Compress::Zlib` to compress instead of calling `gzip`. This can
|
||||
be safer and faster for not calling foreign binaries. If
|
||||
`Compress::Zlib` is not installed, it tries `gzip` instead. If
|
||||
`gzip` is not available, either, it fails.
|
||||
|
||||
* `b`, `bzip2`
|
||||
|
||||
Compress with `bzip2`. `arclog` can use `Compress::Bzip2` to
|
||||
compress instead of calling `bzip2`. This can be safer and faster
|
||||
for not calling foreign binaries. If `Compress::Bzip2` is not
|
||||
installed, it tries `bzip2` instead. If `bzip2` is not available,
|
||||
either, it fails.
|
||||
|
||||
* `n`, `none`
|
||||
|
||||
No compression at all. (Why? :p)
|
||||
|
||||
* `--nocompress`
|
||||
|
||||
Do not compress the archived files. This is equivalent to
|
||||
`--compress none`.
|
||||
|
||||
* `-s`, `--sort`
|
||||
|
||||
Sort the records by time (and then the record order). Sorting eats
|
||||
huge memory and CPU, so it is disabled by default. Refer to the
|
||||
description above for a detailed illustration on sorting.
|
||||
|
||||
* `--nosort`
|
||||
|
||||
Do not sort the records. This is the default.
|
||||
|
||||
* `-o`, `--override mode`
|
||||
|
||||
What to do with the existing archived files. The following modes
|
||||
are supported:
|
||||
|
||||
* `o`, `overwrite`
|
||||
|
||||
Overwrite existing target files. You will lose these existing
|
||||
records. Use with care. This is helpful if you are sure the
|
||||
main log file has the most complete records.
|
||||
|
||||
* `a`, `append`
|
||||
|
||||
Append the records to the existing target files. You may destroy
|
||||
the log file completely by putting irrelevant entries altogether
|
||||
by accident. Use with care. This is helpful if you append want
|
||||
to merge 2 or more log files, for example, 2 log files of
|
||||
different periods.
|
||||
|
||||
* `i`, `ignore`
|
||||
|
||||
Ignore any existing target file, and discard all the records of
|
||||
those months. You will lose these log records. Use with care.
|
||||
This is helpful if you are supplying log records for the missing
|
||||
months, or if you are merging the log records in a complex manner.
|
||||
|
||||
* `f`, `fail`
|
||||
|
||||
Stop whenever a target file exists, to prevent destroying existing
|
||||
files by accident. This should be mostly desired when run from
|
||||
some automatic mechanism, like `crontab`. So, this is the default
|
||||
if no terminal is found at `STDIN`.
|
||||
|
||||
* `ask`
|
||||
|
||||
Ask you what to do when a target file exists. This should be
|
||||
mostly desired if you are running `arclog` interactively. So,
|
||||
this is the default if a terminal is found at `STDIN`. The
|
||||
answers are read from `STDIN`. Since you have only one `STDIN`,
|
||||
you cannot specify this mode if you want read the log file from
|
||||
`STDIN`. In that case, it falls back to the `fail` mode. Also,
|
||||
if `arclog` cannot get its answer from `STDIN`, for example, on a
|
||||
closed `STDIN` from `crontab`, it falls back to `fail` mode.
|
||||
|
||||
* `-k`, `--keep mode`
|
||||
|
||||
What to keep in the source file. Currently, the following modes are
|
||||
supported:
|
||||
|
||||
* `a`, `all`
|
||||
|
||||
Keep the source file after records are archived.
|
||||
|
||||
* `r`, `restart`
|
||||
|
||||
Restart the source log file after records are archived.
|
||||
|
||||
* `d`, `delete`
|
||||
|
||||
Delete the source log file after records are archived.
|
||||
|
||||
* `t`, `this-month`
|
||||
|
||||
Archive and strip records of previous months off from the log
|
||||
file. Keep the records of this month in the source log file, to
|
||||
be archived next month. This is designed to be run from `crontab`
|
||||
monthly, so this is the default.
|
||||
|
||||
* `-d`, `--debug`
|
||||
|
||||
Show the detailed debugging messages. More `-d` to be more
|
||||
detailed.
|
||||
|
||||
* `-q`, `--quiet`
|
||||
|
||||
Hush! Only yell on error.
|
||||
|
||||
* `-h`, `--help`
|
||||
|
||||
Display the help message and exit.
|
||||
|
||||
* `-v`, `--version`
|
||||
|
||||
Output version information and exit.
|
||||
|
||||
|
||||
Documentation
|
||||
-------------
|
||||
|
||||
Type `perldoc arclog` to read the `arclog` manual.
|
||||
|
||||
|
||||
News, Changes and Updates
|
||||
-------------------------
|
||||
|
||||
Refer to the `Changes` for changes, bug fixes, updates, new functions,
|
||||
etc.
|
||||
|
||||
|
||||
Support
|
||||
-------
|
||||
|
||||
The `arclog` project is hosted on GitHub. Address your issues on the
|
||||
GitHub issue tracker https://github.com/imacat/arclog/issues.
|
||||
|
||||
|
||||
License
|
||||
-------
|
||||
|
||||
Copyright (C) 2001-2021 imacat.
|
||||
|
||||
Licensed under the Apache License, Version 2.0 (the "License");
|
||||
you may not use this file except in compliance with the License.
|
||||
You may obtain a copy of the License at
|
||||
|
||||
http://www.apache.org/licenses/LICENSE-2.0
|
||||
|
||||
Unless required by applicable law or agreed to in writing, software
|
||||
distributed under the License is distributed on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
See the License for the specific language governing permissions and
|
||||
limitations under the License.
|
||||
|
||||
|
||||
imacat ^_*'
|
||||
2007/12/3
|
||||
<imacat@mail.imacat.idv.tw>
|
||||
https://www.imacat.idv.tw
|
58
README.zh-cn
58
README.zh-cn
@ -1,58 +0,0 @@
|
||||
arclog - 记录档每月归档程式
|
||||
|
||||
版权所有 (c) 2001-2007 依玛猫
|
||||
|
||||
本程式是自由软体,您可以遵照自由软体基金会 (Free Software Foundation)
|
||||
出版的 GNU 通用公共许可证条款 (GNU General Public License) 第三版来修
|
||||
改和重新发布这一程式,或者自由选择使用任何更新的版本。
|
||||
|
||||
发布这一程式的目的是希望它有用,但没有任何担保。甚至没有适合特定目的
|
||||
而隐含的担保。更详细的情况请参阅 GNU 通用公共许可证。
|
||||
|
||||
您应该已经和程式一起收到一份 GNU 通用公共许可证的副本。如果还没有,参
|
||||
阅<http://www.gnu.org/licenses/>。
|
||||
|
||||
arclog 是每月归档程式,将记录档中,前月的记录按月份压缩归档,以节省硬碟空
|
||||
间,并避免记录档被有心人士破坏。
|
||||
|
||||
arclog 目前支援 Apache 、 Syslog 、 NTP 、 Apache 1 SSL engine log 及我自
|
||||
己用的括弧 ISO 修正格式五种格式的记录档,与 gzip 和 bzip2 两种压缩法。很多程
|
||||
式都可以用 Apache 相容记录档格式记录,如 CUPS 、 ProFTPD 、 Pure-FTPd…等,
|
||||
arclog 也可以归档这些 Apache 相容格式的记录档。
|
||||
|
||||
◎说明文件
|
||||
|
||||
请输入 perldoc arclog ,阅读 arclog 的说明。
|
||||
|
||||
|
||||
◎安装指南
|
||||
|
||||
请详阅 INSTALL.zh-tw 档案的安装指南。
|
||||
|
||||
|
||||
◎更新、修正说明
|
||||
|
||||
请详阅 Changes 档案的更新说明,以了解新增功能、问题修正、更新等。
|
||||
|
||||
|
||||
◎技术支援
|
||||
|
||||
arclog 的网站在 http://arclog.sourceforge.net/ ,请随时上网了解最新讯息。
|
||||
|
||||
arclog 有一个邮件通讯 arclog-users@lists.sourceforge.net ,若有任何问题、
|
||||
建议、问题回报、修补程式,请寄到邮件通讯上。请连上
|
||||
https://lists.sourceforge.net/lists/listinfo/arclog-users 加入我们的邮件通讯
|
||||
。除非是私人事务,否则请不要直接写信给我。邮件通讯会自动归档,日后若其他人有
|
||||
相同问题,可以直接在通讯旧档中找到答案,节省大家宝贵的时间。
|
||||
|
||||
|
||||
◎版权声明
|
||||
|
||||
本程式依 GNU 通用公共许可证 (GPL) 版权发布,请参考 COPYING 档案的说明,
|
||||
了解本程式的版权授权内容。
|
||||
|
||||
|
||||
依玛猫 imacat ^_*'
|
||||
2007-12-03
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
58
README.zh-tw
58
README.zh-tw
@ -1,58 +0,0 @@
|
||||
arclog - 記錄檔每月歸檔程式
|
||||
|
||||
版權所有 (c) 2001-2007 依瑪貓
|
||||
|
||||
本程式是自由軟體,您可以遵照自由軟體基金會 (Free Software Foundation)
|
||||
出版的 GNU 通用公共許可證條款 (GNU General Public License) 第三版來修
|
||||
改和重新發佈這一程式,或者自由選擇使用任何更新的版本。
|
||||
|
||||
發佈這一程式的目的是希望它有用,但沒有任何擔保。甚至沒有適合特定目的
|
||||
而隱含的擔保。更詳細的情況請參閱 GNU 通用公共許可證。
|
||||
|
||||
您應該已經和程式一起收到一份 GNU 通用公共許可證的副本。如果還沒有,參
|
||||
閱<http://www.gnu.org/licenses/>。
|
||||
|
||||
arclog 是每月歸檔程式,將記錄檔中,前月的記錄按月份壓縮歸檔,以節省硬碟空
|
||||
間,並避免記錄檔被有心人士破壞。
|
||||
|
||||
arclog 目前支援 Apache 、 Syslog 、 NTP 、 Apache 1 SSL engine log 及我自
|
||||
己用的括弧 ISO 修正格式五種格式的記錄檔,與 gzip 和 bzip2 兩種壓縮法。很多程
|
||||
式都可以用 Apache 相容記錄檔格式記錄,如 CUPS 、 ProFTPD 、 Pure-FTPd…等,
|
||||
arclog 也可以歸檔這些 Apache 相容格式的記錄檔。
|
||||
|
||||
◎說明文件
|
||||
|
||||
請輸入 perldoc arclog ,閱讀 arclog 的說明。
|
||||
|
||||
|
||||
◎安裝指南
|
||||
|
||||
請詳閱 INSTALL.zh-tw 檔案的安裝指南。
|
||||
|
||||
|
||||
◎更新、修正說明
|
||||
|
||||
請詳閱 Changes 檔案的更新說明,以瞭解新增功能、問題修正、更新等。
|
||||
|
||||
|
||||
◎技術支援
|
||||
|
||||
arclog 的網站在 http://arclog.sourceforge.net/ ,請隨時上網瞭解最新訊息。
|
||||
|
||||
arclog 有一個郵件通訊 arclog-users@lists.sourceforge.net ,若有任何問題、
|
||||
建議、問題回報、修補程式,請寄到郵件通訊上。請連上
|
||||
https://lists.sourceforge.net/lists/listinfo/arclog-users 加入我們的郵件通訊
|
||||
。除非是私人事務,否則請不要直接寫信給我。郵件通訊會自動歸檔,日後若其他人有
|
||||
相同問題,可以直接在通訊舊檔中找到答案,節省大家寶貴的時間。
|
||||
|
||||
|
||||
◎版權聲明
|
||||
|
||||
本程式依 GNU 通用公共許可證 (GPL) 版權發佈,請參考 COPYING 檔案的說明,
|
||||
瞭解本程式的版權授權內容。
|
||||
|
||||
|
||||
依瑪貓 imacat ^_*'
|
||||
2007-12-03
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
61
SIGNATURE
61
SIGNATURE
@ -1,61 +0,0 @@
|
||||
This file contains message digests of all files listed in MANIFEST,
|
||||
signed via the Module::Signature module, version 0.55.
|
||||
|
||||
To verify the content in this distribution, first make sure you have
|
||||
Module::Signature installed, then type:
|
||||
|
||||
% cpansign -v
|
||||
|
||||
It will check each file's integrity, as well as the signature's
|
||||
validity. If "==> Signature verified OK! <==" is not displayed,
|
||||
the distribution may already have been compromised, and you should
|
||||
not run its Makefile.PL or Build.PL.
|
||||
|
||||
-----BEGIN PGP SIGNED MESSAGE-----
|
||||
Hash: SHA1
|
||||
|
||||
SHA1 91ced1a733e7448edc19eab22482508d58d7b284 AUTHORS
|
||||
SHA1 c4c98cc9e7ac5e119752587d0322280a7a71d205 AUTHORS.zh-cn
|
||||
SHA1 eb60ee204fcf7244fc0774ac34d05a35a281e82b AUTHORS.zh-tw
|
||||
SHA1 412193f4d2ed686ed0041b3c8835461e9d440d68 Build.PL
|
||||
SHA1 8624bcdae55baeef00cd11d5dfcfa60f68710a02 COPYING
|
||||
SHA1 36d19de5f62f40b91d486cad7698586b56e11968 Changes
|
||||
SHA1 22d80da796c88630915181541744461cf96e7f1a INSTALL
|
||||
SHA1 00a2c93770fcb552b327cbc4438dc990d6d9c43d INSTALL.zh-cn
|
||||
SHA1 b042e58841bcadd56bfb6dbdd52452bcd4215626 INSTALL.zh-tw
|
||||
SHA1 e71173ba2be13190d51294a2b132940766c65bfd MANIFEST
|
||||
SHA1 92bc0b6b053289e807fe9b339a5817cb8d7369b1 META.yml
|
||||
SHA1 60c8024233f1b70534758aea970fe1a7d82bfff8 Makefile.PL
|
||||
SHA1 f18322a97f991168d6a85104a8ce658f959431a1 NEWS
|
||||
SHA1 183e9814e38c0fdaebc1624be8f1a32fb6649562 README
|
||||
SHA1 38db34e5c056d10691f755e524b34e66bca0a981 README.zh-cn
|
||||
SHA1 a01809cac1f61ced88f47d823b45c381706fe582 README.zh-tw
|
||||
SHA1 3b55f1f8407b87ab8627e3a12c50836ad6429f5c THANKS
|
||||
SHA1 aeb1c5d44e73163c50f0997203e49a8a029064d6 THANKS.zh-cn
|
||||
SHA1 19bff4abc6eca9c61c875e8aef50fd3d44ec8034 THANKS.zh-tw
|
||||
SHA1 48f5fff8ffb487089aa9fdcb9279ba3fd1c508c0 TODO
|
||||
SHA1 00e67ef5268c66e8648c5f14da8e7912e2c2f9c5 TODO.zh-cn
|
||||
SHA1 2e45a15082ae9630230235d7538dec63c6df18c8 TODO.zh-tw
|
||||
SHA1 1f0c3a74a765a905339dd24ac344cc0ad48933e5 UPGRADE
|
||||
SHA1 ef05ca4632730a76dbaf9119b3da95b7477aa6c3 UPGRADE.zh-cn
|
||||
SHA1 182c625b0f13c8dcc4641adff1499bd705d9a53a UPGRADE.zh-tw
|
||||
SHA1 0e45847a9428d8ec1154803e55641d1045f89f4b arclog
|
||||
SHA1 dd80c79b178517f082ae9503889c36d0cb4e6cc8 arclog.en.html
|
||||
SHA1 9604c39bf6d69cf3fd8bcb036f547761edf04961 arclog.zh-cn.html
|
||||
SHA1 ab9d8bd14a36d68790c71044de1d7a67a34b41c5 arclog.zh-tw.html
|
||||
SHA1 bd75d59f9d7d9731bfabdc48ecd19e704d218e38 fdl.txt
|
||||
SHA1 520fdcf4374af210380db9e0fdaea44c904a15fc pgpkey.asc
|
||||
SHA1 525f414c7a0aadc61240a4b0959ca2cda7514c75 t/00-signature.t
|
||||
SHA1 96374acc016c20bdbe31dc4ce8eac89f59b642e6 t/01-exhaust.t
|
||||
SHA1 504ee1023c7db80427dc633e1611521984909e9d t/02-several.t
|
||||
SHA1 497de13a15b6721c5cf5c0be9551dc25a841312c t/03-fallback.t
|
||||
SHA1 212ae878ffdf68742339b452ab631b0cbb340880 t/04-errors.t
|
||||
SHA1 b85626024d610808bd0909989dcfb9fb20a40485 t/99-pod.t
|
||||
SHA1 e698db4a84dbe5200cf37ad73667a595a23d9d04 t/_helper.pm
|
||||
-----BEGIN PGP SIGNATURE-----
|
||||
Version: GnuPG v1.4.7 (GNU/Linux)
|
||||
|
||||
iD8DBQFHVgHci9gubzC5S1wRAgU7AJwK/IesoIYHuMd2vOeyEqYrf25ViwCcD0cc
|
||||
tgiH/AXhrVXGRy97R25j7H4=
|
||||
=Jrgq
|
||||
-----END PGP SIGNATURE-----
|
@ -1 +0,0 @@
|
||||
感谢 SourceForge 提供架设 arclog 。
|
@ -1 +0,0 @@
|
||||
感謝 SourceForge 提供架設 arclog 。
|
2
TODO
2
TODO
@ -1,2 +0,0 @@
|
||||
1. Multi-lingual support, with Traditional and Simplified Chinese
|
||||
messages.
|
@ -1 +0,0 @@
|
||||
1. 多语化,加上正简中文讯息。
|
@ -1 +0,0 @@
|
||||
1. 多語化,加上正簡中文訊息。
|
47
UPGRADE
47
UPGRADE
@ -1,47 +0,0 @@
|
||||
Upgrade Instruction
|
||||
|
||||
Here are a few hints for people upgrading from 2.1.1dev4 or earlier:
|
||||
|
||||
* The Script Name is Changed from arclog.pl to arclog
|
||||
|
||||
This is obvious. If you have any scripts or cron jobs that are running
|
||||
arclog, remember to modify your script for the new name. Of course, you can
|
||||
rename arclog to arclog.pl. It will still work.
|
||||
|
||||
The reason I changed the script and project name is that: A dot "." in
|
||||
the project name is not valid everywhere. At least SourceForge don't accept
|
||||
it. Besides, "arclog" is enough for a script name under UNIX. The ".pl" file
|
||||
name suffix/extension may be convienent for MS-Windows, but MS-Windows users
|
||||
won't run it with explorer file name association anyway, and there is a pl2bat
|
||||
to convert "arclog" to "arclog.bat", which would make more sense. The only
|
||||
disadvantage is that I use UltraEdit, which depends on the file name extension
|
||||
for the automatic syntax highlighting rules. But this is not much trouble. I
|
||||
can manuall set it anyway.
|
||||
|
||||
|
||||
* The Default Installation Location Is at /usr/bin
|
||||
|
||||
Also, the man page is at /usr/share/man/man1/arclog.1. This is to follow
|
||||
Perl's standard convension, and to avoid breaking ExtUtils::MakeMaker with
|
||||
future versions.
|
||||
|
||||
When you run "perl Makefile.PL" or "perl Build.PL", it will hint a list of
|
||||
old files found to be removed. Please delete them manually.
|
||||
|
||||
If you saved them in other places, you have to delete them yourself.
|
||||
|
||||
Also, if you have any scripts or cron jobs that are running arclog, remember
|
||||
to modify your script for the new arclog location. Of course, you can copy
|
||||
arclog to the original location. It will still work.
|
||||
|
||||
|
||||
* The Argument of --keep and --override Options Are Required Now
|
||||
|
||||
Support for omitting --keep or --override argument is removed. This helps
|
||||
avoiding confusion for the log file name and the option arguments.
|
||||
|
||||
|
||||
imacat
|
||||
2007-11-26
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
@ -1,39 +0,0 @@
|
||||
升级指南
|
||||
|
||||
若你由 2.1.1dev4 或之前的版本升级,请阅读以下说明:
|
||||
|
||||
◎档名由 arclog.pl 改为 arclog
|
||||
|
||||
这很明显吧。 :p 若你有写程式,或设定 cron 排程来执行 arclog ,请记得更改档
|
||||
名。不过你也可以把 arclog 改名回原来的 arclog.pl ,不会有任何问题。
|
||||
|
||||
改名原因如下:专案名称含「.」会处处碰壁。 SourceForget 就不接受含「.」的专
|
||||
案名称。此外,程式名称 arclog 在 UNIX 下就可以跑了。副档名 .pl 虽然在
|
||||
MS-Windows 下方便,但反正 MS-Windows 下也不会直接点两下依副档名执行。而且还有
|
||||
pl2bat 可以把 arclog 转成 arclog.bat ,这样反而比较合理。唯一不便的是我用的编
|
||||
辑器 UltraEdit 依副档名决定程式语言语法标示,不过这也没什么大不了,手动设程式
|
||||
语言就好了。
|
||||
|
||||
|
||||
◎预设安装目录为 /usr/bin
|
||||
|
||||
说明档则在 /usr/share/man/man1/arclog.1 。这是为符合 Perl 的标准安装流程,
|
||||
敝免破坏 ExtUtils::MakeMaker 的预设设定,造成日后升级的问题。
|
||||
|
||||
执行 perl Makefile.PL 或 perl Build.PL 时,会提示你所在系统上发现的的旧档
|
||||
案。请自行删除。若你程式存在其它地方,请记得要自己删掉。
|
||||
|
||||
若你有写程式,或设定 cron 排程来执行 arclog ,请记得更改档名。不过你也可以
|
||||
把 arclog 存到原来的目录去,不会有任何问题。
|
||||
|
||||
|
||||
◎ --keep 和 --override 选项现在一定要加模式参数
|
||||
|
||||
以前可以直接用 --keep 和 --override 选项,不加参数,现在一定要加参数,以避
|
||||
免混淆选项的参数和要处理的记录档名。
|
||||
|
||||
|
||||
依玛猫
|
||||
2007-11-26
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
@ -1,39 +0,0 @@
|
||||
昇級指南
|
||||
|
||||
若妳由 2.1.1dev4 或之前的版本昇級,請閱讀以下說明:
|
||||
|
||||
◎檔名由 arclog.pl 改為 arclog
|
||||
|
||||
這很明顯吧。 :p 若妳有寫程式,或設定 cron 排程來執行 arclog ,請記得更改檔
|
||||
名。不過妳也可以把 arclog 改名回原來的 arclog.pl ,不會有任何問題。
|
||||
|
||||
改名原因如下:專案名稱含「.」會處處碰壁。 SourceForget 就不接受含「.」的專
|
||||
案名稱。此外,程式名稱 arclog 在 UNIX 下就可以跑了。副檔名 .pl 雖然在
|
||||
MS-Windows 下方便,但反正 MS-Windows 下也不會直接點兩下依副檔名執行。而且還有
|
||||
pl2bat 可以把 arclog 轉成 arclog.bat ,這樣反而比較合理。唯一不便的是我用的編
|
||||
輯器 UltraEdit 依副檔名決定程式語言語法標示,不過這也沒什麼大不了,手動設程式
|
||||
語言就好了。
|
||||
|
||||
|
||||
◎預設安裝目錄為 /usr/bin
|
||||
|
||||
說明檔則在 /usr/share/man/man1/arclog.1 。這是為符合 Perl 的標準安裝流程,
|
||||
敝免破壞 ExtUtils::MakeMaker 的預設設定,造成日後昇級的問題。
|
||||
|
||||
執行 perl Makefile.PL 或 perl Build.PL 時,會提示妳所在系統上發現的的舊檔
|
||||
案。請自行刪除。若妳程式存在其它地方,請記得要自己刪掉。
|
||||
|
||||
若妳有寫程式,或設定 cron 排程來執行 arclog ,請記得更改檔名。不過妳也可以
|
||||
把 arclog 存到原來的目錄去,不會有任何問題。
|
||||
|
||||
|
||||
◎ --keep 和 --override 選項現在一定要加模式參數
|
||||
|
||||
以前可以直接用 --keep 和 --override 選項,不加參數,現在一定要加參數,以避
|
||||
免混淆選項的參數和要處理的記錄檔名。
|
||||
|
||||
|
||||
依瑪貓
|
||||
2007-11-26
|
||||
imacat@mail.imacat.idv.tw
|
||||
http://www.imacat.idv.tw/
|
506
arclog.en.html
506
arclog.en.html
@ -1,506 +0,0 @@
|
||||
<?xml version="1.0" encoding="US-ASCII" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=US-ASCII" />
|
||||
<meta http-equiv="Content-Style-Type" content="text/css" />
|
||||
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
||||
<meta name="author" content="imacat" />
|
||||
<meta name="copyright" content="© 2001-2008 imacat." />
|
||||
<meta name="keywords" content="archive, Apache, Syslog, log files" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.zh-tw.html"
|
||||
hreflang="zh-tw" title="正體中文" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.zh-cn.html"
|
||||
hreflang="zh-cn" title="简体中文" />
|
||||
<link rel="copyright" type="text/plain" href="fdl.txt" />
|
||||
<link rel="author" href="mailto:imacat@mail.imacat.idv.tw" />
|
||||
<style type="text/css">
|
||||
h2, em {
|
||||
text-transform: uppercase;
|
||||
}
|
||||
.accessguide {
|
||||
font-size: 0.5em;
|
||||
float: left;
|
||||
width: 0.5em;
|
||||
}
|
||||
</style>
|
||||
<title>arclog Version 3.04</title>
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<div class="langs" title="Language Switching Area">
|
||||
<span xml:lang="zh-tw"><a href="arclog.zh-tw.html"
|
||||
title="切換到本頁的正體中文版。"
|
||||
hreflang="zh-tw">正體中文</a></span> |
|
||||
<span xml:lang="zh-cn"><a href="arclog.zh-cn.html"
|
||||
title="切换到本页的简体中文版。"
|
||||
hreflang="zh-cn">简体中文</a></span> |
|
||||
<span>English</span>
|
||||
</div>
|
||||
<hr />
|
||||
|
||||
|
||||
<div id="body" class="body" title="Page Content Area">
|
||||
<div class="accessguide"><a accesskey="C"
|
||||
href="#body" title="Page Content Area">:::</a></div>
|
||||
|
||||
<h1><samp>arclog</samp> Version 3.04</h1>
|
||||
|
||||
|
||||
<h2>What’s New?</h2>
|
||||
|
||||
<dl>
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog</samp> version 3.04 is released. Documentation fixes. Upgrade is not necessary if you have installed <samp>arclog</samp> version 3.00 or later. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.04.tar.gz" type="application/x-gzip">Download <samp>arclog</samp> version 3.04</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog</samp> version 3.03 is released. Test suite fixes. Required <acronym title="Practical Extraction and Reporting Language">Perl</acronym> version number compatible to older versions, to work with the <acronym title="Practical Extraction and Reporting Language">Perl</acronym> 5.10 warning. Upgrade is not necessary if you have installed <samp>arclog</samp> version 3.00 or later. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.03.tar.gz" type="application/x-gzip">Download <samp>arclog</samp> version 3.03</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-30</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog</samp> version 3.02 is released. Test suite improvement, in order to deal with daylight saving time. Upgrade is not necessary if you have installed <samp>arclog</samp> version 3.00 or later. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.02.tar.gz" type="application/x-gzip">Download <samp>arclog</samp> version 3.02</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog</samp> version 3.01 is released. Test suite improvement, in order to catch <abbr title="Comprehensive Perl Archive Network">CPAN</abbr> tester failures. Upgrade is not necessary if you have installed <samp>arclog</samp> version 3.00. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.01.tar.gz" type="application/x-gzip">Download <samp>arclog</samp> version 3.01</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog</samp> version 3.00 is released. The code is completely new borrowed from <a href="http://www.imacat.idv.tw/tech/reslog.html"><samp>reslog</samp></a>, with the name changed from <samp>arclog.pl</samp> to <samp>arclog</samp>, too. The new object-oriented handlers deal with different compression methods, formats nicely. <acronym title="Practical Extraction and Reporting Language">Perl</acronym>’s s build system <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a> and <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a> are used instead of <a href="http://www.gnu.org/software/autoconf/"><acronym title="GNU’s Not UNIX">GNU</acronym> <samp>autoconf</samp></a>. And there is a complete test suite that help quality assurance. License updated to <a href="http://www.gnu.org/licenses/gpl-3.0.html"><abbr title="GNU General Public License version 3">GPLv3</abbr></a>. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.00.tar.gz" type="application/x-gzip">Download <samp>arclog</samp> version 3.00</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-26</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog.pl</samp> version 2.1.0 is released. This is the final 2.1.0 release. It adds support for <samp>bzip2</samp> compression, <samp>gzip</samp> compression with <samp>gzip</samp> binary instead of <a href="http://search.cpan.org/dist/Compress-Zlib/"><samp>Compress::Zlib</samp></a>, and <a href="http://www.gnu.org/software/autoconf/"><acronym title="GNU’s Not UNIX">GNU</acronym> <samp>autoconf</samp></a> configuration script. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0.tar.gz" type="application/x-gzip">Download <samp>arclog.pl</samp> version 2.1.0</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-18</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog.pl</samp> version 2.1.0dev2 is released. This release corrects several documentation errors. It also adds <a href="https://sourceforge.net/">SourceForge</a> in the documentations as one of the sources of <samp>arclog.pl</samp>. You can think of it as a <q>Source Forge Memorial Release</q>. :p You do nott have to upgrade to this version in a rush. <a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0dev2.tar.gz" type="application/x-gzip">Download <samp>arclog.pl</samp> version 2.1.0dev2</a>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-17</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp>arclog.pl</samp> is hosted at <a href="https://sourceforge.net/projects/arclog/">SourceForge</a> now! Congratulations! (Although I’m still trying hard to get it working at this time… ^^; )</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
<h2>Description</h2>
|
||||
|
||||
<p><dfn><samp>arclog</samp></dfn> archives the log files monthly. It strips off previous months’ log records from the log file, and save them to compressed archive files named <samp>logfile.yyyymm</samp>. It then saves the hard disk space and prevents potential attacks on log files.</p>
|
||||
|
||||
<p>Currently, <samp>arclog</samp> supports <a href="http://httpd.apache.org/">Apache</a> access log, Syslog, <a href="http://www.ntp.org/"><abbr title="network time protocol">NTP</abbr></a>, Apache 1 <abbr title="secure socket layer">SSL</abbr> engine log and my own bracketed, modified <acronym title="International Organization for Standardization">ISO</acronym> date/time log file formats, and <samp>gzip</samp> and <samp>bzip2</samp> compression methods. Several software projects log (or can log) in a format compatible with the Apache access log, like <a href="http://www.cups.org/"><abbr title="Common UNIX Printing System">CUPS</abbr></a>, <a href="http://www.proftpd.org/">ProFTPD</a>, <a href="http://www.pureftpd.org/">Pure-FTPd</a>… <abbr title="et cetera">etc.</abbr>, and <samp>arclog</samp> can archive their Apache-like log files, too.</p>
|
||||
|
||||
|
||||
<h2>Caution</h2>
|
||||
|
||||
<ul>
|
||||
<li><p><em>Archiving takes time</em>. To reduce the time occupying the source log file, <samp>arclog</samp> copies the content of the source log file to a temporary working file and restart the source log file first. Then <samp>arclog</samp> can take its time working on the temporary working file. However, please note:</p>
|
||||
<ol>
|
||||
<li><p>If you have a huge log file (several hundreds of <abbr title="megabyte">MB</abbr>s), merely copying still takes a lot of time. You had better stop logging first, archive the log file and restart logging, to avoid racing condition in writing. If you archive the log file periodly, it shall not grow too big.</p></li>
|
||||
<li><p>If<samp>arclog</samp> stops in the middle of the execution, it will leave a temporary working file. The next time <samp>arclog</samp> runs, it will stop when it sees that temporary working file. You have to process that temporary working file first. That temporary working file is merely a copy of the original log file. You can rename and archive it like an ordinary log file to solve this.</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>Do not sort unless you have a particular reason. Sorting has the following potential problem:</p>
|
||||
<ol>
|
||||
<li><p>Sorting may <em>eat huge memory</em> on large log files. The amount of the memory required depends on the number of records in each archived month. Modern Linux and <abbr title="Microsoft">MS</abbr>-Windows have memory consuming protection by killing processes that eats too much memory, but it still takes minutes, and your system will hang during that time. I do not know the memory consuming protection on other operating systems. If you try, you are at your own risk.</p></li>
|
||||
<li><p>The time units of all recognized log formats are <em>second</em>. Log records happen in a same second will be sorted by the log file order (if you are archiving several log files at a time) and then the log record order. I try to ensure that the sorted archived records are in a correct order of the happening events, but I cannot guarantee. You have to watch out if the order in a second is important.</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>Be careful on the Syslog and <abbr title="network time protocol">NTP</abbr> log files: Syslog and <abbr title="network time protocol">NTP</abbr> does not record the year. <samp>arclog</samp> uses <a href="http://search.cpan.org/dist/TimeDate/"><samp>Date::Parse</samp></a> to parse the date, which assums the year between this month and last next month if the year is missing. For <abbr title="example">ex.</abbr>, if today is 2001-06-08, it will then assume the year between 2001-06-30 back to 2000-07-01. I think this is smart enough. However, if you do have a Syslog or <abbr title="network time protocol">NTP</abbr> log file that has records older than one year, do not use <samp>arclog</samp>. It will destroy your log file.</p></li>
|
||||
|
||||
<li><p>If read from <samp>STDIN</samp>, please note:</p>
|
||||
<ol>
|
||||
<li><p>You <em>must</em> specify the output prefix if you want to read from <samp>STDIN</samp>, since what it needs is an output pathname prefix, not an output file.</p></li>
|
||||
<li><p><samp>STDIN</samp> cannot be deleted, restarted or partially kept. If you read from <samp>STDIN</samp>, the keep mode will fall back to <q>keep all</q>. If you archive several source log files including <samp>STDIN</samp>, the keep mode will fall back to <q>keep all</q> for all source log files, to prevent disaster.</p></li>
|
||||
<li><p>The answers of the <samp>ask</samp> mode is obtained from <samp>STDIN</samp>, too. Since you have only one <samp>STDIN</samp>, you cannot specify the <samp>ask</samp> mode while reading from <samp>STDIN</samp>. It will fall back to the <samp>fail</samp> mode in that case.</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>I suggest you to install <a href="http://search.cpan.org/dist/File-MMagic/"><samp>File::MMagic</samp></a> instead of counting on the <samp>file</samp> executable. The internal magic file of <a href="http://search.cpan.org/dist/File-MMagic/"><samp>File::MMagic</samp></a> seems to work better than the <samp>file</samp> executable. <samp>arclog</samp> treats everything not <samp>gzip</samp> nor <samp>bzip2</samp> compressed as plain text. When a compressed log file is wrongly recognized as an image, <samp>arclog</samp> will treat it as plain text, read log records directly from it and fail. This failure does not hurt the source log files, but is still annoying.</p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>System Requirement</h2>
|
||||
|
||||
<ol>
|
||||
<li><p><acronym title="Practical Extraction and Reporting Language">Perl</acronym>, version 5.8.0 or above. <samp>arclog</samp> uses 3-argument <samp>open()</samp> to duplicate filehandles, which is only supported since 5.8.0. I have not successfully port this onto earlier versions yet. Please tell me if you made it. You can run <q><samp>perl -v</samp></q> to see your current <acronym title="Practical Extraction and Reporting Language">Perl</acronym> version. If you do not have <acronym title="Practical Extraction and Reporting Language">Perl</acronym>, or if you have an older version of <acronym title="Practical Extraction and Reporting Language">Perl</acronym>, you can download and install/upgrade it from <a href="http://www.perl.com/">Perl website</a>. If you are using <abbr title="Microsoft">MS</abbr>-Windows, you can download and install <a href="http://www.activestate.com/">ActiveState ActivePerl</a>.</p></li>
|
||||
|
||||
<li><p>Required <acronym title="Practical Extraction and Reporting Language">Perl</acronym> modules:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/TimeDate/"><samp>Date::Parse</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>This is used to parse the timestamp of the log records. You can <a href="http://search.cpan.org/dist/TimeDate/">download and install <samp>Date::Parse</samp> from the <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> archive</a>, or install it with the <samp>CPAN</samp> shell by running <q><samp>cpan Date::Parse</samp></q>, or install it with the <samp>CPANPLUS</samp> shell by running <q><samp>cpanp i Date::Parse</samp></q>. Debian/Ubandu Linux users can install it by running <q><samp>apt-get install libtimedate-perl</samp></q>. Red Hat/Fedora/CentOS Linux users can install it by running <q><samp>yum install perl-TimeDate</samp></q>. FreeBSD users can install it by running <q><samp>ports install p5-TimeDate</samp></q>. ActivePerl users can install it by running <q><samp>ppm install Date::Parse</samp></q>.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
<p>If you install <samp>arclog</samp> with the <samp>CPAN</samp> or <samp>CPAN</samp> shell, the above shall be automatically installed.</p>
|
||||
</li>
|
||||
|
||||
<li><p>Optional <acronym title="Practical Extraction and Reporting Language">Perl</acronym> modules:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/File-MMagic/"><samp>File::MMagic</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>This is used to check the file type. If this is not available, <samp>arclog</samp> will look for the <samp>file</samp> executable instead. If that is not available, too, <samp>arclog</samp> will judge the file type by its name suffix (extension). In that case <samp>arclog</samp> will fail when reading from <samp>STDIN</samp>. You can <a href="http://search.cpan.org/dist/File-MMagic/">download and install <samp>File::MMagic</samp> from the <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> archive</a>, or install it with the <samp>CPAN</samp> shell by running <q><samp>cpan File::MMagic</samp></q>, or install it with the <samp>CPANPLUS</samp> shell by running <q><samp>cpanp i Term::ReadKey</samp></q>. Debian/Ubandu Linux users can install it by running <q><samp>apt-get install libfile-mmagic-perl</samp></q>. Red Hat/Fedora/CentOS Linux users can install it by running <q><samp>yum install perl-File-MMagic</samp></q>. FreeBSD users can install it by running <q><samp>ports install p5-File-MMagic</samp></q>. ActivePerl users can install it by running <q><samp>ppm install File::MMagic</samp></q>. The alternative <samp>file.exe</samp> for <abbr title="Microsoft">MS</abbr>-Windows can be obtained from the <a href="http://gnuwin32.sourceforge.net/">GnuWin32 home page</a>. Be sure to save it as <samp>file.exe</samp> somewhere in your <samp>PATH</samp>.</p>
|
||||
|
||||
<p>It is preferred to use <a href="http://search.cpan.org/dist/File-MMagic/"><samp>File::MMagic</samp></a>. The <samp>file</samp> executable seems to make mistakes occationally.</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Zlib/"><samp>Compress::Zlib</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>This is used to support read/write of gzip compressed files. It is only needed when gzip compressed files are encountered. If it is not available when needed, <samp>arclog</samp> will try to use the <samp>gzip</samp> executable instead. If that is not available, too, <samp>arclog</samp> will fail. You can <a href="http://search.cpan.org/dist/Compress-Zlib/">download and install <samp>Compress::Zlib</samp> from the <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> archive</a>, or install it with the <samp>CPAN</samp> shell by running <q><samp>cpan Compress::Zlib</samp></q>, or install it with the <samp>CPANPLUS</samp> shell by running <q><samp>cpanp i Compress::Zlib</samp></q>. Debian/Ubandu Linux users can install it by running <q><samp>apt-get install libcompress-zlib-perl</samp></q>. Red Hat/Fedora/CentOS Linux users can install it by running <q><samp>yum install perl-Compress-Zlib</samp></q>. FreeBSD users can install it by running <q><samp>ports install p5-Compress-Zlib</samp></q>. ActivePerl users can install it by running <q><samp>ppm install Compress::Zlib</samp></q>. The alternative <samp>gzip.exe</samp> for <abbr title="Microsoft">MS</abbr>-Windows can be obtained from the <a href="http://www.gzip.org/">gzip home page</a>. Be sure to save it as <samp>gzip.exe</samp> somewhere in your <samp>PATH</samp>.</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Bzip2/"><samp>Compress::Bzip2</samp></a>, version 2 or above</dt>
|
||||
|
||||
<dd>
|
||||
<p>This is used to support read/write of bzip2 compressed files. It is only needed when bzip2 compressed files are encountered. If it is not available when needed, <samp>arclog</samp> will try to use the <samp>bzip2</samp> executable instead. If that is not available, too, <samp>arclog</samp> will fail. Notice that older versions before 2 does not work, since file <abbr title="input and output">I/O</abbr> compression were not implemented yet. You can <a href="http://search.cpan.org/dist/Compress-Bzip2/">download and install <samp>Compress::Bzip2</samp> from the <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> archive</a>, or install it with the <samp>CPAN</samp> shell by running <q><samp>cpan Compress::Bzip2</samp></q>, or install it with the <samp>CPANPLUS</samp> shell by running <q><samp>cpanp i Compress::Bzip2</samp></q>. Debian/Ubandu Linux users can install it by running <q><samp>apt-get install libcompress-bzip2-perl</samp></q>. Red Hat/Fedora/CentOS Linux users can install it by running <q><samp>yum install perl-Compress-Bzip2</samp></q>. FreeBSD users can install it by running <q><samp>ports install p5-Compress-Bzip2</samp></q>. ActivePerl users can install it by running <q><samp>ppm install Compress::Bzip2</samp></q>. The alternative <samp>bzip2.exe</samp> for <abbr title="Microsoft">MS</abbr>-Windows can be obtained from the <a href="http://www.bzip.org/">bzip2 home page</a>. Be sure to save it as <samp>bzip2.exe</samp> somewhere in your <samp>PATH</samp>.</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/TermReadKey/"><samp>Term::ReadKey</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>This is used to display the progress bar. Without this <samp>arclog</samp> will not display the progress bar, but nothing else is different. The progress bar is a good visual representation of what <samp>arclog</samp> is currently doing. You can <a href="http://search.cpan.org/dist/TermReadKey/">download and install <samp>Term::ReadKey</samp> from the <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> archive</a>, or install it with the <samp>CPAN</samp> shell by running <q><samp>cpan Term::ReadKey</samp></q>, or install it with the <samp>CPANPLUS</samp> shell by running <q><samp>cpanp i Term::ReadKey</samp></q>. Debian/Ubandu Linux users can install it by running <q><samp>apt-get install libterm-readkey-perl</samp></q>. Red Hat/Fedora/CentOS Linux users can install it by running <q><samp>yum install perl-TermReadKey</samp></q>. FreeBSD users can install it by running <q><samp>ports install p5-Term-ReadKey</samp></q>. ActivePerl users can install it by running <q><samp>ppm install Term::ReadKey</samp></q>.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</li>
|
||||
</ol>
|
||||
|
||||
|
||||
<h2>Download</h2>
|
||||
|
||||
<p><samp>arclog</samp>’s official websites is at…</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><samp>arclog</samp> web site at SourceForge</a></p></li>
|
||||
|
||||
<li><p><a href="https://sourceforge.net/projects/arclog/"><samp>arclog</samp> project page at SourceForge</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/"><samp>arclog</samp> project page at <abbr title="Comprehensive Perl Archive Network">CPAN</abbr></a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html"><samp>arclog</samp> page at Tavern IMACAT’s</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>You can always download the newest version of <samp>arclog</samp> from…</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="https://sourceforge.net/project/showfiles.php?group_id=62499"><samp>arclog</samp> download page at SourceForge</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/"><samp>arclog</samp>’s project page at <abbr title="Comprehensive Perl Archive Network">CPAN</abbr></a></p></li>
|
||||
|
||||
<li><p><a href="ftp://ftp.imacat.idv.tw/pub/arclog/">Tavern IMACAT’s <abbr title="File Transfer Protocol">FTP</abbr> directory</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>imacat’s <abbr title="Pretty Good Privacy">PGP</abbr> public key is at…</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/pgpkey.asc">imacat’s <abbr title="Pretty Good Privacy">PGP</abbr> key at <samp>arclog</samp> SourceForge web site</a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/me/pgpkey.asc">imacat’s <abbr title="Pretty Good Privacy">PGP</abbr> key at Tavern IMACAT’s</a></p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>Install</h2>
|
||||
|
||||
<p>If you are upgrading from <samp>arclog.pl</samp> 2.1.1dev4 or earlier, please read <samp>UPGRADE</samp> for some upgrade instruction.</p>
|
||||
|
||||
<h3>Install with <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a></h3>
|
||||
|
||||
<p><samp>arclog</samp> uses standard <acronym title="Practical Extraction and Reporting Language">Perl</acronym> installation with <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a>. Follow these steps:</p>
|
||||
|
||||
<blockquote><pre>
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>When running <q><samp>make install</samp></q>, make sure you have the priviledge to write to the installation location. This usually requires the <samp>root</samp> priviledge.</p>
|
||||
|
||||
<p>If you are using ActivePerl under <abbr title="Microsoft">MS</abbr>-Windows, you should use <samp>nmake</samp> instead of <samp>make</samp>. <a href="ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe" type="application/x-dosexec"><samp>nmake</samp> can be obtained from the Microsoft <abbr title="File Transfer Protocol">FTP</abbr> site.</a></p>
|
||||
|
||||
<p>If you want to install into another location, you can set the <samp>PREFIX</samp>. For example, to install into your home when you are not <samp>root</samp>:</p>
|
||||
|
||||
<blockquote><pre>
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>Refer to the docuemntation of <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a> for more installation options (by running <q><samp>perldoc ExtUtils::MakeMaker</samp></q>).</p>
|
||||
|
||||
|
||||
<h3>Install with <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a></h3>
|
||||
|
||||
<p>You can install with <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a> instead, if you prefer. Follow these steps:</p>
|
||||
|
||||
<blockquote><pre>
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>When running <q><samp>./Build install</samp></q>, make sure you have the priviledge to write to the installation location. This usually requires the <samp>root</samp> priviledge.</p>
|
||||
|
||||
<p>If you want to install into another location, you can set the <samp>--prefix</samp>. For example, to install into your home when you are not <samp>root</samp>:</p>
|
||||
|
||||
<blockquote><pre>
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>Refer to the docuemntation of <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a> for more installation options (by running <q><samp>perldoc Module::Build</samp></q>).</p>
|
||||
|
||||
|
||||
<h2>Options</h2>
|
||||
|
||||
<pre>
|
||||
./arclog [options] logfile… [output]
|
||||
./arclog [-h|-v]
|
||||
</pre>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt><var>logfile</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>The log file to be archived. Specify <q><samp>-</samp></q> to read from <samp>STDIN</samp>. Multiple log files are supported. <samp>gzip</samp> or <samp>bzip2</samp> compressed files are supported, too.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt><var>output</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>The prefix of the output files. The output files will be named as <samp>output.<var>yyyymm</var></samp>, <abbr title="id est">i.e.</abbr>, <samp>output.200101</samp>, <samp>output.200102</samp>. If not specified, the default is the same as the log file. You must specify this if you want to read from <samp>STDIN</samp>. You cannot specify <q><samp>-</samp></q> (<samp>STDIN</samp>), since this is only a name prefix, not the output file.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-c, --compress <var>method</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>Specify the compression method for the archived files. Log files usually have large number of simular lines. Compress them saves you lots of disk spaces. (And this is why we want to <em>archive</em> them.) Currently the following compression methods are supported:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt>g, gzip</dt>
|
||||
|
||||
<dd>
|
||||
<p>Compress with <samp>gzip</samp>. This is the default. <samp>arclog</samp> can use <a href="http://search.cpan.org/dist/Compress-Zlib/"><samp>Compress::Zlib</samp></a> to compress instead of calling <samp>gzip</samp>. This can be safer and faster for not calling foreign binaries. But if <a href="http://search.cpan.org/dist/Compress-Zlib/"><samp>Compress::Zlib</samp></a> is not installed, it will try to use <samp>gzip</samp> binary instead. If <samp>gzip</samp> binary is not available, either, but <samp>gzip</samp> compression is required, the program will fail.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>b, bzip2</dt>
|
||||
|
||||
<dd>
|
||||
<p>Compress with <samp>bzip2</samp>. <samp>arclog</samp> can use <a href="http://search.cpan.org/dist/Compress-Bzip2/"><samp>Compress::Bzip2</samp></a> to compress instead of calling <samp>bzip2</samp>. This can be safer and faster for not calling foreign binaries. But if <a href="http://search.cpan.org/dist/Compress-Bzip2/"><samp>Compress::Bzip2</samp></a> is not installed, it will try to use <samp>bzip2</samp> binary instead. If <samp>bzip2</samp> binary is not available, either, but <samp>bzip2</samp> compression is required, the program will fail.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>n, none</dt>
|
||||
|
||||
<dd>
|
||||
<p>No compression at all. (Why? :p)</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>--nocompress</dt>
|
||||
|
||||
<dd>
|
||||
<p>Do not compress the archived files. This is equal to <q><samp>--compress none</samp></q>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-s, --sort</dt>
|
||||
|
||||
<dd>
|
||||
<p>Sort the records by time (and then the record order). Sorting eats huge memory and <abbr title="central processing unit">CPU</abbr>, so it is disabled by default. See the description above for a detailed illustration on sorting.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>--nosort</dt>
|
||||
|
||||
<dd>
|
||||
<p>Do not sort the records. This is the default.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-o, --override <var>mode</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>Whether we should overwrite the existing archived files. Currently the following modes are supported:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt>o, overwrite</dt>
|
||||
|
||||
<dd>
|
||||
<p>Overwrite existing target files. You will lost these existing records. Use with care. This is helpful if you are sure the master log file has the most complete records.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>a, append</dt>
|
||||
|
||||
<dd>
|
||||
<p>Append the records to the existing target files. You may destroy the log file completely by putting irrelevant entries altogether accidently. Use with care. This is helpful if you append want to merge 2 or more log files, for <abbr title="example">ex.</abbr>, 2 log files of different periods.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>i, ignore</dt>
|
||||
|
||||
<dd>
|
||||
<p>Ignore any existing target file, and discard all the records of those months. You will lost these log records. Use with care. This is helpful if you are supplying log records for the missing months, or if you are merging the log records in a complex manner.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>f, fail</dt>
|
||||
|
||||
<dd>
|
||||
<p>Stop processing whenever a target file exists, to prevent destroying existing files by accident. This should be mostly wanted when run from some automatic mechanism, like <samp>crontab</samp>. So, this is the default if no terminal is found at <samp>STDIN</samp>.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>ask</dt>
|
||||
|
||||
<dd>
|
||||
<p>Ask you what to do when a target file exists. This should be most wanted if you are running <samp>arclog</samp> interactively. So, this is the default if a terminal is found at <samp>STDIN</samp>. The answers are read from <samp>STDIN</samp>. Since you have only one <samp>STDIN</samp>, you cannot specify this mode if you want read the log file from <samp>STDIN</samp>. In that case, it will fall back to the <samp>fail</samp> mode. Also, if <samp>arclog</samp> cannot get its answer from <samp>STDIN</samp>, for <abbr title="example">ex.</abbr>, on a closed <samp>STDIN</samp> like <samp>crontab</samp>, it will fall back to <samp>fail</samp> mode.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-k, --keep <var>mode</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>What to keep in the source file. Current the following modes are supported:</p>
|
||||
|
||||
<dl>
|
||||
<dt>a, all</dt>
|
||||
|
||||
<dd>
|
||||
<p>Keep the source file after records are archived.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>r, restart</dt>
|
||||
|
||||
<dd>
|
||||
<p>Restart the source log file after records are archived.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>d, delete</dt>
|
||||
|
||||
<dd>
|
||||
<p>Delete the source log file after records are archived.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>t, this-month</dt>
|
||||
|
||||
<dd>
|
||||
<p>Archive and strip records of previous months off from the log file. Keep the records of this month in the source log file, to be archived next month. This is designed to be run from <samp>crontab</samp> monthly, so this is the default.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-d, --debug</dt>
|
||||
|
||||
<dd>
|
||||
<p>Show the detailed debugging messages.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-q, --quiet</dt>
|
||||
|
||||
<dd>
|
||||
<p>Shihhhhhh. Only yell when errors.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-h, --help</dt>
|
||||
|
||||
<dd>
|
||||
<p>Display the help message and exit.</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>-v, --version</dt>
|
||||
|
||||
<dd>
|
||||
<p>Output version information and exit.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
<h2>Copyright</h2>
|
||||
|
||||
<p>Copyright © 2001-2007 imacat..</p>
|
||||
|
||||
<p>This program is free software: you can redistribute it and/or modify it under the terms of the <cite><acronym title="GNU’s Not UNIX">GNU</acronym> General Public License</cite> as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.</p>
|
||||
|
||||
<p>This program is distributed in the hope that it will be useful, but <em>without any warranty</em>; without even the implied warranty of <em>merchantability</em> or <em>FITNESS FOR A PARTICULAR PURPOSE</em>. See the <cite><acronym title="GNU’s Not UNIX">GNU</acronym> General Public License</cite> for more details.</p>
|
||||
|
||||
<p>You should have received a copy of the <cite><acronym title="GNU’s Not UNIX">GNU</acronym> General Public License</cite> along with this program. If not, see <samp><<a href="http://www.gnu.org/licenses/">http://www.gnu.org/licenses/</a>></samp>.</p>
|
||||
|
||||
|
||||
<h2>Release Notes</h2>
|
||||
|
||||
<p>Please read the <samp>NEWS</samp> for the new functions and bug fixes.</p>
|
||||
|
||||
|
||||
<h2>Support</h2>
|
||||
|
||||
<p><samp>arclog</samp> is hosted on <a href="https://sourceforge.net/">SourceForge</a>, <a href="http://www.cpan.org/"><acronym title="Comprehensive Perl Archive Network">CPAN</acronym></a> and <a href="http://www.imacat.idv.tw/">Tavern IMACAT’s</a>. For the latest infomation, see</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><samp>arclog</samp> web site at SourceForge</a>.</p></li>
|
||||
<li><p><a href="http://sourceforge.net/projects/arclog/"><samp>arclog</samp> project page at SourceForge</a>.</p></li>
|
||||
<li><p><a href="http://search.cpan.org/dist/arclog/"><samp>arclog</samp> project page at <abbr title="Comprehensive Perl Archive Network">CPAN</abbr></a>.</p></li>
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html"><samp>arclog</samp> page at Tavern IMACAT’s</a>.</p></li>
|
||||
</ul>
|
||||
|
||||
<p>There is a <a href="mailto:arclog-users@lists.sourceforge.net"><samp>arclog</samp> mailing list</a> hosted at <a href="https://sourceforge.net/">SourceForge</a>. Please submit your questions, suggestions or bug reports there. It is a <a href="http://www.list.org/">Mailman</a> mailing list. For more information, see the <a href="https://lists.sourceforge.net/lists/listinfo/arclog-users"><samp>arclog</samp> mailing list page</a>. Alternatively, you can send a mail to the <a href="mailto:arclog-users-request@lists.sourceforge.net"><acronym title="electronic mail">e-mail</acronym> command mailbox</a> with the subject <samp>help</samp> for a list of available <acronym title="electronic mail">e-mail</acronym> commands.</p>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<hr />
|
||||
<div id="footer" class="footer" title="Page Footer Area">
|
||||
<address>By <a href="mailto:imacat@mail.imacat.idv.tw">imacat</a>, first version 2001-06-08, last updated 2008-11-18</address>
|
||||
|
||||
<address>Copyright © 2001-2008 imacat. Please read the <a href="fdl.txt">copyright</a> before copying.</address>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
</html>
|
@ -1,510 +0,0 @@
|
||||
<?xml version="1.0" encoding="GB2312" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn">
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
|
||||
<meta http-equiv="Content-Style-Type" content="text/css" />
|
||||
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
||||
<meta name="author" content="依玛猫" />
|
||||
<meta name="copyright" content="© 2001-2008 依玛猫。" />
|
||||
<meta name="keywords" content="整理, Apache, Syslog, 记录档" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.zh-tw.html"
|
||||
hreflang="zh-tw" title="正體中文" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.en.html"
|
||||
hreflang="en-us" title="English" />
|
||||
<link rel="copyright" type="text/plain" href="fdl.txt" />
|
||||
<link rel="author" href="mailto:imacat@mail.imacat.idv.tw" />
|
||||
<style type="text/css">
|
||||
h2, em {
|
||||
text-transform: uppercase;
|
||||
}
|
||||
.accessguide {
|
||||
font-size: 0.5em;
|
||||
float: left;
|
||||
width: 0.5em;
|
||||
}
|
||||
q {
|
||||
quotes: "“" "”" "‘" "’";
|
||||
}
|
||||
</style>
|
||||
<title>arclog 3.04 版</title>
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<div class="langs" title="语言切换区">
|
||||
<span xml:lang="zh-tw"><a href="arclog.zh-tw.html"
|
||||
title="切換到本頁的正體中文版。"
|
||||
hreflang="zh-tw">正體中文</a></span> |
|
||||
<span>简体中文</span> |
|
||||
<span xml:lang="en-us"><a href="arclog.en.html"
|
||||
title="Switch to the English version of this page."
|
||||
hreflang="en-us">English</a></span>
|
||||
</div>
|
||||
<hr />
|
||||
|
||||
|
||||
<div id="body" class="body" title="网页内文区">
|
||||
<div class="accessguide"><a accesskey="C"
|
||||
href="#body" title="网页内文区">:::</a></div>
|
||||
|
||||
<h1><samp xml:lang="en">arclog</samp> 3.04 版</h1>
|
||||
|
||||
|
||||
<h2>最新消息</h2>
|
||||
|
||||
<dl>
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.04 。说明文件修正。若你之前安装了 <samp xml:lang="en">arclog</samp> 3.00 版或之后的版本,不需要升级新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.04.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog</samp> 3.04 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.03 。修正测试套件。所需 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 版本号码改用相容於旧版的号码格式,以消除 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 5.10 的警告讯息。若你之前安装了 <samp xml:lang="en">arclog</samp> 3.00 版或之后的版本,不需要升级新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.03.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog</samp> 3.03 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-30</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.02 。修正测试套件,以处理日光节约时间问题。若你之前安装了 <samp xml:lang="en">arclog</samp> 3.00 版或之后的版本,不需要升级新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.02.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog</samp> 3.02 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.01 。修正测试套件,以协助厘清 <abbr title="Comprehensive Perl Archive Network">CPAN</abbr> 测试回报的错误。若你之前安装了 <samp xml:lang="en">arclog</samp> 3.00 版,不需要升级新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.01.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog</samp> 3.01 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.00 。从 <a href="http://www.imacat.idv.tw/tech/reslog.html"><samp xml:lang="en">reslog</samp></a> 借过来的全新程式码,档名也从 <samp xml:lang="en">arclog.pl</samp> 改为 <samp xml:lang="en">arclog</samp> 。新的物件导向处理器,可顺利处理各种压缩法及档案格式。安装系统由 <a href="http://www.gnu.org/software/autoconf/"><acronym title="GNU’s Not UNIX">GNU</acronym> <samp>autoconf</samp></a> 改用 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 的 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a> 和 <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a> 。新加上完整的测试套件,协助程式品管。版权更新为 <a href="http://www.gnu.org/licenses/gpl-3.0.html" hreflang="en" xml:lang="en"><abbr title="GNU General Public License version 3" xml:lang="en">GPLv3</abbr></a> 。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.00.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog</samp> 3.00 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-26</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog.pl</samp> 最新版本 2.1.0 。这是 2.1.0 的最终版,加上了 <samp xml:lang="en">bzip2</samp> 压缩的支援,用 <samp xml:lang="en">gzip</samp> 程式代替 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> 压缩,并改用 <a href="http://www.gnu.org/software/autoconf/" hreflang="en" xml:lang="en"><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> <samp>autoconf</samp></a> 安装设定程式。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog.pl</samp> 2.1.0</a> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-18</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog.pl</samp> 最新版本 2.1.0dev2 。本版修正了几个说明文件的错误,并把 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 加进 <samp xml:lang="en">arclog.pl</samp> 的下载网址中。你可以把它当做<q>申请 <span xml:lang="en">SourceForge</span> 纪念版</q>。原则上,不需要急著升级。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0dev2.tar.gz" type="application/x-gzip">下载 <samp xml:lang="en">arclog.pl</samp> 2.1.0dev2</a> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-17</dt>
|
||||
|
||||
<dd>
|
||||
<p>好消息! <samp xml:lang="en">arclog.pl</samp> 已开始架设於 <a href="https://sourceforge.net/projects/arclog/" xml:lang="en">SourceForge</a> 罗!(虽然我几乎还完全搞不清楚要怎么架…摸索中… ^^; )</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
|
||||
<h2>说明</h2>
|
||||
|
||||
<p><dfn xml:lang="en"><samp>arclog</samp></dfn> 是记录档每月归档程式,将记录档中,前月的记录按月份压缩归档,以节省硬碟空间,并避免记录档被有心人士破坏。</p>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 目前支援 <a href="http://httpd.apache.org/" hreflang="en" xml:lang="en">Apache</a> 、 <span xml:lang="en">Syslog</span> 、 <a href="http://www.ntp.org/" hreflang="en" xml:lang="en"><abbr title="network time protocol">NTP</abbr></a> 、 <span xml:lang="en">Apache 1 <abbr title="secure socket layer">SSL</abbr> engine log</span> 及我自己用的括弧 <acronym title="International Organization for Standardization" xml:lang="en">ISO</acronym> 修正格式五种格式的记录档,与 <samp xml:lang="en">gzip</samp> 和 <samp xml:lang="en">bzip2</samp> 两种压缩法。很多程式都可以用 <span xml:lang="en">Apache</span> 相容记录档格式记录,如 <a href="http://www.cups.org/" hreflang="en" xml:lang="en"><abbr title="Common UNIX Printing System">CUPS</abbr></a> 、 <a href="http://www.proftpd.org/" hreflang="en" xml:lang="en">ProFTPD</a> 、 <a href="http://www.pureftpd.org/" hreflang="en" xml:lang="en">Pure-FTPd</a>…等, <samp xml:lang="en">arclog</samp> 也可以归档这些 <span xml:lang="en">Apache</span> 相容格式的记录档。</p>
|
||||
|
||||
|
||||
<h2>注意事项</h2>
|
||||
|
||||
<ul>
|
||||
<li><p>归类记录档<em>很耗时间</em>。为减少占用原记录档的时间, <samp xml:lang="en">arclog</samp> 会先把原记录档复制到暂时工作档,视需要把原记录档归零,再慢慢在暂时工作档上作业。不过仍请注意下列事项:</p>
|
||||
<ol>
|
||||
<li><p>如果原记录档很大(好几百 <abbr title="megabyte" xml:lang="en">MB</abbr> ),光复制档案就很花时间了。这种情况下,最好先关闭记录程式,等整理完以后,再继续记录,以避免记录错乱。若平常有定期归档,记录档就不会无限制膨胀了。</p></li>
|
||||
<li><p>若 <samp xml:lang="en">arclog</samp> 执行到一半因故中断,会留下残存的暂时工作档。日后 <samp xml:lang="en">arclog</samp> 执行时,碰到之前残存的暂时工作档,会停止执行。要先处理掉之前的暂时工作档,才能继续。暂时工作档只是原档的复本,只要改个档名再归档一次,就可以了。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>没有特别理由,最好不要排序。排序的潜在问题如下:</p>
|
||||
<ol>
|
||||
<li><p>记录档很大时,排序<em>会吃掉很多记忆体</em>。所需记忆体依归档后每个月记录笔数而定。新版的 <span xml:lang="en">Linux</span> 和 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 系统有记忆体耗用保护,会中断吃掉太多记忆体的程式,不过这还是要花好几分钟,这几分钟内系统会完全当掉不动。我不知道别的作业系统有没有记忆体耗用保护。如果你要玩,风险自负。</p></li>
|
||||
<li><p>所有支援的记录档格式,时间最小单位为<em><q>秒</q></em>。同一秒内的记录会先以记录档顺序(若同时归档好几个记录档),再以记录本身出现的次序排序。这样设计尽可能让排序归档后同一秒内的记录次序,和事件真正的发生顺序一致,但也无法完全保证。若同一秒内的事件次序很重要,你要自行小心。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>归档 <span xml:lang="en">Syslog</span> 和 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 记录档时,请特别注意: <em><span xml:lang="en">Syslog</span> 和 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 记录档没有记年。</em> <samp xml:lang="en">arclog</samp> 用 <a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a> 模组解读时间。无年份时, <a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a> 会把年份设在<q>这个月</q>到<q>去年的下个月</q>之间。例如,若今天是 2001-06-08 ,那年份会设在 2001-06-30 到 2000-07-01 之间。我原则上赞成这样。不过,若你的 <span xml:lang="en">Syslog</span> 或 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 记录档超过一年整理归档,不要跑 <samp xml:lang="en">arclog</samp> ,否则记录档会大乱。</p></li>
|
||||
|
||||
<li><p>从标准输入读记录档,请注意下列事项:</p>
|
||||
<ol>
|
||||
<li><p>若要读标准输入,就一定要设定归档时,档名的开头,不然不知道怎么归档后要存到哪里去。</p></li>
|
||||
<li><p>标准输入无法删除、归零或保留部份内容。若要读标准输入,原档保留模式会自动退回成全部保留。一次读入多档时,若其中有标准输入,会一律退回全部保留,以避免混乱。</p></li>
|
||||
<li><p><samp xml:lang="en">ask</samp> 模式的回答也是从标准输入读的。因为标准输入只有一个,所以从标准输入读档时,无法跑 <samp xml:lang="en">ask</samp> 模式,会自动退回到 <samp xml:lang="en">fail</samp> 模式。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>我建议安装 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> ,尽量不要用 <samp xml:lang="en">file</samp> 程式。 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> 内建的档案类型表好像比 <samp xml:lang="en">file</samp> 程式准确。若不是 <samp xml:lang="en">gzip</samp> 或 <samp xml:lang="en">bzip2</samp> 压缩档, <samp xml:lang="en">arclog</samp> 会把视为当成纯文字档。若压缩档被误判为图档, <samp xml:lang="en">arclog</samp> 会当成纯文字档,直接读记录,并以错误结束。就算错误也不会弄乱原记录档,不过多少有点麻烦。</p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>系统需求</h2>
|
||||
|
||||
<ol>
|
||||
<li><p><acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 5.8.0 以上。 <samp xml:lang="en">arclog</samp> 用三个参数的 <samp xml:lang="en">open()</samp> 来复制档案操作,我还不知道怎么改写到更早的版本上执行。若你可以改写到更早的版本上执行,请告诉我。你可以输入 <q xml:lang="en"><samp>perl -v</samp></q> 查询你目前的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 版本。如果你没有 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 或需要升级,可以到 <a href="http://www.perl.com/" hreflang="en"><acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 网站</a>下载安装最新版 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 。若你是用 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> ,可以到 <a href="http://www.activestate.com/" hreflang="en"><span xml:lang="en">ActiveState</span> 公司</a>下载 <span xml:lang="en">ActivePerl</span> 安装。</p></li>
|
||||
|
||||
<li><p>需搭配的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 模组:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>这是辨识记录时间用的。你可以<a href="http://search.cpan.org/dist/TimeDate/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模组库下载安装 <samp xml:lang="en">Date::Parse</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpan Date::Parse</samp></q> 安装,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpanp i Date::Parse</samp></q> 安装。若你是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>apt-get install libtimedate-perl</samp></q> 安装。若你是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>yum install perl-TimeDate</samp></q> 安装。若你是 <span xml:lang="en">FreeBSD</span> 使用者,可以执行 <q xml:lang="en"><samp>ports install p5-TimeDate</samp></q> 安装。若你是 <span xml:lang="en">ActivePerl</span> 使用者,可以执行 <q xml:lang="en"><samp>ppm install Date::Parse</samp></q> 安装。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</li>
|
||||
|
||||
<li><p>选配的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 模组:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>这是检查档案类型用的。若没有安装, <samp xml:lang="en">arclog</samp> 会找 <samp xml:lang="en">file</samp> 程式代替。若还找不到, <samp xml:lang="en">arclog</samp> 会改用档尾(副档名)判断档案类型。这时若从标准输入读档, <samp xml:lang="en">arclog</samp> 就无法判断了。你可以<a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模组库下载安装 <samp xml:lang="en">File::MMagic</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpan File::MMagic</samp></q> 安装,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpanp i File::MMagic</samp></q> 安装。若你是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>apt-get install libfile-mmagic-perl</samp></q> 安装。若你是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>yum install perl-File-MMagic</samp></q> 安装。若你是 <span xml:lang="en">FreeBSD</span> 使用者,可以执行 <q xml:lang="en"><samp>ports install p5-File-MMagic</samp></q> 安装。若你是 <span xml:lang="en">ActivePerl</span> 使用者,可以执行 <q xml:lang="en"><samp>ppm install File::MMagic</samp></q> 安装。若你要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">file.exe</samp> 程式,可以由 <a href="http://gnuwin32.sourceforge.net/" hreflang="en-us"><span xml:lang="en">GnuWin32</span> 网站</a>下载。请确认下载后,存档在系统的路径下,档名为 <samp xml:lang="en">file.exe</samp> 。</p>
|
||||
|
||||
<p>建议用 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> 。 <samp xml:lang="en">file</samp> 程式偶尔会误判。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>这是处理 <samp xml:lang="en">gzip</samp> 压缩档用的,只有在处理 <samp xml:lang="en">gzip</samp> 压缩档才会用到。若要用时没有安装, <samp xml:lang="en">arclog</samp> 会试著改用 <samp xml:lang="en">gzip</samp> 程式代替。若还找不到, <samp xml:lang="en">arclog</samp> 就无法执行。你可以<a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模组库下载安装 <samp xml:lang="en">Compress::Zlib</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpan Compress::Zlib</samp></q> 安装,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpanp i Compress::Zlib</samp></q> 安装。若你是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>apt-get install libcompress-zlib-perl</samp></q> 安装。若你是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>yum install perl-Compress-Zlib</samp></q> 安装。若你是 <span xml:lang="en">FreeBSD</span> 使用者,可以执行 <q xml:lang="en"><samp>ports install p5-Compress-Zlib</samp></q> 安装。若你是 <span xml:lang="en">ActivePerl</span> 使用者,可以执行 <q xml:lang="en"><samp>ppm install Compress::Zlib</samp></q> 安装。若你要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">gzip.exe</samp> 程式,可以由 <a href="http://www.gzip.org/" hreflang="en"><samp xml:lang="en">gzip</samp> 网站</a>下载。请确认下载后,存档在系统的路径下,档名为 <samp xml:lang="en">gzip.exe</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> 第二版以上</dt>
|
||||
|
||||
<dd>
|
||||
<p>这是处理 <samp xml:lang="en">bzip2</samp> 压缩档用的,只有在处理 <samp xml:lang="en">bzip2</samp> 压缩档才会用到。若要用时没有安装, <samp xml:lang="en">arclog</samp> 会试著改用 <samp xml:lang="en">bzip2</samp> 程式代替。若还找不到, <samp xml:lang="en">arclog</samp> 就无法执行。你可以<a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模组库下载安装 <samp xml:lang="en">Compress::Bzip2</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpan Compress::Bzip2</samp></q> 安装,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpanp i Compress::Bzip2</samp></q> 安装。若你是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>apt-get install libcompress-bzip2-perl</samp></q> 安装。若你是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>yum install perl-Compress-Bzip2</samp></q> 安装。若你是 <span xml:lang="en">FreeBSD</span> 使用者,可以执行 <q xml:lang="en"><samp>ports install p5-Compress-Bzip2</samp></q> 安装。若你是 <span xml:lang="en">ActivePerl</span> 使用者,可以执行 <q xml:lang="en"><samp>ppm install Compress::Bzip2</samp></q> 安装。若你要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">bzip2.exe</samp> 程式,可以由 <a href="http://www.bzip.org/" hreflang="en"><samp xml:lang="en">bzip2</samp> 网站</a>下载。请确认下载后,存档在系统的路径下,档名为 <samp xml:lang="en">bzip2.exe</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/TermReadKey/" hreflang="en" xml:lang="en"><samp>Term::ReadKey</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>这是显示进度列用的,若没有安装,就不会显示进度列。此外不会有任何问题。进度列可以让你对 <samp xml:lang="en">arclog</samp> 的工作进度一目了然。你可以<a href="http://search.cpan.org/dist/TermReadKey/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模组库下载安装 <samp xml:lang="en">Term::ReadKey</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpan Term::ReadKey</samp></q> 安装,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 执行 <q xml:lang="en"><samp>cpanp i Term::ReadKey</samp></q> 安装。若你是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>apt-get install libterm-readkey-perl</samp></q> 安装。若你是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以执行 <q xml:lang="en"><samp>yum install perl-TermReadKey</samp></q> 安装。若你是 <span xml:lang="en">FreeBSD</span> 使用者,可以执行 <q xml:lang="en"><samp>ports install p5-Term-ReadKey</samp></q> 安装。若你是 <span xml:lang="en">ActivePerl</span> 使用者,可以执行 <q xml:lang="en"><samp>ppm install Term::ReadKey</samp></q> 安装。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</li>
|
||||
</ol>
|
||||
|
||||
|
||||
<h2>下载</h2>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 的官方网站在:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><span xml:lang="en">SourceForge</span> 上的 <samp xml:lang="en">arclog</samp> 网站。</a></p></li>
|
||||
|
||||
<li><p><a href="https://sourceforge.net/projects/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 专案页。</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 专案页。</a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html">旅舍依玛 <samp xml:lang="en">arclog</samp> 网页</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>最新版 <samp xml:lang="en">arclog</samp> 可由下列位址下载:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="https://sourceforge.net/project/showfiles.php?group_id=62499" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 下载页。</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 专案页。</a></p></li>
|
||||
|
||||
<li><p><a href="ftp://ftp.imacat.idv.tw/pub/arclog/">旅舍依玛 <abbr title="File Transfer Protocol" xml:lang="en">FTP</abbr> 站。</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>依玛猫的 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公钥在:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/pgpkey.asc"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 网站上的依玛猫 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公钥。</a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/me/pgpkey.asc">旅舍依玛上的依玛猫 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公钥。</a></p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>安装</h2>
|
||||
|
||||
<p>若你是由 <samp xml:lang="en">arclog.pl</samp> 2.1.1dev4 以前的版本升级,请参阅 <samp xml:lang="en">UPGRADE.zh-cn</samp> 档的升级说明。</p>
|
||||
|
||||
<h3>以 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 安装</h3>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 用 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 标准的 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 安装,程序如下:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>在 <q xml:lang="en"><samp>make install</samp></q> 前,请先确认你有在安装目录存档的权限。通常这时候要切换为 <samp xml:lang="en">root</samp> ,才能安装存档。</p>
|
||||
|
||||
<p>若你是用 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下的 <span xml:lang="en">ActivePerl</span> , <samp xml:lang="en">make</samp> 请改用 <samp xml:lang="en">nmake</samp> 。 <a href="ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe" type="application/x-dosexec"><samp xml:lang="en">nmake</samp> 可由微软的 <abbr title="File Transfer Protocol" xml:lang="en">FTP</abbr> 站下载</a>。</p>
|
||||
|
||||
<p>若要安装到其它地方,请设定好 <samp xml:lang="en">PREFIX</samp> 。例如,一般使用者,要安装在自己的目录下时:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>要知道更多安装选项的细节,请参阅 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 的说明(请执行 <q xml:lang="en"><samp>perldoc ExtUtils::MakeMaker</samp></q> )。</p>
|
||||
|
||||
|
||||
<h3>以 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 安装</h3>
|
||||
|
||||
<p>若你喜欢,也可以用 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 安装,程序如下:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>在 <q xml:lang="en"><samp>./Build install</samp></q> 前,请先确认你有在安装目录存档的权限。通常这时候要切换为 <samp xml:lang="en">root</samp> ,才能安装存档。</p>
|
||||
|
||||
<p>若要安装到其它地方,请设定好 <samp xml:lang="en">--prefix</samp> 。例如,一般使用者,要安装在自己的目录下时:</p>
|
||||
|
||||
<blockquote><pre xml:lang="en">
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>要知道更多安装选项的细节,请参阅 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 的说明(请执行 <q xml:lang="en"><samp>perldoc Module::Build</samp></q> )。</p>
|
||||
|
||||
|
||||
<h2>命令列参数</h2>
|
||||
|
||||
<pre>
|
||||
./arclog [参数] 记录档档名… [归档档名开头]
|
||||
./arclog [-h|-v]
|
||||
</pre>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en"><var xml:lang="zh-cn">记录档档名</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>要整理归档的记录档档名。若要从标准输入读记录档,请设定成 <q><samp>-</samp></q> 。可同时指定许多档案。支援 <samp xml:lang="en">gzip</samp> 或 <samp xml:lang="en">bzip2</samp> 压缩档。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en"><var xml:lang="zh-cn">归档档名开头</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>归档档名用的开头,归档后的档案会取名叫<q><samp>开头.yymmdd</samp></q>,如:<samp>开头.200101</samp> 、<samp>开头.200102</samp> …等。如果没有设定,会用记录档的档名当开头。若你要从标准输入读记录档,就一定要设归档档名开头。这里不能用 <q><samp>-</samp></q> (标准输入),因为这里设定的是档名的开头,不是档名。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-c, --compress <var xml:lang="zh-cn">压缩法</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>设定归档用的压缩法。记录大多都长得很像,压缩掉会省下非常多的空间。(不然干嘛归档? ^_*’ )目前支援下列的压缩法:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">g, gzip</dt>
|
||||
|
||||
<dd>
|
||||
<p>用 <samp xml:lang="en">gzip</samp> 压缩。预设是用 <samp xml:lang="en">gzip</samp> 压缩。 <samp xml:lang="en">arclog</samp> 可以用 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> 来代替 <samp xml:lang="en">gzip</samp> 压缩,不用呼叫外部程式,比较快比较安全。不过如果你没有装 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> , <samp xml:lang="en">arclog</samp> 还是会自己改用 <samp xml:lang="en">gzip</samp> 程式压缩。但如果连 <samp xml:lang="en">gzip</samp> 程式都没有,却要用到 <samp xml:lang="en">gzip</samp> 压缩,就没有办法了,无法执行。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">b, bzip2</dt>
|
||||
|
||||
<dd>
|
||||
<p>用 <samp xml:lang="en">bzip2</samp> 压缩。 <samp xml:lang="en">arclog</samp> 可以用 <a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> 来代替 <samp xml:lang="en">bzip2</samp> 压缩,不用呼叫外部程式,比较快比较安全。不过如果你没有装 <a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> , <samp xml:lang="en">arclog</samp> 还是会自己改用 <samp xml:lang="en">bzip2</samp> 程式压缩。但如果连 <samp xml:lang="en">bzip2</samp> 程式都没有,却要用到 <samp xml:lang="en">bzip2</samp> 压缩,就没有办法了,无法执行。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">n, none</dt>
|
||||
|
||||
<dd>
|
||||
<p>不要压缩。(你没搞错吧? :p )</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">--nocompress</dt>
|
||||
|
||||
<dd>
|
||||
<p>归档后不要压缩,效果和 <q xml:lang="en"><samp>--compress none</samp></q> 一样。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-s, --sort</dt>
|
||||
|
||||
<dd>
|
||||
<p>按记录时间先后(及记录本身顺序)排序。排序很耗记忆体和 <abbr title="central processing unit" xml:lang="en">CPU</abbr> ,所以预设是不排序。请参见前面关於排序的注意事项。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">--nosort</dt>
|
||||
|
||||
<dd>
|
||||
<p>不要排序(预设值)。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-o, --override <var xml:lang="zh-cn">模式</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>如果有同名的旧档,该怎么办。目前有下列模式:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">o, overwrite</dt>
|
||||
|
||||
<dd>
|
||||
<p>盖掉旧档。旧档的记录会被删掉,请多加小心。若你的记录档是主记录档,有最完整的记录,你可以用 <samp xml:lang="en">overwrite</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">a, append</dt>
|
||||
|
||||
<dd>
|
||||
<p>和旧档加在一起。这有可能会演变成大混乱,请多加小心。若你想把两份不同时间的记录档加在一起,你可以用 <samp xml:lang="en">append</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">i, ignore</dt>
|
||||
|
||||
<dd>
|
||||
<p>略过所有该月的记录。这有可能造成部份记录流失,请多加小心。若你只要补充没有归档的月份,你可以用 <samp xml:lang="en">ignore</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">f, fail</dt>
|
||||
|
||||
<dd>
|
||||
<p>结束程式,以免不小心破坏旧档。若你要用 <samp xml:lang="en">crontab</samp> 之类的程式,全自动化执行,最好这样,以免破坏资料。因此,若标准输入不是连到键盘上,预设是 <samp xml:lang="en">fail</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">ask</dt>
|
||||
|
||||
<dd>
|
||||
<p>问你该怎么办。若你是手动执行,这样最方便。因此,若标准输入是连到键盘上,预设是 <samp xml:lang="en">ask</samp> 。答案是从标准输入读的。因为标准输入只有一个,若你要从标准输入读记录档,不能跑 <samp xml:lang="en">ask</samp> 模式,会自动退回 <samp xml:lang="en">fail</samp> 模式。还有,如果从标准输入读不到东西,像 <samp xml:lang="en">crontab</samp> 里标准输入被关掉了,也会自动退回 <samp xml:lang="en">fail</samp> 模式。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-k, --keep <var xml:lang="zh-cn">模式</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>原记录档要怎么处理。目前有下列模式:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">a, all</dt>
|
||||
|
||||
<dd>
|
||||
<p>完全保留原档。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">r, restart</dt>
|
||||
|
||||
<dd>
|
||||
<p>归档后,原记录档归零。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">d, delete</dt>
|
||||
|
||||
<dd>
|
||||
<p>归档后,删除原记录档。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">t, this-month</dt>
|
||||
|
||||
<dd>
|
||||
<p>将之前月份的记录归档,保留这个月的记录,留待下个月归档。这是给 <samp xml:lang="en">crontab</samp> 每月归档用的。因此,预设是 <samp xml:lang="en">this-month</samp> 。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-d, --debug</dt>
|
||||
|
||||
<dd>
|
||||
<p>显示详细的执行过程。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-q, --quiet</dt>
|
||||
|
||||
<dd>
|
||||
<p>没事不要吵。 :p</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-h, --help</dt>
|
||||
|
||||
<dd>
|
||||
<p>显示程式说明。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-v, --version</dt>
|
||||
|
||||
<dd>
|
||||
<p>显示程式版本。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
<h2>版权声明</h2>
|
||||
|
||||
<p>版权所有 © 2001-2007 依玛猫。</p>
|
||||
|
||||
<p>本程式是自由软体,您可以遵照自由软体基金会 <span xml:lang="en">(Free Software Foundation)</span> 出版的 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共许可证</cite>条款 <span xml:lang="en">(<cite><acronym title="GNU’s Not UNIX">GNU</acronym> General Public License</cite>)</span> 第三版来修改和重新发布这一程式,或者自由选择使用任何更新的版本。</p>
|
||||
|
||||
<p>发布这一程式的目的是希望它有用,但没有任何担保。甚至没有适合特定目的而隐含的担保。更详细的情况请参阅 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共许可证</cite>。</p>
|
||||
|
||||
<p>您应该已经和程式一起收到一份 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共许可证</cite>的副本。如果还没有,参阅<samp><<a href="http://www.gnu.org/licenses/" hreflang="en">http://www.gnu.org/licenses/</a>></samp>。</p>
|
||||
|
||||
|
||||
<h2>版本纪录</h2>
|
||||
|
||||
<p>请阅读 <samp xml:lang="en">NEWS</samp> 档,查看程式的演变、新增的功能和修补的错误。</p>
|
||||
|
||||
|
||||
<h2>支援协助</h2>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 网站架在 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 、 <a href="http://www.cpan.org/" hreflang="en" xml:lang="en"><acronym title="Comprehensive Perl Archive Network">CPAN</acronym></a> 与 <a href="http://www.imacat.idv.tw/">旅舍依玛</a>。索取最新资讯,请驾临:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><span xml:lang="en">SourceForge</span> 上的 <samp xml:lang="en">arclog</samp> 网站</a>。</p></li>
|
||||
<li><p><a href="http://sourceforge.net/projects/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 专案页</a>。</p></li>
|
||||
<li><p><a href="http://search.cpan.org/dist/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 专案页</a>。</p></li>
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html">旅舍依玛 <samp xml:lang="en">arclog</samp> 网页</a>。</p></li>
|
||||
</ul>
|
||||
|
||||
<p>在 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 上有一个 <a href="mailto:arclog-users@lists.sourceforge.net"><samp xml:lang="en">arclog</samp> 的邮件通讯</a> 。使用上的问题、建议或错误回报,请提到通讯上讨论。它是 <a href="http://www.list.org/" hreflang="en" xml:lang="en">Mailman</a> 的邮件通讯。若要加入,请到 <a href="https://lists.sourceforge.net/lists/listinfo/arclog-users" hreflang="en"><samp xml:lang="en">arclog</samp> 邮件通讯的网页</a> 。你也可以写信到 <a href="mailto:arclog-users-request@lists.sourceforge.net"><acronym title="electronic mail" xml:lang="en">E-mail</acronym> 指令信箱</a>,标题填上 <samp xml:lang="en">help</samp> ,索取 <acronym title="electronic mail" xml:lang="en">E-mail</acronym> 指令说明。</p>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<hr />
|
||||
<div id="footer" class="footer" title="页尾区">
|
||||
<address><a href="mailto:imacat@mail.imacat.idv.tw">依玛猫</a>,初稿 2001-06-08 ,上次更新日期 2008-11-15</address>
|
||||
|
||||
<address>版权所有 © 2001-2008 依玛猫,欲转载引用请先阅读<a href="fdl.txt">版权声明</a>。</address>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
</html>
|
@ -1,515 +0,0 @@
|
||||
<?xml version="1.0" encoding="Big5" ?>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
|
||||
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-tw">
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=Big5" />
|
||||
<meta http-equiv="Content-Style-Type" content="text/css" />
|
||||
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
||||
<meta name="author" content="依瑪貓" />
|
||||
<meta name="copyright" content="© 2001-2008 依瑪貓。" />
|
||||
<meta name="keywords" content="整理, Apache, Syslog, 記錄檔" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.zh-cn.html"
|
||||
hreflang="zh-cn" title="简体中文" />
|
||||
<link rel="alternate" type="application/xhtml+xml" href="arclog.en.html"
|
||||
hreflang="en-us" title="English" />
|
||||
<link rel="copyright" type="text/plain" href="fdl.txt" />
|
||||
<link rel="author" href="mailto:imacat@mail.imacat.idv.tw" />
|
||||
<style type="text/css">
|
||||
h2, em {
|
||||
text-transform: uppercase;
|
||||
}
|
||||
.accessguide {
|
||||
font-size: 0.5em;
|
||||
float: left;
|
||||
width: 0.5em;
|
||||
}
|
||||
q {
|
||||
quotes: "「" "」" "『" "』";
|
||||
}
|
||||
q:lang(en) {
|
||||
quotes: "\201C" "\201D" "\2018" "\2019";
|
||||
}
|
||||
</style>
|
||||
<title>arclog 3.04 版</title>
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<div class="langs" title="語言切換區">
|
||||
<span>正體中文</span> |
|
||||
<span xml:lang="zh-cn"><a href="arclog.zh-cn.html"
|
||||
title="切换到本页的简体中文版。"
|
||||
hreflang="zh-cn">简体中文</a></span> |
|
||||
<span xml:lang="en"><a href="arclog.en.html"
|
||||
title="Switch to the English version of this page."
|
||||
hreflang="en-us">English</a></span>
|
||||
</div>
|
||||
<hr />
|
||||
|
||||
|
||||
<div id="body" class="body" title="網頁內文區">
|
||||
<div class="accessguide"><a accesskey="C"
|
||||
href="#body" title="網頁內文區">:::</a></div>
|
||||
|
||||
<h1><samp xml:lang="en">arclog</samp> 3.04 版</h1>
|
||||
|
||||
|
||||
<h2>最新消息</h2>
|
||||
|
||||
<dl>
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.04 。說明文件修正。若妳之前安裝了 <samp xml:lang="en">arclog</samp> 3.00 版或之後的版本,不需要昇級新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.04.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog</samp> 3.04 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-12-03</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.03 。修正測試套件。所需 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 版本號碼改用相容於舊版的號碼格式,以消除 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 5.10 的警告訊息。若妳之前安裝了 <samp xml:lang="en">arclog</samp> 3.00 版或之後的版本,不需要昇級新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.03.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog</samp> 3.03 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-30</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.02 。修正測試套件,以處理日光節約時間問題。若妳之前安裝了 <samp xml:lang="en">arclog</samp> 3.00 版或之後的版本,不需要昇級新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.02.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog</samp> 3.02 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.01 。修正測試套件,以協助釐清 <abbr title="Comprehensive Perl Archive Network">CPAN</abbr> 測試回報的錯誤。若妳之前安裝了 <samp xml:lang="en">arclog</samp> 3.00 版,不需要昇級新版。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.01.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog</samp> 3.01 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2007-11-28</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog</samp> 最新版本 3.00 。從 <a href="http://www.imacat.idv.tw/tech/reslog.html"><samp xml:lang="en">reslog</samp></a> 借過來的全新程式碼,檔名也從 <samp xml:lang="en">arclog.pl</samp> 改為 <samp xml:lang="en">arclog</samp> 。新的物件導向處理器,可順利處理各種壓縮法及檔案格式。安裝系統由 <a href="http://www.gnu.org/software/autoconf/"><acronym title="GNU’s Not UNIX">GNU</acronym> <samp>autoconf</samp></a> 改用 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 的 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/"><samp>ExtUtils::MakeMaker</samp></a> 和 <a href="http://search.cpan.org/dist/Module-Build/"><samp>Module::Build</samp></a> 。新加上完整的測試套件,協助程式品管。版權更新為 <a href="http://www.gnu.org/licenses/gpl-3.0.html" hreflang="en" xml:lang="en"><abbr title="GNU General Public License version 3" xml:lang="en">GPLv3</abbr></a> 。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog-3.00.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog</samp> 3.00 版</a>。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-26</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog.pl</samp> 最新版本 2.1.0 。這是 2.1.0 的最終版,加上了 <samp xml:lang="en">bzip2</samp> 壓縮的支援,用 <samp xml:lang="en">gzip</samp> 程式代替 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> 壓縮,並改用 <a href="http://www.gnu.org/software/autoconf/" hreflang="en" xml:lang="en"><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> <samp>autoconf</samp></a> 安裝設定程式。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog.pl</samp> 2.1.0</a> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-18</dt>
|
||||
|
||||
<dd>
|
||||
<p><samp xml:lang="en">arclog.pl</samp> 最新版本 2.1.0dev2 。本版修正了幾個說明文件的錯誤,並把 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 加進 <samp xml:lang="en">arclog.pl</samp> 的下載網址中。妳可以把它當做<q>申請 <span xml:lang="en">SourceForge</span> 紀念版</q>。原則上,不需要急著昇級。<a href="ftp://ftp.imacat.idv.tw/pub/arclog/arclog.pl-2.1.0dev2.tar.gz" type="application/x-gzip">下載 <samp xml:lang="en">arclog.pl</samp> 2.1.0dev2</a> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt>2002-09-17</dt>
|
||||
|
||||
<dd>
|
||||
<p>好消息! <samp xml:lang="en">arclog.pl</samp> 已開始架設於 <a href="https://sourceforge.net/projects/arclog/" xml:lang="en">SourceForge</a> 囉!(雖然我幾乎還完全搞不清楚要怎麼架…摸索中… ^^; )</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
|
||||
<h2>說明</h2>
|
||||
|
||||
<p><dfn xml:lang="en"><samp>arclog</samp></dfn> 是記錄檔每月歸檔程式,將記錄檔中,前月的記錄按月份壓縮歸檔,以節省硬碟空間,並避免記錄檔被有心人士破壞。</p>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 目前支援 <a href="http://httpd.apache.org/" hreflang="en" xml:lang="en">Apache</a> 、 <span xml:lang="en">Syslog</span> 、 <a href="http://www.ntp.org/" hreflang="en" xml:lang="en"><abbr title="network time protocol">NTP</abbr></a> 、 <span xml:lang="en">Apache 1 <abbr title="secure socket layer">SSL</abbr> engine log</span> 及我自己用的括弧 <acronym title="International Organization for Standardization" xml:lang="en">ISO</acronym> 修正格式五種格式的記錄檔,與 <samp xml:lang="en">gzip</samp> 和 <samp xml:lang="en">bzip2</samp> 兩種壓縮法。很多程式都可以用 <span xml:lang="en">Apache</span> 相容記錄檔格式記錄,如 <a href="http://www.cups.org/" hreflang="en" xml:lang="en"><abbr title="Common UNIX Printing System">CUPS</abbr></a> 、 <a href="http://www.proftpd.org/" hreflang="en" xml:lang="en">ProFTPD</a> 、 <a href="http://www.pureftpd.org/" hreflang="en" xml:lang="en">Pure-FTPd</a>…等, <samp xml:lang="en">arclog</samp> 也可以歸檔這些 <span xml:lang="en">Apache</span> 相容格式的記錄檔。</p>
|
||||
|
||||
|
||||
<h2>注意事項</h2>
|
||||
|
||||
<ul>
|
||||
<li><p>歸類記錄檔<em>很耗時間</em>。為減少佔用原記錄檔的時間, <samp xml:lang="en">arclog</samp> 會先把原記錄檔複製到暫時工作檔,視需要把原記錄檔歸零,再慢慢在暫時工作檔上作業。不過仍請注意下列事項:</p>
|
||||
<ol>
|
||||
<li><p>如果原記錄檔很大(好幾百 <abbr title="megabyte" xml:lang="en">MB</abbr> ),光複製檔案就很花時間了。這種情況下,最好先關閉記錄程式,等整理完以後,再繼續記錄,以避免記錄錯亂。若平常有定期歸檔,記錄檔就不會無限制膨脹了。</p></li>
|
||||
<li><p>若 <samp xml:lang="en">arclog</samp> 執行到一半因故中斷,會留下殘存的暫時工作檔。日後 <samp xml:lang="en">arclog</samp> 執行時,碰到之前殘存的暫時工作檔,會停止執行。要先處理掉之前的暫時工作檔,才能繼續。暫時工作檔只是原檔的複本,只要改個檔名再歸檔一次,就可以了。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>沒有特別理由,最好不要排序。排序的潛在問題如下:</p>
|
||||
<ol>
|
||||
<li><p>記錄檔很大時,排序<em>會吃掉很多記憶體</em>。所需記憶體依歸檔後每個月記錄筆數而定。新版的 <span xml:lang="en">Linux</span> 和 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 系統有記憶體耗用保護,會中斷吃掉太多記憶體的程式,不過這還是要花好幾分鐘,這幾分鐘內系統會完全當掉不動。我不知道別的作業系統有沒有記憶體耗用保護。如果妳要玩,風險自負。</p></li>
|
||||
<li><p>所有支援的記錄檔格式,時間最小單位為<em><q>秒</q></em>。同一秒內的記錄會先以記錄檔順序(若同時歸檔好幾個記錄檔),再以記錄本身出現的次序排序。這樣設計儘可能讓排序歸檔後同一秒內的記錄次序,和事件真正的發生順序一致,但也無法完全保證。若同一秒內的事件次序很重要,妳要自行小心。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>歸檔 <span xml:lang="en">Syslog</span> 和 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 記錄檔時,請特別注意: <em><span xml:lang="en">Syslog</span> 和 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 記錄檔沒有記年。</em> <samp xml:lang="en">arclog</samp> 用 <a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a> 模組解讀時間。無年份時, <a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a> 會把年份設在<q>這個月</q>到<q>去年的下個月</q>之間。例如,若今天是 2001-06-08 ,那年份會設在 2001-06-30 到 2000-07-01 之間。我原則上贊成這樣。不過,若妳的 <span xml:lang="en">Syslog</span> 或 <abbr title="network time protocol" xml:lang="en">NTP</abbr> 記錄檔超過一年整理歸檔,不要跑 <samp xml:lang="en">arclog</samp> ,否則記錄檔會大亂。</p></li>
|
||||
|
||||
<li><p>從標準輸入讀記錄檔,請注意下列事項:</p>
|
||||
<ol>
|
||||
<li><p>若要讀標準輸入,就一定要設定歸檔時,檔名的開頭,不然不知道怎麼歸檔後要存到哪裏去。</p></li>
|
||||
<li><p>標準輸入無法刪除、歸零或保留部份內容。若要讀標準輸入,原檔保留模式會自動退回成全部保留。一次讀入多檔時,若其中有標準輸入,會一律退回全部保留,以避免混亂。</p></li>
|
||||
<li><p><samp xml:lang="en">ask</samp> 模式的回答也是從標準輸入讀的。因為標準輸入只有一個,所以從標準輸入讀檔時,無法跑 <samp xml:lang="en">ask</samp> 模式,會自動退回到 <samp xml:lang="en">fail</samp> 模式。</p></li>
|
||||
</ol>
|
||||
</li>
|
||||
|
||||
<li><p>我建議安裝 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> ,儘量不要用 <samp xml:lang="en">file</samp> 程式。 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> 內建的檔案類型表好像比 <samp xml:lang="en">file</samp> 程式準確。若不是 <samp xml:lang="en">gzip</samp> 或 <samp xml:lang="en">bzip2</samp> 壓縮檔, <samp xml:lang="en">arclog</samp> 會把視為當成純文字檔。若壓縮檔被誤判為圖檔, <samp xml:lang="en">arclog</samp> 會當成純文字檔,直接讀記錄,並以錯誤結束。就算錯誤也不會弄亂原記錄檔,不過多少有點麻煩。</p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>系統需求</h2>
|
||||
|
||||
<ol>
|
||||
<li><p><acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 5.8.0 以上。 <samp xml:lang="en">arclog</samp> 用三個參數的 <samp xml:lang="en">open()</samp> 來複製檔案操作,我還不知道怎麼改寫到更早的版本上執行。若妳可以改寫到更早的版本上執行,請告訴我。妳可以輸入 <q xml:lang="en"><samp>perl -v</samp></q> 查詢妳目前的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 版本。如果妳沒有 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 或需要昇級,可以到 <a href="http://www.perl.com/" hreflang="en"><acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 網站</a>下載安裝最新版 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 。若妳是用 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> ,可以到 <a href="http://www.activestate.com/" hreflang="en"><span xml:lang="en">ActiveState</span> 公司</a>下載 <span xml:lang="en">ActivePerl</span> 安裝。</p></li>
|
||||
|
||||
<li><p>需搭配的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 模組:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/TimeDate/" hreflang="en" xml:lang="en"><samp>Date::Parse</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>這是辨識記錄時間用的。妳可以<a href="http://search.cpan.org/dist/TimeDate/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模組庫下載安裝 <samp xml:lang="en">Date::Parse</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpan Date::Parse</samp></q> 安裝,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpanp i Date::Parse</samp></q> 安裝。若妳是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>apt-get install libtimedate-perl</samp></q> 安裝。若妳是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>yum install perl-TimeDate</samp></q> 安裝。若妳是 <span xml:lang="en">FreeBSD</span> 使用者,可以執行 <q xml:lang="en"><samp>ports install p5-TimeDate</samp></q> 安裝。若妳是 <span xml:lang="en">ActivePerl</span> 使用者,可以執行 <q xml:lang="en"><samp>ppm install Date::Parse</samp></q> 安裝。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
<p>若妳由 <samp xml:lang="en">CPAN</samp> 或 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 安裝 <samp xml:lang="en">arclog</samp> ,會自動幫妳安裝以上所需的模組。</p>
|
||||
</li>
|
||||
|
||||
<li><p>選配的 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 模組:</p>
|
||||
|
||||
<dl>
|
||||
<dt><a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>這是檢查檔案類型用的。若沒有安裝, <samp xml:lang="en">arclog</samp> 會找 <samp xml:lang="en">file</samp> 程式代替。若還找不到, <samp xml:lang="en">arclog</samp> 會改用檔尾(副檔名)判斷檔案類型。這時若從標準輸入讀檔, <samp xml:lang="en">arclog</samp> 就無法判斷了。妳可以<a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模組庫下載安裝 <samp xml:lang="en">File::MMagic</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpan File::MMagic</samp></q> 安裝,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpanp i File::MMagic</samp></q> 安裝。若妳是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>apt-get install libfile-mmagic-perl</samp></q> 安裝。若妳是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>yum install perl-File-MMagic</samp></q> 安裝。若妳是 <span xml:lang="en">FreeBSD</span> 使用者,可以執行 <q xml:lang="en"><samp>ports install p5-File-MMagic</samp></q> 安裝。若妳是 <span xml:lang="en">ActivePerl</span> 使用者,可以執行 <q xml:lang="en"><samp>ppm install File::MMagic</samp></q> 安裝。若妳要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">file.exe</samp> 程式,可以由 <a href="http://gnuwin32.sourceforge.net/" hreflang="en-us"><span xml:lang="en">GnuWin32</span> 網站</a>下載。請確認下載後,存檔在系統的路徑下,檔名為 <samp xml:lang="en">file.exe</samp> 。</p>
|
||||
|
||||
<p>建議用 <a href="http://search.cpan.org/dist/File-MMagic/" hreflang="en" xml:lang="en"><samp>File::MMagic</samp></a> 。 <samp xml:lang="en">file</samp> 程式偶爾會誤判。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>這是處理 <samp xml:lang="en">gzip</samp> 壓縮檔用的,只有在處理 <samp xml:lang="en">gzip</samp> 壓縮檔才會用到。若要用時沒有安裝, <samp xml:lang="en">arclog</samp> 會試著改用 <samp xml:lang="en">gzip</samp> 程式代替。若還找不到, <samp xml:lang="en">arclog</samp> 就無法執行。妳可以<a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模組庫下載安裝 <samp xml:lang="en">Compress::Zlib</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpan Compress::Zlib</samp></q> 安裝,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpanp i Compress::Zlib</samp></q> 安裝。若妳是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>apt-get install libcompress-zlib-perl</samp></q> 安裝。若妳是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>yum install perl-Compress-Zlib</samp></q> 安裝。若妳是 <span xml:lang="en">FreeBSD</span> 使用者,可以執行 <q xml:lang="en"><samp>ports install p5-Compress-Zlib</samp></q> 安裝。若妳是 <span xml:lang="en">ActivePerl</span> 使用者,可以執行 <q xml:lang="en"><samp>ppm install Compress::Zlib</samp></q> 安裝。若妳要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">gzip.exe</samp> 程式,可以由 <a href="http://www.gzip.org/" hreflang="en"><samp xml:lang="en">gzip</samp> 網站</a>下載。請確認下載後,存檔在系統的路徑下,檔名為 <samp xml:lang="en">gzip.exe</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> 第二版以上</dt>
|
||||
|
||||
<dd>
|
||||
<p>這是處理 <samp xml:lang="en">bzip2</samp> 壓縮檔用的,只有在處理 <samp xml:lang="en">bzip2</samp> 壓縮檔才會用到。若要用時沒有安裝, <samp xml:lang="en">arclog</samp> 會試著改用 <samp xml:lang="en">bzip2</samp> 程式代替。若還找不到, <samp xml:lang="en">arclog</samp> 就無法執行。妳可以<a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模組庫下載安裝 <samp xml:lang="en">Compress::Bzip2</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpan Compress::Bzip2</samp></q> 安裝,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpanp i Compress::Bzip2</samp></q> 安裝。若妳是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>apt-get install libcompress-bzip2-perl</samp></q> 安裝。若妳是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>yum install perl-Compress-Bzip2</samp></q> 安裝。若妳是 <span xml:lang="en">FreeBSD</span> 使用者,可以執行 <q xml:lang="en"><samp>ports install p5-Compress-Bzip2</samp></q> 安裝。若妳是 <span xml:lang="en">ActivePerl</span> 使用者,可以執行 <q xml:lang="en"><samp>ppm install Compress::Bzip2</samp></q> 安裝。若妳要在 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下使用 <samp xml:lang="en">bzip2.exe</samp> 程式,可以由 <a href="http://www.bzip.org/" hreflang="en"><samp xml:lang="en">bzip2</samp> 網站</a>下載。請確認下載後,存檔在系統的路徑下,檔名為 <samp xml:lang="en">bzip2.exe</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
<dt><a href="http://search.cpan.org/dist/TermReadKey/" hreflang="en" xml:lang="en"><samp>Term::ReadKey</samp></a></dt>
|
||||
|
||||
<dd>
|
||||
<p>這是顯示進度列用的,若沒有安裝,就不會顯示進度列。此外不會有任何問題。進度列可以讓妳對 <samp xml:lang="en">arclog</samp> 的工作進度一目瞭然。妳可以<a href="http://search.cpan.org/dist/TermReadKey/" hreflang="en">由 <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 模組庫下載安裝 <samp xml:lang="en">Term::ReadKey</samp> </a>,或用 <span xml:lang="en"><samp>CPAN</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpan Term::ReadKey</samp></q> 安裝,或用 <span xml:lang="en"><samp>CPANPLUS</samp> Shell</span> 執行 <q xml:lang="en"><samp>cpanp i Term::ReadKey</samp></q> 安裝。若妳是 <span xml:lang="en">Debian/Ubandu Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>apt-get install libterm-readkey-perl</samp></q> 安裝。若妳是 <span xml:lang="en">Red Hat/Fedora/CentOS Linux</span> 使用者,可以執行 <q xml:lang="en"><samp>yum install perl-TermReadKey</samp></q> 安裝。若妳是 <span xml:lang="en">FreeBSD</span> 使用者,可以執行 <q xml:lang="en"><samp>ports install p5-Term-ReadKey</samp></q> 安裝。若妳是 <span xml:lang="en">ActivePerl</span> 使用者,可以執行 <q xml:lang="en"><samp>ppm install Term::ReadKey</samp></q> 安裝。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</li>
|
||||
</ol>
|
||||
|
||||
|
||||
<h2>下載</h2>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 的官方網站在:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><span xml:lang="en">SourceForge</span> 上的 <samp xml:lang="en">arclog</samp> 網站。</a></p></li>
|
||||
|
||||
<li><p><a href="https://sourceforge.net/projects/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 專案頁。</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 專案頁。</a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html">旅舍依瑪 <samp xml:lang="en">arclog</samp> 網頁</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>最新版 <samp xml:lang="en">arclog</samp> 可由下列位址下載:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="https://sourceforge.net/project/showfiles.php?group_id=62499" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 下載頁。</a></p></li>
|
||||
|
||||
<li><p><a href="http://search.cpan.org/~imacat/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 專案頁。</a></p></li>
|
||||
|
||||
<li><p><a href="ftp://ftp.imacat.idv.tw/pub/arclog/">旅舍依瑪 <abbr title="File Transfer Protocol" xml:lang="en">FTP</abbr> 站。</a></p></li>
|
||||
</ul>
|
||||
|
||||
<p>依瑪貓的 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公鑰在:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/pgpkey.asc"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 網站上的依瑪貓 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公鑰。</a></p></li>
|
||||
|
||||
<li><p><a href="http://www.imacat.idv.tw/me/pgpkey.asc">旅舍依瑪上的依瑪貓 <abbr title="Pretty Good Privacy" xml:lang="en">PGP</abbr> 公鑰。</a></p></li>
|
||||
</ul>
|
||||
|
||||
|
||||
<h2>安裝</h2>
|
||||
|
||||
<p>若妳是由 <samp xml:lang="en">arclog.pl</samp> 2.1.1dev4 以前的版本昇級,請參閱 <samp xml:lang="en">UPGRADE.zh-tw</samp> 檔的昇級說明。</p>
|
||||
|
||||
<h3>以 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 安裝</h3>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 用 <acronym title="Practical Extraction and Reporting Language" xml:lang="en">Perl</acronym> 標準的 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 安裝,程序如下:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Makefile.PL
|
||||
% make
|
||||
% make test
|
||||
% make install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>在 <q xml:lang="en"><samp>make install</samp></q> 前,請先確認妳有在安裝目錄存檔的權限。通常這時候要切換為 <samp xml:lang="en">root</samp> ,才能安裝存檔。</p>
|
||||
|
||||
<p>若妳是用 <span xml:lang="en"><abbr title="Microsoft">MS</abbr>-Windows</span> 下的 <span xml:lang="en">ActivePerl</span> , <samp xml:lang="en">make</samp> 請改用 <samp xml:lang="en">nmake</samp> 。 <a href="ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe" type="application/x-dosexec"><samp xml:lang="en">nmake</samp> 可由微軟的 <abbr title="File Transfer Protocol" xml:lang="en">FTP</abbr> 站下載</a>。</p>
|
||||
|
||||
<p>若要安裝到其它地方,請設定好 <samp xml:lang="en">PREFIX</samp> 。例如,一般使用者,要安裝在自己的目錄下時:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Makefile.PL PREFIX=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>要知道更多安裝選項的細節,請參閱 <a href="http://search.cpan.org/dist/ExtUtils-MakeMaker/" hreflang="en" xml:lang="en"><samp>ExtUtils::MakeMaker</samp></a> 的說明(請執行 <q xml:lang="en"><samp>perldoc ExtUtils::MakeMaker</samp></q> )。</p>
|
||||
|
||||
|
||||
<h3>以 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 安裝</h3>
|
||||
|
||||
<p>若妳喜歡,也可以用 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 安裝,程序如下:</p>
|
||||
|
||||
<blockquote xml:lang="en"><pre>
|
||||
% perl Build.PL
|
||||
% ./Build
|
||||
% ./Build test
|
||||
% ./Build install
|
||||
</pre></blockquote>
|
||||
|
||||
<p>在 <q xml:lang="en"><samp>./Build install</samp></q> 前,請先確認妳有在安裝目錄存檔的權限。通常這時候要切換為 <samp xml:lang="en">root</samp> ,才能安裝存檔。</p>
|
||||
|
||||
<p>若要安裝到其它地方,請設定好 <samp xml:lang="en">--prefix</samp> 。例如,一般使用者,要安裝在自己的目錄下時:</p>
|
||||
|
||||
<blockquote><pre xml:lang="en">
|
||||
% perl Build.PL --prefix=/home/jessica
|
||||
</pre></blockquote>
|
||||
|
||||
<p>要知道更多安裝選項的細節,請參閱 <a href="http://search.cpan.org/dist/Module-Build/" hreflang="en" xml:lang="en"><samp>Module::Build</samp></a> 的說明(請執行 <q xml:lang="en"><samp>perldoc Module::Build</samp></q> )。</p>
|
||||
|
||||
|
||||
<h2>命令列參數</h2>
|
||||
|
||||
<pre>
|
||||
./arclog [參數] 記錄檔檔名… [歸檔檔名開頭]
|
||||
./arclog [-h|-v]
|
||||
</pre>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en"><var xml:lang="zh-tw">記錄檔檔名</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>要整理歸檔的記錄檔檔名。若要從標準輸入讀記錄檔,請設定成 <q><samp>-</samp></q> 。可同時指定許多檔案。支援 <samp xml:lang="en">gzip</samp> 或 <samp xml:lang="en">bzip2</samp> 壓縮檔。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en"><var xml:lang="zh-tw">歸檔檔名開頭</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>歸檔檔名用的開頭,歸檔後的檔案會取名叫<q><samp>開頭.yymmdd</samp></q>,如:<samp>開頭.200101</samp> 、<samp>開頭.200102</samp> …等。如果沒有設定,會用記錄檔的檔名當開頭。若妳要從標準輸入讀記錄檔,就一定要設歸檔檔名開頭。這裏不能用 <q><samp>-</samp></q> (標準輸入),因為這裏設定的是檔名的開頭,不是檔名。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-c, --compress <var xml:lang="zh-tw">壓縮法</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>設定歸檔用的壓縮法。記錄大多都長得很像,壓縮掉會省下非常多的空間。(不然幹嘛歸檔? ^_*’ )目前支援下列的壓縮法:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">g, gzip</dt>
|
||||
|
||||
<dd>
|
||||
<p>用 <samp xml:lang="en">gzip</samp> 壓縮。預設是用 <samp xml:lang="en">gzip</samp> 壓縮。 <samp xml:lang="en">arclog</samp> 可以用 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> 來代替 <samp xml:lang="en">gzip</samp> 壓縮,不用呼叫外部程式,比較快比較安全。不過如果妳沒有裝 <a href="http://search.cpan.org/dist/Compress-Zlib/" hreflang="en" xml:lang="en"><samp>Compress::Zlib</samp></a> , <samp xml:lang="en">arclog</samp> 還是會自己改用 <samp xml:lang="en">gzip</samp> 程式壓縮。但如果連 <samp xml:lang="en">gzip</samp> 程式都沒有,卻要用到 <samp xml:lang="en">gzip</samp> 壓縮,就沒有辦法了,無法執行。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">b, bzip2</dt>
|
||||
|
||||
<dd>
|
||||
<p>用 <samp xml:lang="en">bzip2</samp> 壓縮。 <samp xml:lang="en">arclog</samp> 可以用 <a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> 來代替 <samp xml:lang="en">bzip2</samp> 壓縮,不用呼叫外部程式,比較快比較安全。不過如果妳沒有裝 <a href="http://search.cpan.org/dist/Compress-Bzip2/" hreflang="en" xml:lang="en"><samp>Compress::Bzip2</samp></a> , <samp xml:lang="en">arclog</samp> 還是會自己改用 <samp xml:lang="en">bzip2</samp> 程式壓縮。但如果連 <samp xml:lang="en">bzip2</samp> 程式都沒有,卻要用到 <samp xml:lang="en">bzip2</samp> 壓縮,就沒有辦法了,無法執行。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">n, none</dt>
|
||||
|
||||
<dd>
|
||||
<p>不要壓縮。(妳沒搞錯吧? :p )</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">--nocompress</dt>
|
||||
|
||||
<dd>
|
||||
<p>歸檔後不要壓縮,效果和 <q xml:lang="en"><samp>--compress none</samp></q> 一樣。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-s, --sort</dt>
|
||||
|
||||
<dd>
|
||||
<p>按記錄時間先後(及記錄本身順序)排序。排序很耗記憶體和 <abbr title="central processing unit" xml:lang="en">CPU</abbr> ,所以預設是不排序。請參見前面關於排序的注意事項。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">--nosort</dt>
|
||||
|
||||
<dd>
|
||||
<p>不要排序(預設值)。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-o, --override <var xml:lang="zh-tw">模式</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>如果有同名的舊檔,該怎麼辦。目前有下列模式:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">o, overwrite</dt>
|
||||
|
||||
<dd>
|
||||
<p>蓋掉舊檔。舊檔的記錄會被刪掉,請多加小心。若妳的記錄檔是主記錄檔,有最完整的記錄,妳可以用 <samp xml:lang="en">overwrite</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">a, append</dt>
|
||||
|
||||
<dd>
|
||||
<p>和舊檔加在一起。這有可能會演變成大混亂,請多加小心。若妳想把兩份不同時間的記錄檔加在一起,妳可以用 <samp xml:lang="en">append</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">i, ignore</dt>
|
||||
|
||||
<dd>
|
||||
<p>略過所有該月的記錄。這有可能造成部份記錄流失,請多加小心。若妳只要補充沒有歸檔的月份,妳可以用 <samp xml:lang="en">ignore</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">f, fail</dt>
|
||||
|
||||
<dd>
|
||||
<p>結束程式,以免不小心破壞舊檔。若妳要用 <samp xml:lang="en">crontab</samp> 之類的程式,全自動化執行,最好這樣,以免破壞資料。因此,若標準輸入不是連到鍵盤上,預設是 <samp xml:lang="en">fail</samp> 。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">ask</dt>
|
||||
|
||||
<dd>
|
||||
<p>問妳該怎麼辦。若妳是手動執行,這樣最方便。因此,若標準輸入是連到鍵盤上,預設是 <samp xml:lang="en">ask</samp> 。答案是從標準輸入讀的。因為標準輸入只有一個,若妳要從標準輸入讀記錄檔,不能跑 <samp xml:lang="en">ask</samp> 模式,會自動退回 <samp xml:lang="en">fail</samp> 模式。還有,如果從標準輸入讀不到東西,像 <samp xml:lang="en">crontab</samp> 裏標準輸入被關掉了,也會自動退回 <samp xml:lang="en">fail</samp> 模式。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-k, --keep <var xml:lang="zh-tw">模式</var></dt>
|
||||
|
||||
<dd>
|
||||
<p>原記錄檔要怎麼處理。目前有下列模式:</p>
|
||||
|
||||
|
||||
<dl>
|
||||
<dt xml:lang="en">a, all</dt>
|
||||
|
||||
<dd>
|
||||
<p>完全保留原檔。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">r, restart</dt>
|
||||
|
||||
<dd>
|
||||
<p>歸檔後,原記錄檔歸零。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">d, delete</dt>
|
||||
|
||||
<dd>
|
||||
<p>歸檔後,刪除原記錄檔。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">t, this-month</dt>
|
||||
|
||||
<dd>
|
||||
<p>將之前月份的記錄歸檔,保留這個月的記錄,留待下個月歸檔。這是給 <samp xml:lang="en">crontab</samp> 每月歸檔用的。因此,預設是 <samp xml:lang="en">this-month</samp> 。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-d, --debug</dt>
|
||||
|
||||
<dd>
|
||||
<p>顯示詳細的執行過程。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-q, --quiet</dt>
|
||||
|
||||
<dd>
|
||||
<p>沒事不要吵。 :p</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-h, --help</dt>
|
||||
|
||||
<dd>
|
||||
<p>顯示程式說明。</p>
|
||||
</dd>
|
||||
|
||||
|
||||
<dt xml:lang="en">-v, --version</dt>
|
||||
|
||||
<dd>
|
||||
<p>顯示程式版本。</p>
|
||||
</dd>
|
||||
</dl>
|
||||
|
||||
|
||||
<h2>版權聲明</h2>
|
||||
|
||||
<p>版權所有 © 2001-2007 依瑪貓。</p>
|
||||
|
||||
<p>本程式是自由軟體,您可以遵照自由軟體基金會 <span xml:lang="en">(Free Software Foundation)</span> 出版的 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共許可證</cite>條款 <span xml:lang="en">(<cite><acronym title="GNU’s Not UNIX">GNU</acronym> General Public License</cite>)</span> 第三版來修改和重新發佈這一程式,或者自由選擇使用任何更新的版本。</p>
|
||||
|
||||
<p>發佈這一程式的目的是希望它有用,但沒有任何擔保。甚至沒有適合特定目的而隱含的擔保。更詳細的情況請參閱 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共許可證</cite>。</p>
|
||||
|
||||
<p>您應該已經和程式一起收到一份 <cite><acronym title="GNU’s Not UNIX" xml:lang="en">GNU</acronym> 通用公共許可證</cite>的副本。如果還沒有,參閱<samp><<a href="http://www.gnu.org/licenses/" hreflang="en">http://www.gnu.org/licenses/</a>></samp>。</p>
|
||||
|
||||
|
||||
<h2>版本紀錄</h2>
|
||||
|
||||
<p>請閱讀 <samp xml:lang="en">NEWS</samp> 檔,查看程式的演變、新增的功能和修補的錯誤。</p>
|
||||
|
||||
|
||||
<h2>支援協助</h2>
|
||||
|
||||
<p><samp xml:lang="en">arclog</samp> 網站架在 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 、 <a href="http://www.cpan.org/" hreflang="en" xml:lang="en"><acronym title="Comprehensive Perl Archive Network">CPAN</acronym></a> 與 <a href="http://www.imacat.idv.tw/">旅舍依瑪</a>。索取最新資訊,請駕臨:</p>
|
||||
|
||||
<ul>
|
||||
<li><p><a href="http://arclog.sourceforge.net/"><span xml:lang="en">SourceForge</span> 上的 <samp xml:lang="en">arclog</samp> 網站</a>。</p></li>
|
||||
<li><p><a href="http://sourceforge.net/projects/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <span xml:lang="en">SourceForge</span> 專案頁</a>。</p></li>
|
||||
<li><p><a href="http://search.cpan.org/dist/arclog/" hreflang="en"><samp xml:lang="en">arclog</samp> <acronym title="Comprehensive Perl Archive Network" xml:lang="en">CPAN</acronym> 專案頁</a>。</p></li>
|
||||
<li><p><a href="http://www.imacat.idv.tw/tech/arclog.html">旅舍依瑪 <samp xml:lang="en">arclog</samp> 網頁</a>。</p></li>
|
||||
</ul>
|
||||
|
||||
<p>在 <a href="https://sourceforge.net/" hreflang="en" xml:lang="en">SourceForge</a> 上有一個 <a href="mailto:arclog-users@lists.sourceforge.net"><samp xml:lang="en">arclog</samp> 的郵件通訊</a> 。使用上的問題、建議或錯誤回報,請提到通訊上討論。它是 <a href="http://www.list.org/" hreflang="en" xml:lang="en">Mailman</a> 的郵件通訊。若要加入,請到 <a href="https://lists.sourceforge.net/lists/listinfo/arclog-users" hreflang="en"><samp xml:lang="en">arclog</samp> 郵件通訊的網頁</a> 。妳也可以寫信到 <a href="mailto:arclog-users-request@lists.sourceforge.net"><acronym title="electronic mail" xml:lang="en">E-mail</acronym> 指令信箱</a>,標題填上 <samp xml:lang="en">help</samp> ,索取 <acronym title="electronic mail" xml:lang="en">E-mail</acronym> 指令說明。</p>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<hr />
|
||||
<div id="footer" class="footer" title="頁尾區">
|
||||
<address><a href="mailto:imacat@mail.imacat.idv.tw">依瑪貓</a>,初稿 2001-06-08 ,上次更新日期 2008-11-15</address>
|
||||
|
||||
<address>版權所有 © 2001-2008 依瑪貓,欲轉載引用請先閱讀<a href="fdl.txt">版權聲明</a>。</address>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
</html>
|
397
fdl.txt
397
fdl.txt
@ -1,397 +0,0 @@
|
||||
GNU Free Documentation License
|
||||
Version 1.2, November 2002
|
||||
|
||||
|
||||
Copyright (C) 2000,2001,2002 Free Software Foundation, Inc.
|
||||
51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
|
||||
0. PREAMBLE
|
||||
|
||||
The purpose of this License is to make a manual, textbook, or other
|
||||
functional and useful document "free" in the sense of freedom: to
|
||||
assure everyone the effective freedom to copy and redistribute it,
|
||||
with or without modifying it, either commercially or noncommercially.
|
||||
Secondarily, this License preserves for the author and publisher a way
|
||||
to get credit for their work, while not being considered responsible
|
||||
for modifications made by others.
|
||||
|
||||
This License is a kind of "copyleft", which means that derivative
|
||||
works of the document must themselves be free in the same sense. It
|
||||
complements the GNU General Public License, which is a copyleft
|
||||
license designed for free software.
|
||||
|
||||
We have designed this License in order to use it for manuals for free
|
||||
software, because free software needs free documentation: a free
|
||||
program should come with manuals providing the same freedoms that the
|
||||
software does. But this License is not limited to software manuals;
|
||||
it can be used for any textual work, regardless of subject matter or
|
||||
whether it is published as a printed book. We recommend this License
|
||||
principally for works whose purpose is instruction or reference.
|
||||
|
||||
|
||||
1. APPLICABILITY AND DEFINITIONS
|
||||
|
||||
This License applies to any manual or other work, in any medium, that
|
||||
contains a notice placed by the copyright holder saying it can be
|
||||
distributed under the terms of this License. Such a notice grants a
|
||||
world-wide, royalty-free license, unlimited in duration, to use that
|
||||
work under the conditions stated herein. The "Document", below,
|
||||
refers to any such manual or work. Any member of the public is a
|
||||
licensee, and is addressed as "you". You accept the license if you
|
||||
copy, modify or distribute the work in a way requiring permission
|
||||
under copyright law.
|
||||
|
||||
A "Modified Version" of the Document means any work containing the
|
||||
Document or a portion of it, either copied verbatim, or with
|
||||
modifications and/or translated into another language.
|
||||
|
||||
A "Secondary Section" is a named appendix or a front-matter section of
|
||||
the Document that deals exclusively with the relationship of the
|
||||
publishers or authors of the Document to the Document's overall subject
|
||||
(or to related matters) and contains nothing that could fall directly
|
||||
within that overall subject. (Thus, if the Document is in part a
|
||||
textbook of mathematics, a Secondary Section may not explain any
|
||||
mathematics.) The relationship could be a matter of historical
|
||||
connection with the subject or with related matters, or of legal,
|
||||
commercial, philosophical, ethical or political position regarding
|
||||
them.
|
||||
|
||||
The "Invariant Sections" are certain Secondary Sections whose titles
|
||||
are designated, as being those of Invariant Sections, in the notice
|
||||
that says that the Document is released under this License. If a
|
||||
section does not fit the above definition of Secondary then it is not
|
||||
allowed to be designated as Invariant. The Document may contain zero
|
||||
Invariant Sections. If the Document does not identify any Invariant
|
||||
Sections then there are none.
|
||||
|
||||
The "Cover Texts" are certain short passages of text that are listed,
|
||||
as Front-Cover Texts or Back-Cover Texts, in the notice that says that
|
||||
the Document is released under this License. A Front-Cover Text may
|
||||
be at most 5 words, and a Back-Cover Text may be at most 25 words.
|
||||
|
||||
A "Transparent" copy of the Document means a machine-readable copy,
|
||||
represented in a format whose specification is available to the
|
||||
general public, that is suitable for revising the document
|
||||
straightforwardly with generic text editors or (for images composed of
|
||||
pixels) generic paint programs or (for drawings) some widely available
|
||||
drawing editor, and that is suitable for input to text formatters or
|
||||
for automatic translation to a variety of formats suitable for input
|
||||
to text formatters. A copy made in an otherwise Transparent file
|
||||
format whose markup, or absence of markup, has been arranged to thwart
|
||||
or discourage subsequent modification by readers is not Transparent.
|
||||
An image format is not Transparent if used for any substantial amount
|
||||
of text. A copy that is not "Transparent" is called "Opaque".
|
||||
|
||||
Examples of suitable formats for Transparent copies include plain
|
||||
ASCII without markup, Texinfo input format, LaTeX input format, SGML
|
||||
or XML using a publicly available DTD, and standard-conforming simple
|
||||
HTML, PostScript or PDF designed for human modification. Examples of
|
||||
transparent image formats include PNG, XCF and JPG. Opaque formats
|
||||
include proprietary formats that can be read and edited only by
|
||||
proprietary word processors, SGML or XML for which the DTD and/or
|
||||
processing tools are not generally available, and the
|
||||
machine-generated HTML, PostScript or PDF produced by some word
|
||||
processors for output purposes only.
|
||||
|
||||
The "Title Page" means, for a printed book, the title page itself,
|
||||
plus such following pages as are needed to hold, legibly, the material
|
||||
this License requires to appear in the title page. For works in
|
||||
formats which do not have any title page as such, "Title Page" means
|
||||
the text near the most prominent appearance of the work's title,
|
||||
preceding the beginning of the body of the text.
|
||||
|
||||
A section "Entitled XYZ" means a named subunit of the Document whose
|
||||
title either is precisely XYZ or contains XYZ in parentheses following
|
||||
text that translates XYZ in another language. (Here XYZ stands for a
|
||||
specific section name mentioned below, such as "Acknowledgements",
|
||||
"Dedications", "Endorsements", or "History".) To "Preserve the Title"
|
||||
of such a section when you modify the Document means that it remains a
|
||||
section "Entitled XYZ" according to this definition.
|
||||
|
||||
The Document may include Warranty Disclaimers next to the notice which
|
||||
states that this License applies to the Document. These Warranty
|
||||
Disclaimers are considered to be included by reference in this
|
||||
License, but only as regards disclaiming warranties: any other
|
||||
implication that these Warranty Disclaimers may have is void and has
|
||||
no effect on the meaning of this License.
|
||||
|
||||
|
||||
2. VERBATIM COPYING
|
||||
|
||||
You may copy and distribute the Document in any medium, either
|
||||
commercially or noncommercially, provided that this License, the
|
||||
copyright notices, and the license notice saying this License applies
|
||||
to the Document are reproduced in all copies, and that you add no other
|
||||
conditions whatsoever to those of this License. You may not use
|
||||
technical measures to obstruct or control the reading or further
|
||||
copying of the copies you make or distribute. However, you may accept
|
||||
compensation in exchange for copies. If you distribute a large enough
|
||||
number of copies you must also follow the conditions in section 3.
|
||||
|
||||
You may also lend copies, under the same conditions stated above, and
|
||||
you may publicly display copies.
|
||||
|
||||
|
||||
3. COPYING IN QUANTITY
|
||||
|
||||
If you publish printed copies (or copies in media that commonly have
|
||||
printed covers) of the Document, numbering more than 100, and the
|
||||
Document's license notice requires Cover Texts, you must enclose the
|
||||
copies in covers that carry, clearly and legibly, all these Cover
|
||||
Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on
|
||||
the back cover. Both covers must also clearly and legibly identify
|
||||
you as the publisher of these copies. The front cover must present
|
||||
the full title with all words of the title equally prominent and
|
||||
visible. You may add other material on the covers in addition.
|
||||
Copying with changes limited to the covers, as long as they preserve
|
||||
the title of the Document and satisfy these conditions, can be treated
|
||||
as verbatim copying in other respects.
|
||||
|
||||
If the required texts for either cover are too voluminous to fit
|
||||
legibly, you should put the first ones listed (as many as fit
|
||||
reasonably) on the actual cover, and continue the rest onto adjacent
|
||||
pages.
|
||||
|
||||
If you publish or distribute Opaque copies of the Document numbering
|
||||
more than 100, you must either include a machine-readable Transparent
|
||||
copy along with each Opaque copy, or state in or with each Opaque copy
|
||||
a computer-network location from which the general network-using
|
||||
public has access to download using public-standard network protocols
|
||||
a complete Transparent copy of the Document, free of added material.
|
||||
If you use the latter option, you must take reasonably prudent steps,
|
||||
when you begin distribution of Opaque copies in quantity, to ensure
|
||||
that this Transparent copy will remain thus accessible at the stated
|
||||
location until at least one year after the last time you distribute an
|
||||
Opaque copy (directly or through your agents or retailers) of that
|
||||
edition to the public.
|
||||
|
||||
It is requested, but not required, that you contact the authors of the
|
||||
Document well before redistributing any large number of copies, to give
|
||||
them a chance to provide you with an updated version of the Document.
|
||||
|
||||
|
||||
4. MODIFICATIONS
|
||||
|
||||
You may copy and distribute a Modified Version of the Document under
|
||||
the conditions of sections 2 and 3 above, provided that you release
|
||||
the Modified Version under precisely this License, with the Modified
|
||||
Version filling the role of the Document, thus licensing distribution
|
||||
and modification of the Modified Version to whoever possesses a copy
|
||||
of it. In addition, you must do these things in the Modified Version:
|
||||
|
||||
A. Use in the Title Page (and on the covers, if any) a title distinct
|
||||
from that of the Document, and from those of previous versions
|
||||
(which should, if there were any, be listed in the History section
|
||||
of the Document). You may use the same title as a previous version
|
||||
if the original publisher of that version gives permission.
|
||||
B. List on the Title Page, as authors, one or more persons or entities
|
||||
responsible for authorship of the modifications in the Modified
|
||||
Version, together with at least five of the principal authors of the
|
||||
Document (all of its principal authors, if it has fewer than five),
|
||||
unless they release you from this requirement.
|
||||
C. State on the Title page the name of the publisher of the
|
||||
Modified Version, as the publisher.
|
||||
D. Preserve all the copyright notices of the Document.
|
||||
E. Add an appropriate copyright notice for your modifications
|
||||
adjacent to the other copyright notices.
|
||||
F. Include, immediately after the copyright notices, a license notice
|
||||
giving the public permission to use the Modified Version under the
|
||||
terms of this License, in the form shown in the Addendum below.
|
||||
G. Preserve in that license notice the full lists of Invariant Sections
|
||||
and required Cover Texts given in the Document's license notice.
|
||||
H. Include an unaltered copy of this License.
|
||||
I. Preserve the section Entitled "History", Preserve its Title, and add
|
||||
to it an item stating at least the title, year, new authors, and
|
||||
publisher of the Modified Version as given on the Title Page. If
|
||||
there is no section Entitled "History" in the Document, create one
|
||||
stating the title, year, authors, and publisher of the Document as
|
||||
given on its Title Page, then add an item describing the Modified
|
||||
Version as stated in the previous sentence.
|
||||
J. Preserve the network location, if any, given in the Document for
|
||||
public access to a Transparent copy of the Document, and likewise
|
||||
the network locations given in the Document for previous versions
|
||||
it was based on. These may be placed in the "History" section.
|
||||
You may omit a network location for a work that was published at
|
||||
least four years before the Document itself, or if the original
|
||||
publisher of the version it refers to gives permission.
|
||||
K. For any section Entitled "Acknowledgements" or "Dedications",
|
||||
Preserve the Title of the section, and preserve in the section all
|
||||
the substance and tone of each of the contributor acknowledgements
|
||||
and/or dedications given therein.
|
||||
L. Preserve all the Invariant Sections of the Document,
|
||||
unaltered in their text and in their titles. Section numbers
|
||||
or the equivalent are not considered part of the section titles.
|
||||
M. Delete any section Entitled "Endorsements". Such a section
|
||||
may not be included in the Modified Version.
|
||||
N. Do not retitle any existing section to be Entitled "Endorsements"
|
||||
or to conflict in title with any Invariant Section.
|
||||
O. Preserve any Warranty Disclaimers.
|
||||
|
||||
If the Modified Version includes new front-matter sections or
|
||||
appendices that qualify as Secondary Sections and contain no material
|
||||
copied from the Document, you may at your option designate some or all
|
||||
of these sections as invariant. To do this, add their titles to the
|
||||
list of Invariant Sections in the Modified Version's license notice.
|
||||
These titles must be distinct from any other section titles.
|
||||
|
||||
You may add a section Entitled "Endorsements", provided it contains
|
||||
nothing but endorsements of your Modified Version by various
|
||||
parties--for example, statements of peer review or that the text has
|
||||
been approved by an organization as the authoritative definition of a
|
||||
standard.
|
||||
|
||||
You may add a passage of up to five words as a Front-Cover Text, and a
|
||||
passage of up to 25 words as a Back-Cover Text, to the end of the list
|
||||
of Cover Texts in the Modified Version. Only one passage of
|
||||
Front-Cover Text and one of Back-Cover Text may be added by (or
|
||||
through arrangements made by) any one entity. If the Document already
|
||||
includes a cover text for the same cover, previously added by you or
|
||||
by arrangement made by the same entity you are acting on behalf of,
|
||||
you may not add another; but you may replace the old one, on explicit
|
||||
permission from the previous publisher that added the old one.
|
||||
|
||||
The author(s) and publisher(s) of the Document do not by this License
|
||||
give permission to use their names for publicity for or to assert or
|
||||
imply endorsement of any Modified Version.
|
||||
|
||||
|
||||
5. COMBINING DOCUMENTS
|
||||
|
||||
You may combine the Document with other documents released under this
|
||||
License, under the terms defined in section 4 above for modified
|
||||
versions, provided that you include in the combination all of the
|
||||
Invariant Sections of all of the original documents, unmodified, and
|
||||
list them all as Invariant Sections of your combined work in its
|
||||
license notice, and that you preserve all their Warranty Disclaimers.
|
||||
|
||||
The combined work need only contain one copy of this License, and
|
||||
multiple identical Invariant Sections may be replaced with a single
|
||||
copy. If there are multiple Invariant Sections with the same name but
|
||||
different contents, make the title of each such section unique by
|
||||
adding at the end of it, in parentheses, the name of the original
|
||||
author or publisher of that section if known, or else a unique number.
|
||||
Make the same adjustment to the section titles in the list of
|
||||
Invariant Sections in the license notice of the combined work.
|
||||
|
||||
In the combination, you must combine any sections Entitled "History"
|
||||
in the various original documents, forming one section Entitled
|
||||
"History"; likewise combine any sections Entitled "Acknowledgements",
|
||||
and any sections Entitled "Dedications". You must delete all sections
|
||||
Entitled "Endorsements".
|
||||
|
||||
|
||||
6. COLLECTIONS OF DOCUMENTS
|
||||
|
||||
You may make a collection consisting of the Document and other documents
|
||||
released under this License, and replace the individual copies of this
|
||||
License in the various documents with a single copy that is included in
|
||||
the collection, provided that you follow the rules of this License for
|
||||
verbatim copying of each of the documents in all other respects.
|
||||
|
||||
You may extract a single document from such a collection, and distribute
|
||||
it individually under this License, provided you insert a copy of this
|
||||
License into the extracted document, and follow this License in all
|
||||
other respects regarding verbatim copying of that document.
|
||||
|
||||
|
||||
7. AGGREGATION WITH INDEPENDENT WORKS
|
||||
|
||||
A compilation of the Document or its derivatives with other separate
|
||||
and independent documents or works, in or on a volume of a storage or
|
||||
distribution medium, is called an "aggregate" if the copyright
|
||||
resulting from the compilation is not used to limit the legal rights
|
||||
of the compilation's users beyond what the individual works permit.
|
||||
When the Document is included in an aggregate, this License does not
|
||||
apply to the other works in the aggregate which are not themselves
|
||||
derivative works of the Document.
|
||||
|
||||
If the Cover Text requirement of section 3 is applicable to these
|
||||
copies of the Document, then if the Document is less than one half of
|
||||
the entire aggregate, the Document's Cover Texts may be placed on
|
||||
covers that bracket the Document within the aggregate, or the
|
||||
electronic equivalent of covers if the Document is in electronic form.
|
||||
Otherwise they must appear on printed covers that bracket the whole
|
||||
aggregate.
|
||||
|
||||
|
||||
8. TRANSLATION
|
||||
|
||||
Translation is considered a kind of modification, so you may
|
||||
distribute translations of the Document under the terms of section 4.
|
||||
Replacing Invariant Sections with translations requires special
|
||||
permission from their copyright holders, but you may include
|
||||
translations of some or all Invariant Sections in addition to the
|
||||
original versions of these Invariant Sections. You may include a
|
||||
translation of this License, and all the license notices in the
|
||||
Document, and any Warranty Disclaimers, provided that you also include
|
||||
the original English version of this License and the original versions
|
||||
of those notices and disclaimers. In case of a disagreement between
|
||||
the translation and the original version of this License or a notice
|
||||
or disclaimer, the original version will prevail.
|
||||
|
||||
If a section in the Document is Entitled "Acknowledgements",
|
||||
"Dedications", or "History", the requirement (section 4) to Preserve
|
||||
its Title (section 1) will typically require changing the actual
|
||||
title.
|
||||
|
||||
|
||||
9. TERMINATION
|
||||
|
||||
You may not copy, modify, sublicense, or distribute the Document except
|
||||
as expressly provided for under this License. Any other attempt to
|
||||
copy, modify, sublicense or distribute the Document is void, and will
|
||||
automatically terminate your rights under this License. However,
|
||||
parties who have received copies, or rights, from you under this
|
||||
License will not have their licenses terminated so long as such
|
||||
parties remain in full compliance.
|
||||
|
||||
|
||||
10. FUTURE REVISIONS OF THIS LICENSE
|
||||
|
||||
The Free Software Foundation may publish new, revised versions
|
||||
of the GNU Free Documentation License from time to time. Such new
|
||||
versions will be similar in spirit to the present version, but may
|
||||
differ in detail to address new problems or concerns. See
|
||||
http://www.gnu.org/copyleft/.
|
||||
|
||||
Each version of the License is given a distinguishing version number.
|
||||
If the Document specifies that a particular numbered version of this
|
||||
License "or any later version" applies to it, you have the option of
|
||||
following the terms and conditions either of that specified version or
|
||||
of any later version that has been published (not as a draft) by the
|
||||
Free Software Foundation. If the Document does not specify a version
|
||||
number of this License, you may choose any version ever published (not
|
||||
as a draft) by the Free Software Foundation.
|
||||
|
||||
|
||||
ADDENDUM: How to use this License for your documents
|
||||
|
||||
To use this License in a document you have written, include a copy of
|
||||
the License in the document and put the following copyright and
|
||||
license notices just after the title page:
|
||||
|
||||
Copyright (c) YEAR YOUR NAME.
|
||||
Permission is granted to copy, distribute and/or modify this document
|
||||
under the terms of the GNU Free Documentation License, Version 1.2
|
||||
or any later version published by the Free Software Foundation;
|
||||
with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
|
||||
A copy of the license is included in the section entitled "GNU
|
||||
Free Documentation License".
|
||||
|
||||
If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts,
|
||||
replace the "with...Texts." line with this:
|
||||
|
||||
with the Invariant Sections being LIST THEIR TITLES, with the
|
||||
Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.
|
||||
|
||||
If you have Invariant Sections without Cover Texts, or some other
|
||||
combination of the three, merge those two alternatives to suit the
|
||||
situation.
|
||||
|
||||
If your document contains nontrivial examples of program code, we
|
||||
recommend releasing these examples in parallel under your choice of
|
||||
free software license, such as the GNU General Public License,
|
||||
to permit their use in free software.
|
40
pgpkey.asc
40
pgpkey.asc
@ -1,40 +0,0 @@
|
||||
-----BEGIN PGP PUBLIC KEY BLOCK-----
|
||||
Version: GnuPG v1.4.1 (GNU/Linux)
|
||||
|
||||
mQGiBD0kfGQRBADaGggoSHTZ8P17j92IMMxWPpML0TdvbhzW5iFF7a5th0xCn9od
|
||||
pHVwc2YxuEulwDz0LJUx2IwwbttftHcJafcH51vk57Qq2+hvNAE1o9a/MWReMIwv
|
||||
KfBi3Q1bVxWIjVPDbHd+ZUbbo0pozbfrHEaRPQ0qR+/ZgK5+V6WJiLElrwCgsCQy
|
||||
FGfo72h5p46w7MrW4qSmalkD/RMcVmPkszF5J0N9pWlgcJ/fTYlMKIit3V/W/fru
|
||||
L4KkUT3d9CMcJSBZrcVlXlDbPeBF8L7vl46NImd4xfnRKLwOuAy67Tld6CbC+UWz
|
||||
rv6472rGetTTaj7iBH5nR62BQUmaLK6W6Q8vFOrqIBqXEz5iJ+RLYpIxH5M8gOz5
|
||||
7b7GBACIZaPaMVzIbTqnysDCgKEQqOyFbpgcGfSH52xH3XXeNrJhuenJFvBbeV8J
|
||||
RgmKSnn1ZixFHJ261uGu5kOA1CQemNrTgZRaeHDu6mdZALdbxpLXp9DeOC/oTUWa
|
||||
1O2xmAWcZZo+63s0MciC9zDrRjlNuGcVOiHZZLh9P9vEfoJos7Qu5L6d55Gq6LKT
|
||||
IChpbWFjYXQpIDxpbWFjYXRAbWFpbC5pbWFjYXQuaWR2LnR3PoheBBMRAgAeBQJC
|
||||
iLwmAhsDBgsJCAcDAgMVAgMDFgIBAh4BAheAAAoJEIvYLm8wuUtcmnYAnRQCNXWc
|
||||
vgtk4CiTTBWqGWWZRjViAKCn/F6maM9R5RzuC1L5ER27f0AjbrkEDQQ9JHzZEBAA
|
||||
owxPPj1TOZKGuav0eKopd8RrwFQ51P0FY85WyTAsCWg/KGcJIXFKwJ/r4U381iQd
|
||||
z+16+E6oOzTIs/iwnkSKmfWx2M46uXdIa/VkLChZzHpCVDHeVICGE5sbECNS2gYD
|
||||
CRx/Jl/FnXNaeaI0RZm3i4gf204bvqsPm+epI/BOW4cZmbkqSd4BuG2/i7y/BZzP
|
||||
NhVseNVe2qhWFxs4Hj5S6y6xYSuuPLC4mZrkA7x1J9tq+wUt6z0mwIdRhEaK5iE5
|
||||
PB44XiwGKW02sLt5CQXDW/DbqXlyu6VP90iVjWLg0ftI28dULipw2n6u0DIGIxfL
|
||||
i4dDf0gcYyqDF++aMWYTlB7a89Vt055dp7NC59VaqltW9DgKnxkiTUMxZ3HtqA67
|
||||
rwKtwKY3CQyuIYil31AQy0izi4fIu6MRznLtwHAfaqsB0Nej+kFl1XSUspe3P6ea
|
||||
YzMs7on0X0KvPDWPo7AMz0Y/ex/XzYwR2+IzijTnaakH5TS7da0LKXb3FTV/PuIR
|
||||
UgH3P/yOwRyOU4VLWqcyLxBJuMlX1WVz3UdNfHwRfm+jqPktP0qnQ9ZrFk3VEOGv
|
||||
0hMvCeqj3Vw5CziYCTm3YiDG4OLPpUN3ByF944cUCYKwoGYEUKUf0vXPvUYdshqB
|
||||
D49RyI0oy2nZstSt+iVefuCyWBYEyqIDu0eRGWY8FRMAAwUQAI/jMOnq6mP7mfbs
|
||||
qq1ugXtx0r7cKNge0ebB/TA37ZLCo2UTdoxk/AsuGx1MK6kKJh3Zkxz89jb84CXA
|
||||
jZbYbLOGhFioHCyiqfJwFbR7Abhsoo1NuEAtibJpFUm0oHym/Tjc4Xwht7cf52+8
|
||||
USfC918mFzmbPDOuIpkcHjGzXFztgDiMlX7iDrMvX2QOLzhp+g/I/pyAhAcKH8Eo
|
||||
vcKeYOoQIM7hpP0eTZxgCDdRw9SpodU0/rTL6UzA4iXMcqncspH0OjfT5gxj3cOo
|
||||
ofhaPxsIoqllZA/V/x7CeykdNE5L5SYv3c0NBnTMe9kV4K8V0JHTyz7N3ipiWJHP
|
||||
VObvgdrJyA9YYCpgorfE7a1rtmLPfr5evrTuKP+VMEInqvA0mAxzX/HsbtsA+bNn
|
||||
g6c5WibjO/kDKgfZfHFrPlLPiSSBVn9ygEySdlBuXpb5c7wft/YV0FyVAikbhY3l
|
||||
3jJYmQ7kBxrtoIH9jK6Ff8rw7qbyBg6fDPoC3gevNdmoVtk5vTcKQTxPKlCeXTtE
|
||||
JYfKDvX0BDkV8Wdizit03Sp0StpeietlX5vYQDyefp+w5J3k2SrbkEczzGZzXHq/
|
||||
5pm36cC0N0rA8ZW7JOpkThjZIJ733Y5DwtzhWqdUubWiCMmC7HfGmpI0OdV6QF8p
|
||||
kCKXIsJ90Uiep0lEDNQZg4Y96kuUiEYEGBECAAYFAj0kfNoACgkQi9gubzC5S1xO
|
||||
uACdELzJCBgMJVZ9siHwn48X2rXdQnIAn0yagIZfaIS0CfCamwcYeMfKcQQV
|
||||
=GeL3
|
||||
-----END PGP PUBLIC KEY BLOCK-----
|
@ -1,8 +1,13 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
print "1..1\n";
|
||||
|
||||
if (!-s 'SIGNATURE') {
|
||||
if (!$ENV{TEST_SIGNATURE}) {
|
||||
print "ok 1 # skip Set the environment variable",
|
||||
" TEST_SIGNATURE to enable this test\n";
|
||||
}
|
||||
elsif (!-s 'SIGNATURE') {
|
||||
print "ok 1 # skip No signature file found\n";
|
||||
}
|
||||
elsif (!eval { require Module::Signature; 1 }) {
|
||||
@ -10,8 +15,9 @@ elsif (!eval { require Module::Signature; 1 }) {
|
||||
"Next time around, consider install Module::Signature, ",
|
||||
"so you can verify the integrity of this distribution.\n";
|
||||
}
|
||||
elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
|
||||
print "ok 1 # skip Cannot connect to the keyserver\n";
|
||||
elsif (!eval { require Socket; Socket::inet_aton('pool.sks-keyservers.net') }) {
|
||||
print "ok 1 # skip ",
|
||||
"Cannot connect to the keyserver\n";
|
||||
}
|
||||
else {
|
||||
(Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
|
||||
|
117
t/01-exhaust.t
117
t/01-exhaust.t
@ -1,20 +1,19 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test all the possible combination of options
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
# Copyright (c) 2007-2021 imacat.
|
||||
#
|
||||
# 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.
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# 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.
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
@ -30,7 +29,7 @@ use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
our ($WORKDIR, $arclog, $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
@ -38,105 +37,105 @@ $tno = 0;
|
||||
|
||||
# 1-2160: All possible option combinations
|
||||
# Test each log file format
|
||||
foreach my $fmt (@LOGFMTS) {
|
||||
foreach my $fmt (@LOG_FORMATS) {
|
||||
# Test each source log file type
|
||||
foreach my $st (@SRCTYPES) {
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
# Test each result file type
|
||||
foreach my $rt (@RESTYPES) {
|
||||
# Test each keep type
|
||||
foreach my $kt (@KEEPTYPES) {
|
||||
# Test each override type
|
||||
foreach my $ot (@OVERTYPES) {
|
||||
foreach my $rt (@RESULT_TYPES) {
|
||||
# Test each keep mode
|
||||
foreach my $keep (@KEEP_MODES) {
|
||||
# Test each override mode
|
||||
foreach my $override (@OVERRIDE_MODES) {
|
||||
$_ = eval {
|
||||
return if $$st{"skip"} || $$rt{"skip"};
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($title, $cmd, $ret_no, $out, $err, $var_dump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem, @mle, $mt, %cof);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = join ", ", ($$fmt{"title"}, $$st{"title"},
|
||||
$$rt{"title"}, $$kt{"title"}, $$ot{"title"});
|
||||
$logfile = randword;
|
||||
$$rt{"title"}, $$keep{"title"}, $$override{"title"});
|
||||
$logfile = random_word;
|
||||
$fs = catfile($WORKDIR, $logfile . $$st{"suf"});
|
||||
($cs, $vardump, %cem) = &{$$fmt{"sub"}}($fs);
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
($cs, $var_dump, %cem) = &{$$fmt{"sub"}}($fs);
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
@mle = sort keys %cem;
|
||||
$mt = pop @mle if $$kt{"tm"};
|
||||
if ($$ot{"mkex"}) {
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
$mt = pop @mle if $$keep{"tm"};
|
||||
if ($$override{"exists"}) {
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$logfile.%s" . $$rt{"suf"}, @mle;
|
||||
} else {
|
||||
%cof = map { "$logfile.$_" . $$rt{"suf"} => "" }
|
||||
@mle;
|
||||
}
|
||||
@fle = qw();
|
||||
push @fle, basename($fs) if !$$kt{"del"};
|
||||
push @fle, "$logfile.vardump";
|
||||
if ($$ot{"ok"}) {
|
||||
push @fle, basename($fs) if !$$keep{"del"};
|
||||
push @fle, "$logfile.var-dump";
|
||||
if ($$override{"ok"}) {
|
||||
push @fle, map "$logfile.$_" . $$rt{"suf"}, @mle;
|
||||
} else {
|
||||
push @fle, "$logfile.tmp-arclog" if $$kt{"tmp"};
|
||||
push @fle, "$logfile.tmp-arclog" if $$keep{"tmp"};
|
||||
push @fle, grep $cof{$_} ne "", keys %cof;
|
||||
}
|
||||
prsrvsrc $WORKDIR;
|
||||
if (!$$kt{"stdin"}) {
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$kt{"opts"}},
|
||||
@{$$ot{"opts"}}, @{$$rt{"opts"}}, $fs);
|
||||
preserve_source $WORKDIR;
|
||||
if (!$$keep{"stdin"}) {
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$keep{"opts"}},
|
||||
@{$$override{"opts"}}, @{$$rt{"opts"}}, $fs);
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($ret_no, $out, $err) = run_cmd "", @_;
|
||||
} else {
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$kt{"opts"}},
|
||||
@{$$ot{"opts"}}, @{$$rt{"opts"}}, "-",
|
||||
@_ = ($arclog, qw(-d -d -d), @{$$keep{"opts"}},
|
||||
@{$$override{"opts"}}, @{$$rt{"opts"}}, "-",
|
||||
catfile($WORKDIR, $logfile));
|
||||
$cmd = join(" ", @_) . " < " . $fs;
|
||||
($retno, $out, $err) = runcmd frread $fs, @_;
|
||||
($ret_no, $out, $err) = run_cmd read_raw_file $fs, @_;
|
||||
}
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
if (!$$kt{"del"}) {
|
||||
if (!$$keep{"del"}) {
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
$cef{$frb} = !$$kt{"tmp"}? $cs:
|
||||
!$$ot{"ok"}? "":
|
||||
$$kt{"tm"}? $cem{$mt}: "";
|
||||
$cef{$frb} = !$$keep{"tmp"}? $cs:
|
||||
!$$override{"ok"}? "":
|
||||
$$keep{"tm"}? $cem{$mt}: "";
|
||||
$tef{$frb} = $$st{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
if (!$$ot{"ok"} && $$kt{"tmp"}) {
|
||||
if (!$$override{"ok"} && $$keep{"tmp"}) {
|
||||
$frb = "$logfile.tmp-arclog";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
$frb = "$logfile.vardump";
|
||||
$frb = "$logfile.var-dump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
foreach my $m (@mle) {
|
||||
$frb = "$logfile.$m" . $$rt{"suf"};
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
$cef{$frb} = &{$$ot{"ce"}}($cof{$frb}, $cem{$m});
|
||||
$cef{$frb} = &{$$override{"ce"}}($cof{$frb}, $cem{$m});
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err"
|
||||
unless $$ot{"ok"}? $retno == 0: $retno != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nVariables: $vardump\nOutput:\n$out$err"
|
||||
unless $$override{"ok"}? $ret_no == 0: $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nVariables: $var_dump\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nVariables: $vardump\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr}
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nVariables: $var_dump\nOutput:\n$out$err"
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr}
|
||||
|| ($tef{$fr} eq TYPE_BZIP2 && -z catfile($WORKDIR, $fr));
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nVariables: $vardump\nOutput:\n$out$err"
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nVariables: $var_dump\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($$st{"skip"} || $$rt{"skip"}, $_, 1, $@);
|
||||
cleanup $_ || $$st{"skip"} || $$rt{"skip"}, $WORKDIR, ++$tno;
|
||||
clean_up $_ || $$st{"skip"} || $$rt{"skip"}, $WORKDIR, ++$tno;
|
||||
die unless $_ || $$st{"skip"} || $$rt{"skip"};
|
||||
}
|
||||
}
|
||||
|
203
t/02-several.t
203
t/02-several.t
@ -1,20 +1,19 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test archiving several log files at once
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
# Copyright (c) 2007-2021 imacat.
|
||||
#
|
||||
# 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.
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# 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.
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
@ -30,87 +29,87 @@ use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
our ($WORKDIR, $arclog, $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1-16: Archiving several log files at once
|
||||
foreach my $rt (@RESTYPES) {
|
||||
foreach my $rt (@RESULT_TYPES) {
|
||||
my $skip;
|
||||
$skip = 0;
|
||||
# 1: Source log files listed as the arguments
|
||||
$_ = eval {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && nobzip2)) {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && has_no_bzip2)) {
|
||||
$skip = 1;
|
||||
return;
|
||||
}
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $mt);
|
||||
my (@st, $fmt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$fmt = $LOG_FORMATS[int rand @LOG_FORMATS];
|
||||
$title = join ", ", "several log files", "all listed as arguments",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$_ = 2 + (has_no_gzip? 0: 2) + (has_no_bzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
my %types = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
foreach (grep !exists $types{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$types{$_} = $SOURCE_TYPES[int rand @SOURCE_TYPES];
|
||||
} until !(${$types{$_}}{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !(${$types{$_}}{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@st = map $types{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %types) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @cem, {%types};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
%types = qw();
|
||||
%types = (%types, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %types;
|
||||
$mt = pop @mle;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
preserve_source $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$rt{"opts"}}, @fs, $opref);
|
||||
$cmd = join(" ", @_);
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -119,11 +118,11 @@ foreach my $rt (@RESTYPES) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = (${$cem[$k]}{$mt}, ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$fr = $fs[$k] . ".var-dump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
@ -131,102 +130,102 @@ foreach my $rt (@RESTYPES) {
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($skip, $_, 1, $@);
|
||||
cleanup $_ || $skip, $WORKDIR, ++$tno;
|
||||
clean_up $_ || $skip, $WORKDIR, ++$tno;
|
||||
|
||||
# 2-4: One of the source log files is read from STDIN
|
||||
# The file type at STDIN
|
||||
foreach my $ststdin (@SRCTYPES) {
|
||||
foreach my $st_stdin (@SOURCE_TYPES) {
|
||||
$skip = 0;
|
||||
$_ = eval {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && nobzip2)
|
||||
|| ($$ststdin{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$ststdin{"type"} eq TYPE_BZIP2 && nobzip2)) {
|
||||
if ( ($$rt{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$rt{"type"} eq TYPE_BZIP2 && has_no_bzip2)
|
||||
|| ($$st_stdin{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st_stdin{"type"} eq TYPE_BZIP2 && has_no_bzip2)) {
|
||||
$skip = 1;
|
||||
return;
|
||||
}
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$fmt = $LOG_FORMATS[int rand @LOG_FORMATS];
|
||||
$title = join ", ", "several log files", "one read from STDIN",
|
||||
"STDIN " . $$ststdin{"title"}, $$rt{"title"};
|
||||
"STDIN " . $$st_stdin{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$_ = 2 + (has_no_gzip? 0: 2) + (has_no_bzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
my %types = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
foreach (grep !exists $types{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$types{$_} = $SOURCE_TYPES[int rand @SOURCE_TYPES];
|
||||
} until !(${$types{$_}}{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !(${$types{$_}}{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
}
|
||||
# Choose the STDIN from the matching compression
|
||||
@_ = grep ${$_{$_}}{"type"} eq $$ststdin{"type"}, (0...$num-1);
|
||||
@_ = grep ${$types{$_}}{"type"} eq $$st_stdin{"type"}, (0...$num-1);
|
||||
$stdin = $_[int rand @_];
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@st = map $types{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %types) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @cem, {%types};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
%types = qw();
|
||||
%types = (%types, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %types;
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
preserve_source $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -k a -o a), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd read_raw_file $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -235,11 +234,11 @@ foreach my $rt (@RESTYPES) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$fr = $fs[$k] . ".var-dump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
@ -247,20 +246,20 @@ foreach my $rt (@RESTYPES) {
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
skip($skip, $_, 1, $@);
|
||||
cleanup $_ || $skip, $WORKDIR, ++$tno;
|
||||
clean_up $_ || $skip, $WORKDIR, ++$tno;
|
||||
}
|
||||
}
|
||||
|
197
t/03-fallback.t
197
t/03-fallback.t
@ -1,20 +1,19 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test fallback behavior
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
# Copyright (c) 2007-2021 imacat.
|
||||
#
|
||||
# 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.
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# 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.
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
@ -30,87 +29,87 @@ use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
our ($WORKDIR, $arclog, $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
$tno = 0;
|
||||
|
||||
# 1-4: STDIN keep fall back
|
||||
foreach my $kt (@KEEPTYPES) {
|
||||
foreach my $kt (@KEEP_MODES) {
|
||||
next if $$kt{"stdin"} || $$kt{"title"} eq "keep all";
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt, $rt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$fmt = $LOG_FORMATS[int rand @LOG_FORMATS];
|
||||
# A random available compression
|
||||
do {
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$rt = $RESULT_TYPES[int rand @RESULT_TYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
$title = join ", ", "STDIN keep fall back", $$kt{"title"},
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$_ = 2 + (has_no_gzip? 0: 2) + (has_no_bzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
$stdin = int rand $num;
|
||||
%_ = qw();
|
||||
my %types = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
foreach (grep !exists $types{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$types{$_} = $SOURCE_TYPES[int rand @SOURCE_TYPES];
|
||||
} until !(${$types{$_}}{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !(${$types{$_}}{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@st = map $types{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %types) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @cem, {%types};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
%types = qw();
|
||||
%types = (%types, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %types;
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map "$oprfb.$_" . $$rt{"suf"}, @mle;
|
||||
prsrvsrc $WORKDIR;
|
||||
preserve_source $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$kt{"opts"}}, @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd read_raw_file $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -119,11 +118,11 @@ foreach my $kt (@KEEPTYPES) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$fr = $fs[$k] . ".var-dump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
@ -131,96 +130,96 @@ foreach my $kt (@KEEPTYPES) {
|
||||
$cef{$frb} = $cof{$frb}
|
||||
. join "", map(exists $$_{$m}? $$_{$m}: "", @cem);
|
||||
$tef{$frb} = $$rt{"type"};
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno == 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no == 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
}
|
||||
|
||||
# 5: STDIN override ask fall back
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $stdin);
|
||||
my (@st, $fmt, $rt);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$fmt = $LOG_FORMATS[int rand @LOG_FORMATS];
|
||||
# A random available compression
|
||||
do {
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$rt = $RESULT_TYPES[int rand @RESULT_TYPES];
|
||||
} until !($$rt{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !($$rt{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
$title = join ", ", "STDIN override ask fall back",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$_ = 2 + (has_no_gzip? 0: 2) + (has_no_bzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
$stdin = int rand $num;
|
||||
%_ = qw();
|
||||
my %types = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
foreach (grep !exists $types{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$types{$_} = $SOURCE_TYPES[int rand @SOURCE_TYPES];
|
||||
} until !(${$types{$_}}{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !(${$types{$_}}{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@st = map $types{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %types) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @cem, {%types};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
%types = qw();
|
||||
%types = (%types, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %types;
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, grep $cof{$_} ne "", keys %cof;
|
||||
prsrvsrc $WORKDIR;
|
||||
preserve_source $WORKDIR;
|
||||
@_ = @fs;
|
||||
$_[$stdin] = "-";
|
||||
@_ = ($arclog, qw(-d -d -d -o ask), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_) . " < " . $fs[$stdin];
|
||||
($retno, $out, $err) = runcmd frread $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd read_raw_file $fs[$stdin], @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -229,28 +228,28 @@ $_ = eval {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$fr = $fs[$k] . ".var-dump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cof{$frb}, $$rt{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
|
220
t/04-errors.t
220
t/04-errors.t
@ -1,20 +1,19 @@
|
||||
#! /usr/bin/perl -w
|
||||
# Test the errors that should be captured.
|
||||
|
||||
# Copyright (c) 2007 imacat
|
||||
# Copyright (c) 2007-2021 imacat.
|
||||
#
|
||||
# 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.
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# 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.
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
use 5.005;
|
||||
use strict;
|
||||
@ -30,7 +29,7 @@ use File::Spec::Functions qw(catdir catfile updir);
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
use _helper;
|
||||
use vars qw($WORKDIR $arclog $tno);
|
||||
our ($WORKDIR, $arclog, $tno);
|
||||
|
||||
$WORKDIR = catdir($FindBin::Bin, "logs");
|
||||
$arclog = catfile($FindBin::Bin, updir, "blib", "script", "arclog");
|
||||
@ -38,166 +37,166 @@ $tno = 0;
|
||||
|
||||
# 1: STDIN alone
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($title, $cmd, $ret_no, $out, $err, $var_dump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = "STDIN alone";
|
||||
$logfile = randword;
|
||||
$logfile = random_word;
|
||||
$fs = catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %cem) = mkrndlog_apache $fs;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
($cs, $var_dump, %cem) = make_apache_log_file $fs;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
@fle = qw();
|
||||
push @fle, basename($fs);
|
||||
push @fle, "$logfile.vardump";
|
||||
prsrvsrc $WORKDIR;
|
||||
push @fle, "$logfile.var-dump";
|
||||
preserve_source $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -c n), "-");
|
||||
$cmd = join(" ", @_) . " < " . $fs;
|
||||
($retno, $out, $err) = runcmd frread $fs, @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd read_raw_file $fs, @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$logfile.vardump";
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$frb = "$logfile.var-dump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 2: STDOUT as output prefix
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, $vardump, $logfile);
|
||||
my ($title, $cmd, $ret_no, $out, $err, $var_dump, $logfile);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($fs, $cs, %cem);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = "STDOUT as output prefix";
|
||||
$logfile = randword;
|
||||
$logfile = random_word;
|
||||
$fs = catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %cem) = mkrndlog_apache $fs;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
($cs, $var_dump, %cem) = make_apache_log_file $fs;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
@fle = qw();
|
||||
push @fle, basename($fs);
|
||||
push @fle, "$logfile.vardump";
|
||||
prsrvsrc $WORKDIR;
|
||||
push @fle, "$logfile.var-dump";
|
||||
preserve_source $WORKDIR;
|
||||
@_ = ($arclog, qw(-d -d -d -c n), $logfile, "-");
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
%trf = qw(); # Resulted file type by file
|
||||
$fr = $fs;
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$logfile.vardump";
|
||||
($cef{$frb}, $tef{$frb}) = ($cs, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$frb = "$logfile.var-dump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump, TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump, TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 3: A same log file is specified more than once
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, @fs, @cs, @cem, @mle, %cof, $opref, $oprfb, $mt);
|
||||
my (@st, $fmt, $rt, $dup);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$fmt = $LOGFMTS[int rand @LOGFMTS];
|
||||
$rt = $RESTYPES[int rand @RESTYPES];
|
||||
$fmt = $LOG_FORMATS[int rand @LOG_FORMATS];
|
||||
$rt = $RESULT_TYPES[int rand @RESULT_TYPES];
|
||||
$title = join ",", "A same log file is specified more than once",
|
||||
$$fmt{"title"}, $$rt{"title"};
|
||||
# (2-4 times available compression) log files
|
||||
$_ = 2 + (nogzip? 0: 2) + (nobzip2? 0: 2);
|
||||
$_ = 2 + (has_no_gzip? 0: 2) + (has_no_bzip2? 0: 2);
|
||||
$num = $_ + int rand $_;
|
||||
%_ = qw();
|
||||
my %types = qw();
|
||||
# At least 2 files for each available compression
|
||||
foreach my $st (@SRCTYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && nogzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $_{$_}, (0...$num-1);
|
||||
$_{$_[int rand @_]} = $st;
|
||||
foreach my $st (@SOURCE_TYPES) {
|
||||
next if ($$st{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
|| ($$st{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
@_ = grep !exists $types{$_}, (0...$num-1);
|
||||
$types{$_[int rand @_]} = $st;
|
||||
}
|
||||
# Set random compression on the rest files
|
||||
foreach (grep !exists $_{$_}, (0...$num-1)) {
|
||||
foreach (grep !exists $types{$_}, (0...$num-1)) {
|
||||
do {
|
||||
$_{$_} = $SRCTYPES[int rand @SRCTYPES];
|
||||
} until !(${$_{$_}}{"type"} eq TYPE_GZIP && nogzip)
|
||||
&& !(${$_{$_}}{"type"} eq TYPE_BZIP2 && nobzip2);
|
||||
$types{$_} = $SOURCE_TYPES[int rand @SOURCE_TYPES];
|
||||
} until !(${$types{$_}}{"type"} eq TYPE_GZIP && has_no_gzip)
|
||||
&& !(${$types{$_}}{"type"} eq TYPE_BZIP2 && has_no_bzip2);
|
||||
}
|
||||
@st = map $_{$_}, (0...$num-1);
|
||||
@st = map $types{$_}, (0...$num-1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@cem = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
$logfile .= ${$st[$k]}{"suf"};
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
($cs, $vardump, %_) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %types) = &{$$fmt{"sub"}}($fs[$k]);
|
||||
push @cs, $cs;
|
||||
push @cem, {%_};
|
||||
push @cem, {%types};
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
%_ = qw();
|
||||
%_ = (%_, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %_;
|
||||
%types = qw();
|
||||
%types = (%types, map { $_ => 1 } keys %$_) foreach @cem;
|
||||
@mle = sort keys %types;
|
||||
$mt = pop @mle;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
%cof = mkrndlog_existing $$fmt{"sub"},
|
||||
%cof = make_log_file $$fmt{"sub"},
|
||||
$WORKDIR, "$oprfb.%s" . $$rt{"suf"}, @mle;
|
||||
push @fle, map basename($_), grep $cof{$_} ne "", keys %cof;
|
||||
prsrvsrc $WORKDIR;
|
||||
preserve_source $WORKDIR;
|
||||
$dup = $fs[int rand @fs];
|
||||
$_ = int rand(@fs + 1);
|
||||
@_ = (@fs[0...$_-1], $dup, @fs[$_...$#fs]);
|
||||
@_ = ($arclog, qw(-d -d -d -o a), @{$$rt{"opts"}}, @_, $opref);
|
||||
$cmd = join(" ", @_);
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -206,76 +205,77 @@ $_ = eval {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], ${$st[$k]}{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$fr = $fs[$k] . ".vardump";
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$fr = $fs[$k] . ".var-dump";
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
foreach my $m (@mle) {
|
||||
$fr = "$opref.$m" . $$rt{"suf"};
|
||||
$frb = basename($fr);
|
||||
next if $cof{$frb} eq "";
|
||||
($cef{$frb}, $tef{$frb}) = ($cof{$frb}, $$rt{"type"});
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
|
||||
# 4-23: Mixing different formats
|
||||
for (my $i = 0; $i < @LOGFMTS; $i++) {
|
||||
for (my $j = 0; $j < @LOGFMTS; $j++) {
|
||||
for (my $i = 0; $i < @LOG_FORMATS; $i++) {
|
||||
for (my $j = 0; $j < @LOG_FORMATS; $j++) {
|
||||
next if $i == $j;
|
||||
$_ = eval {
|
||||
my ($title, $cmd, $retno, $out, $err, @vardump, %logfiles);
|
||||
my ($title, $cmd, $ret_no, $out, $err, @var_dump, %logfiles);
|
||||
my ($fr, $frb, @fle, $fle, $flr, %cef, %crf, %tef, %trf);
|
||||
my ($num, $swan, @fs, @cs, $opref, $oprfb);
|
||||
rmtree $WORKDIR;
|
||||
mkpath $WORKDIR;
|
||||
$title = join ",", "Mixing formats", ${$LOGFMTS[$i]}{"title"},
|
||||
${$LOGFMTS[$j]}{"title"};
|
||||
$title = join ",", "Mixing formats", ${$LOG_FORMATS[$i]}{"title"},
|
||||
${$LOG_FORMATS[$j]}{"title"};
|
||||
# 3-5 log files
|
||||
$num = 3 + int rand 3;
|
||||
$swan = 1 + int rand($num - 1);
|
||||
@fs = qw();
|
||||
@cs = qw();
|
||||
@vardump = qw();
|
||||
@var_dump = qw();
|
||||
@fle = qw();
|
||||
%logfiles = qw();
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
my ($logfile, $cs, $vardump);
|
||||
do { $logfile = randword } until !exists $logfiles{$logfile};
|
||||
my ($logfile, $cs, $var_dump);
|
||||
do { $logfile = random_word } until !exists $logfiles{$logfile};
|
||||
$logfiles{$logfile} = 1;
|
||||
push @fs, catfile($WORKDIR, $logfile);
|
||||
my %by_months;
|
||||
if ($k != $swan) {
|
||||
($cs, $vardump, %_) = &{${$LOGFMTS[$i]}{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %by_months) = &{${$LOG_FORMATS[$i]}{"sub"}}($fs[$k]);
|
||||
} else {
|
||||
($cs, $vardump, %_) = &{${$LOGFMTS[$j]}{"sub"}}($fs[$k]);
|
||||
($cs, $var_dump, %by_months) = &{${$LOG_FORMATS[$j]}{"sub"}}($fs[$k]);
|
||||
}
|
||||
push @cs, $cs;
|
||||
push @fle, $logfile;
|
||||
push @vardump, $vardump;
|
||||
frwrite(catfile($WORKDIR, "$logfile.vardump"), $vardump);
|
||||
push @fle, "$logfile.vardump";
|
||||
push @var_dump, $var_dump;
|
||||
write_raw_file(catfile($WORKDIR, "$logfile.var-dump"), $var_dump);
|
||||
push @fle, "$logfile.var-dump";
|
||||
}
|
||||
prsrvsrc $WORKDIR;
|
||||
do { $oprfb = randword } until !exists $logfiles{$oprfb};
|
||||
preserve_source $WORKDIR;
|
||||
do { $oprfb = random_word } until !exists $logfiles{$oprfb};
|
||||
$opref = catfile($WORKDIR, $oprfb);
|
||||
@_ = ($arclog, qw(-d -d -d -c n), @fs, $opref);
|
||||
$cmd = join " ", @_;
|
||||
($retno, $out, $err) = runcmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), flist $WORKDIR);
|
||||
($ret_no, $out, $err) = run_cmd "", @_;
|
||||
($fle, $flr) = (join(" ", sort @fle), list_files $WORKDIR);
|
||||
%cef = qw(); # Expected content by file
|
||||
%tef = qw(); # Expected file type by file
|
||||
%crf = qw(); # Resulted content by file
|
||||
@ -283,26 +283,26 @@ for (my $i = 0; $i < @LOGFMTS; $i++) {
|
||||
for (my $k = 0; $k < $num; $k++) {
|
||||
$fr = $fs[$k];
|
||||
$frb = basename($fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
$frb = "$frb.vardump";
|
||||
($cef{$frb}, $tef{$frb}) = ($cs[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
$frb = "$frb.var-dump";
|
||||
$fr = catfile($WORKDIR, $frb);
|
||||
($cef{$frb}, $tef{$frb}) = ($vardump[$k], TYPE_PLAIN);
|
||||
($crf{$frb}, $trf{$frb}) = (fread $fr, ftype $fr);
|
||||
($cef{$frb}, $tef{$frb}) = ($var_dump[$k], TYPE_TEXT);
|
||||
($crf{$frb}, $trf{$frb}) = (read_file $fr, file_type $fr);
|
||||
}
|
||||
die "$title\n$cmd\n$out$err" unless $retno != 0;
|
||||
die "$title\n$cmd\n$out$err" unless $ret_no != 0;
|
||||
die "$title\n$cmd\nresult files incorrect.\nGot: $flr\nExpected: $fle\nOutput:\n$out$err"
|
||||
unless $flr eq $fle;
|
||||
foreach $fr (@fle) {
|
||||
die "$title\n$cmd\n$fr: result type incorrect.\nGot: $trf{$fr}\nExpected: $tef{$fr}\nOutput:\n$out$err"
|
||||
unless nofile || $trf{$fr} eq $tef{$fr};
|
||||
unless has_no_file || $trf{$fr} eq $tef{$fr};
|
||||
die "$title\n$cmd\n$fr: result incorrect.\nGot:\n$crf{$fr}\nExpected:\n$cef{$fr}\nOutput:\n$out$err"
|
||||
unless $crf{$fr} eq $cef{$fr};
|
||||
}
|
||||
1;
|
||||
};
|
||||
ok($_, 1, $@);
|
||||
cleanup $_, $WORKDIR, ++$tno;
|
||||
clean_up $_, $WORKDIR, ++$tno;
|
||||
die unless $_;
|
||||
}
|
||||
}
|
||||
|
725
t/_helper.pm
725
t/_helper.pm
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user