diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..cbb3a13 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +*.rpm +*.log +*spec-20* +*.tar.gz diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..9df81e9 --- /dev/null +++ b/Makefile @@ -0,0 +1,21 @@ +# Makefile for source rpm: smeserver-awstats +# $Id: Makefile,v 1.1 2020/10/19 15:36:37 brianr Exp $ +NAME := smeserver-awstats +SPECFILE = $(firstword $(wildcard *.spec)) + +define find-makefile-common +for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done +endef + +MAKEFILE_COMMON := $(shell $(find-makefile-common)) + +ifeq ($(MAKEFILE_COMMON),) +# attept a checkout +define checkout-makefile-common +test -f CVS/Root && { cvs -Q -d $$(cat CVS/Root) checkout common && echo "common/Makefile.common" ; } || { echo "ERROR: I can't figure out how to checkout the 'common' module." ; exit -1 ; } >&2 +endef + +MAKEFILE_COMMON := $(shell $(checkout-makefile-common)) +endif + +include $(MAKEFILE_COMMON) diff --git a/README.md b/README.md index 1a73938..2f3ba9f 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,16 @@ -# smeserver-awstats +# smeserver-awstats -SMEServer Koozali developed git repo for smeserver-awstats smecontribs \ No newline at end of file +SMEServer Koozali developed git repo for smeserver-awstats smecontribs + +## Wiki +
https://wiki.koozali.org/AWStats +
https://wiki.koozali.org/Qmail_Statistics_(AWStats) + +## Bugzilla +Show list of outstanding bugs: [here](https://bugs.koozali.org/buglist.cgi?component=smeserver-awstats&product=SME%20Contribs&query_format=advanced&limit=0&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=CONFIRMED) + +## Description + +
*This description has been generated by an LLM AI system and cannot be relied on to be fully correct.* +*Once it has been checked, then this comment will be deleted* +
diff --git a/additional/COPYING b/additional/COPYING new file mode 100644 index 0000000..196760e --- /dev/null +++ b/additional/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) 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 +this service 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 make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. 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. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute 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 and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program 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. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +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 +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the 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 a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, 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. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE 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. + + 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 +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) 19yy + + 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 2 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, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19yy name of author + Gnomovision 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, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This 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 Library General +Public License instead of this License. diff --git a/additional/neddix.gif b/additional/neddix.gif new file mode 100644 index 0000000..151102a Binary files /dev/null and b/additional/neddix.gif differ diff --git a/contriborbase b/contriborbase new file mode 100644 index 0000000..9b7fd51 --- /dev/null +++ b/contriborbase @@ -0,0 +1 @@ +contribs10 diff --git a/createlinks b/createlinks new file mode 100644 index 0000000..ae28300 --- /dev/null +++ b/createlinks @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w + +use esmith::Build::CreateLinks qw(:all); +use File::Basename; +use File::Path; + +my $event; + +panel_link("awstats", 'manager'); + +for my $event (qw( ip-change awstats-update smeserver-awstats-update console-save post-upgrade remoteaccess-update )) { + templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.conf", $event ); + templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.ftp.conf", $event ); + templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.mail.conf", $event ); +} + +$event="ip-change"; +event_link("awstats-run", $event , "04"); + +$event="awstats-update"; +event_link("navigation-conf", $event, "50"); +event_link("awstats-run", "awstats-update", "20"); +templates2events("/etc/crontab", $event ); + + +$event= "smeserver-awstats-update"; +event_link("navigation-conf", $event, "50"); +templates2events("/etc/crontab", $event ); +event_link("awstats-upgrade", $event, "02"); +# for smeserver-manager (in smeserver-awstats-update) +safe_symlink('restart', "root/etc/e-smith/events/$event/services2adjust/smanager"); +event_link('navigation2-conf', "$event", '80'); +event_link('routes2-conf', "$event", '80'); +event_link('locales2-conf', "$event", '80'); +safe_symlink("/usr/share/awstats/wwwroot/icon" , 'root/usr/share/smanager/themes/default/public/images/awstats/icon'); + +use esmith::Build::Backup qw(:all); +backup_includes("smeserver-awstats", qw( +/etc/e-smith/web/panels/manager/cgi-bin/.awstats/ +)); +# archive in /home/e-smith/files/users/admin are already backuped diff --git a/root/etc/e-smith/db/configuration/defaults/AWStats/status b/root/etc/e-smith/db/configuration/defaults/AWStats/status new file mode 100644 index 0000000..86981e6 --- /dev/null +++ b/root/etc/e-smith/db/configuration/defaults/AWStats/status @@ -0,0 +1 @@ +enabled diff --git a/root/etc/e-smith/db/configuration/defaults/AWStats/type b/root/etc/e-smith/db/configuration/defaults/AWStats/type new file mode 100644 index 0000000..8be5547 --- /dev/null +++ b/root/etc/e-smith/db/configuration/defaults/AWStats/type @@ -0,0 +1 @@ +status diff --git a/root/etc/e-smith/events/actions/awstats-run b/root/etc/e-smith/events/actions/awstats-run new file mode 100644 index 0000000..7476372 --- /dev/null +++ b/root/etc/e-smith/events/actions/awstats-run @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w + +#---------------------------------------------------------------------- +# copyright (C) 2001 neddix, stuttgart +# +# 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +#---------------------------------------------------------------------- + +package esmith; + +use strict; +use Errno; +use esmith::config; +use esmith::util; +use esmith::db; + +#------------------------------------------------------------ +# run the awstats logfile pre-processor +#------------------------------------------------------------ + +my $event = $ARGV [0]; + +my $configDB = esmith::ConfigDB->open or die("can't open Config DB"); +my $status = $configDB->get_prop( "AWStats", "status" ); + + +if (defined $status && $status eq "enabled") +{ + my $awconfpath="/etc/e-smith/web/panels/manager/cgi-bin/.awstats"; + my $mtime; + my $prev_mtime=0; + (undef,undef,undef,undef,undef,undef,undef,undef,undef,$mtime)=stat("$awconfpath/awstats.conf"); + + exit 0 if (!defined $mtime); + + while ($mtime != $prev_mtime) { + open (IN, "$awconfpath/awstats.conf") or die "\nCould not open $awconfpath/awstats.conf\n"; + open (OUT, ">$awconfpath/awstats.conf.$$") or die "\nCould not open $awconfpath/awstats.conf.$$\n"; + while () { + print OUT $_; + } + close (IN); + close (OUT); + (undef,undef,undef,undef,undef,undef,undef,undef,undef,$prev_mtime)=stat("$awconfpath/awstats.conf"); + } + + esmith::util::backgroundCommand (1, "/sbin/e-smith/awstats-pp", "-c$awconfpath/awstats.conf.$$"); +} + +exit (0); diff --git a/root/etc/e-smith/events/actions/awstats-upgrade b/root/etc/e-smith/events/actions/awstats-upgrade new file mode 100644 index 0000000..558d439 --- /dev/null +++ b/root/etc/e-smith/events/actions/awstats-upgrade @@ -0,0 +1,29 @@ +#!/bin/bash + +if [[ -d /var/www/awstats/ ]]; then + cp -a /var/www/awstats/icon/* /etc/e-smith/web/panels/manager/html/awstats/icon + cp -a /var/www/awstats/awstats.pl /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a /var/www/awstats/lang /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a /var/www/awstats/lib /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a /var/www/awstats/plugins /etc/e-smith/web/panels/manager/cgi-bin/.awstats +else + rootdir='/usr/share/awstats/' + cp -a $rootdir/wwwroot/icon/* /etc/e-smith/web/panels/manager/html/awstats/icon + cp -a $rootdir/wwwroot/cgi-bin/awstats.pl /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a $rootdir/lang /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a $rootdir/lib /etc/e-smith/web/panels/manager/cgi-bin/.awstats + cp -a $rootdir/plugins /etc/e-smith/web/panels/manager/cgi-bin/.awstats +fi +chmod -R 770 /etc/e-smith/web/panels/manager/cgi-bin/.awstats + +#cd /etc/e-smith/web/panels/manager/html/awstats/ +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/os /etc/e-smith/web/panels/manager/html/awstats/os +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/flags /etc/e-smith/web/panels/manager/html/awstats/flags +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/browser /etc/e-smith/web/panels/manager/html/awstats/browser +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/clock /etc/e-smith/web/panels/manager/html/awstats/clock +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/mime /etc/e-smith/web/panels/manager/html/awstats/mime +ln -sf /etc/e-smith/web/panels/manager/html/awstats/icon/other /etc/e-smith/web/panels/manager/html/awstats/other + +echo "AWStats upgrade complete" + + diff --git a/root/etc/e-smith/templates/etc/crontab/awstats b/root/etc/e-smith/templates/etc/crontab/awstats new file mode 100644 index 0000000..d9f2271 --- /dev/null +++ b/root/etc/e-smith/templates/etc/crontab/awstats @@ -0,0 +1,50 @@ +{ + use esmith::config; + use esmith::db; + + $OUT = "\n# AWStats Advanced Web Statistics, RPM provided by www.neddix.de\n"; + + local %services; + $services{'AWStats'} = $AWStats; + + my $status = db_get_prop(\%services, "AWStats", "status"); + + if (defined $status && $status eq "enabled") + { + my $cmd="/bin/nice /sbin/e-smith/awstats-pp -s -n"; + my $freq = db_get_prop(\%services, "AWStats", 'Freq'); + if ($freq eq '5m') { + $OUT .= "*/5 * * * * root $cmd\n"; + } + elsif ($freq eq '10m') { + $OUT .= "*/10 * * * * root $cmd\n"; + } + elsif ($freq eq '15m') { + $OUT .= "*/15 * * * * root $cmd\n"; + } + elsif ($freq eq '30m') { + $OUT .= "*/30 * * * * root $cmd\n"; + } + elsif ($freq eq '1h') { + $OUT .= "13 * * * * root $cmd\n"; + } + elsif ($freq eq '2h') { + $OUT .= "13 */2 * * * root $cmd\n"; + } + elsif ($freq eq '4h') { + $OUT .= "13 */4 * * * root $cmd\n"; + } + elsif ($freq eq '8h') { + $OUT .= "13 */8 * * * root $cmd\n"; + } + elsif ($freq eq '12h') { + $OUT .= "13 */12 * * * root $cmd\n"; + } else { + $OUT .= "# Parameter Freq not vaild, using default\n"; + $OUT .= "*/15 * * * * root $cmd\n"; + } + } else { + $OUT .= "#disabled"; + } +} + diff --git a/root/etc/e-smith/templates/etc/crontab/awstats_email b/root/etc/e-smith/templates/etc/crontab/awstats_email new file mode 100644 index 0000000..3615237 --- /dev/null +++ b/root/etc/e-smith/templates/etc/crontab/awstats_email @@ -0,0 +1,6 @@ +{ + return "# awstats-mail is disabled\n" unless ($AWStats{mailstatus} || 'disabled') eq 'enabled'; + + my $cmd="/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.pl"; + $OUT .= "45 * * * * root $cmd -update -config=mail >/dev/null\n"; +} diff --git a/root/etc/e-smith/templates/etc/crontab/awstats_ftp b/root/etc/e-smith/templates/etc/crontab/awstats_ftp new file mode 100644 index 0000000..0254a70 --- /dev/null +++ b/root/etc/e-smith/templates/etc/crontab/awstats_ftp @@ -0,0 +1,7 @@ +{ + return "# awstats-ftp is disabled\n" unless ($AWStats{ftpstatus} || 'disabled') eq 'enabled'; + + my $cmd="/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.pl"; + $OUT .= "35 * * * * root $cmd -update -config=ftp >/dev/null\n"; +} + diff --git a/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.conf/10conf b/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.conf/10conf new file mode 100644 index 0000000..0684886 --- /dev/null +++ b/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.conf/10conf @@ -0,0 +1,927 @@ +# AWStats configure file +#------------------------------------------------------------------------ +# Copy this file into awstats.www.myserver.mydomain.conf or awstats.conf +# and edit this new file to setup AWStats (This config file must be in +# same directory than awstats.pl). +# If you don't understand what is a parameter, keep default value. +#------------------------------------------------------------------------ + + +# Main setup section (Required to make AWStats working) +#------------------------------------------------------------------------ + +# Web server logfile to analyze, with full path +# Example: "/var/logs/httpd/myserver_access.log" +# or relative path from awstats.pl directory. +# Example: "../logs/mycombinedlog.log" +# You can also use %YY %MM %DD or %HH in filename, AWStats will +# replace those tags with current year month day or hour. +# Example: "C:/WINNT/system32/LogFiles/W3SVC1/ex%YY%MM%DD.log" +LogFile="/var/log/httpd/access_log" + +# Put here your log format (it depends on your web server). +# Possible values: +# 1 - Apache combined log format +# 2 - IIS extended W3C log format +# +# for e-smith 1 must be used, awstats-run converts the e-mith combined_virtual to combined +LogFormat=1 + +# Set this to a directory where you want AWStats to save its working files. +# Need write permissions by web server user (user "nobody" with Unix OS). +# Example: "/tmp" +# Example: "../data" +# Example: "C:/awstats_working_dir" +# Default: "." (means same directory as awstats.pl) +DirData="/home/e-smith/files/users/admin/home/awstats" + +# Relative or absolute web URL of your awstats.pl directory. +# Used only when AWStats is used from command line. +# Default: "/cgi-bin" (means awstats.pl is in "/mywwwroot/cgi-bin") +# +DirCgi="/cgi-bin" + +# Relative or absolute web URL of all icons subdirectories. +# Default: "/icon" (means you must copy icon directories in "/mywwwroot/icon") +# +DirIcons="../../awstats" + +# "SiteDomain" must contain the main domain name or the main intranet web +# server name used to reach the web site. +# If you share the same log file for several virtual web servers, this +# parameter is used to tell AWStats to filter record that contains records for +# this virtual host name only (So check that this virtual hostname can be +# found in your log file and use a personalized log format that include the +# %virtualname tag). +# But for multi hosting a better solution is to have one log file for each +# virtual web server. In this case, this parameter is only used to generate +# full URL's links when ShowLinksOnUrl option is set to 1. +# Example: "www.mydomain.com" +# Example: "user.mydomain.com" +# Example: "myintranetserver" +# +{ + + use warnings; + use esmith::ConfigDB; + my $configDB = esmith::ConfigDB->open or die("can't open Config DB"); + + my $domain = $configDB->get( 'DomainName' )->value; + $OUT = "SiteDomain=\"www." . $domain . "\""; +} + +# If you want to have hosts reported by name instead of ip address, AWStats +# need to make reverse DNS lookups (if not already done in your log file). +# With DNSLookup to 0, all hosts will be reported by their IP addresses and +# not by the full hostname of visitors. +# If you want to set DNSLookup to 1, don't forget that this will reduce +# dramatically AWStats update process speed. Do not use on large web sites. +# Note: Reverse DNS lookup is done on IPv4 only. +# Note: Country detection can works without reverse DNS lookup if plugin +# 'geoip' is enabled (faster and more accurate than reverse DNS lookup). +# Possible values: +# 0 - No DNS Lookup +# 1 - DNS Lookup is fully enabled +# 2 - DNS Lookup is made only from DNS cache files (if exist) +# Default: 2 +# +DNSLookup=1 + +# AWStats can purge log after processing it. By this way, the next time you +# launch AWStats, log file will be smaller and processing time will be better. +# IMPORTANT !!! +# AWStats is able to detect new lines in log files, to process only new lines, +# so you can launch it as soon as you want, even with this parameter set to 0. +# This parameter doesn't work with IIS (This web server doesn't let its log +# file to be purged). +# The purge of the log file is made only when awstats is runned so you must +# keep your standard scheduler/crontab to purge your log file frequently. +# Possible values: 1 or 0 +# Default: 0 (but if you can, set this to 1 to increase speed) +# +# must set to 0 for AWStats on e-smith. DO NO PLAY WITH THIS OPTION +PurgeLogFile=0 + +# When PurgeLogFile is setup to 1, AWStats will clean your log file after +# processing it. You can however keep an archive file (saved in "DirData") of +# all processed log records by setting this to 1 (For example if you want to +# use another log analyzer). +# This parameter is not used if PurgeLogFile=0 +# Possible values: 1 or 0 +# Default: 0 +# +ArchiveLogRecords=0 + +#extra config for 6.3 +AllowFullYearView=3 + + +# Optionnal setup section (Not required but increase AWStats features) +#------------------------------------------------------------------------ + +# Set your primary language. +# Possible value: +# 0=English, 1=French, 2=Dutch, 3=Spanish, 4=Italian, 5=German +# 6=Polish, 7=Greek, 8=Czech, 9=Portuguese +# Default: 0 +# +Lang=0 + +# Index page name for your web server. +# Example: "default.htm" +# Default: "index.html" +# +DefaultFile="index.html" + +### SkipHosts= +# Do not include access from clients that match following IP address. +# You can also put partial host names but this requires that reverse DNS +# lookup is already done in your server log file. +# Use space between each value and put a backslash before each dot. +# Example: "55\.55\.55\.55 222\.222\.222\.222 abcxyz" +# Default: "" +# +### HostAliases= +# Put here all possible domain names, addresses or virtual host aliases +# someone can use to access your site. Try to keep only the minimum number of +# possible names/adresses to have the best performances. +# Use space between each value and put a backslash before each dot. +# This parameter is used to analyze referer field in log file and to help +# AWStats to know if a referer URL is a local URL of same site or an URL of +# another site. +# Example: "www\.myserver\.com x\.y\.z\.w localhost 127\.0\.0\.1" +# + +{ +############################################################### +# SkipHosts +# This section could probably be cleaned up/made faster + + sub mip ($$); + use warnings; + use esmith::ConfigDB; + + my $configDB = esmith::ConfigDB->open or die("can't open Config DB"); + + my $networkDB = esmith::ConfigDB->open('networks') or die("can't open Networks DB"); + my $skipHosts = $configDB->get_prop( "AWStats", "SkipHosts" ) || ''; + my $allIPs = ""; + + $OUT = "SkipHosts=\""; + + + # local IP + # + + my $localip = $configDB->get_prop( 'InternalInterface', 'IPAddress' ); + my $localnetmask = $configDB->get_prop( 'InternalInterface', 'Netmask' ); + + my $ipskipLocalIP = $configDB->get_prop( "AWStats", "SkipLocalIP" ); + + if ( defined $ipskipLocalIP && $ipskipLocalIP ne "no" ) { # in Beta1 SkipLocalIP="mask" was possible + my $return = mip( $localip, $localnetmask ); + $allIPs .= "REGEX[^$return] "; + + } + + # local networks + # + my $ipskipLocalNet = $configDB->get_prop( "AWStats", "SkipLocalNetworks" ); + + if ( defined $ipskipLocalNet && $ipskipLocalNet eq "yes" ) { + + my @networks = $networkDB->keys; + + foreach my $network (@networks) { + + my $type = $networkDB->get_prop( $network, 'type' ); + my $system = $networkDB->get_prop( $network, 'SystemLocalNetwork' ) || ''; + + if ( $type eq 'network' && $system ne 'yes') { + my $properties = $networkDB->get_prop( $network, 'Mask' ); + my $return = mip( $network, $properties ); + + $allIPs .= "REGEX[^$return] "; + } + + } + } + + # Escape full stops e.g. \.co\.uk ; for REGEX only + $allIPs =~ s/\./\\./g; + + # external IP + # + my $externalstatus = $configDB->get_prop( 'ExternalInterface', 'Configuration' ) || 'disabled'; + my $externalip = $configDB->get_prop( 'ExternalInterface', 'IPAddress' ) || ''; + my $externalnetmask = $configDB->get_prop( 'ExternalInterface', 'Netmask' ) || ''; + if ( $externalstatus ne 'disabled' ) { + my $ipskipExtIP = $configDB->get_prop( "AWStats", "SkipExternalIP" ); + # If Skip ExternalIP is set to mask + if ( defined $ipskipExtIP && $ipskipExtIP eq "mask" ) { + my $return = mip( $externalip, $externalnetmask ); + #Escape full stops e.g. \.co\.uk ; for REGEX only + $return =~ s/\./\\./g; + $allIPs .= "REGEX[^$return] "; + + } + + # If Skip ExternalIP is set to yes then just specific IP + elsif ( defined $ipskipExtIP && $ipskipExtIP eq "yes" ) { + $allIPs .= "$externalip "; + } + + } + $OUT .= "127.0.0.1 $skipHosts $allIPs"; + + $OUT .= '"' . "\n"; + + +############################################################### +# HostAliases + + my $domainsDB = esmith::ConfigDB->open('domains') or die("can't open Domains DB"); + + $OUT .= 'HostAliases="localhost 127.0.0.1'; + + # push( @aliases, $DynDnsHostname ) if defined $DynDnsHostname; + # Need to find DynDnsHostname if it exists + + my @domains = $domainsDB->keys; + + foreach (@domains) { + + # Escape full stops e.g. \.co\.uk + s/\./\\./g; + $OUT .= " REGEX[$_\$]"; + } + + # needed for IE6 beta + if ( defined $ipskipExtIP && $ipskipExtIP eq "mask" ) { + $externalip = mip( $externalip, $externalnetmask ); + #$externalip =~ s/\./\\./g; + $OUT .= " " . $externalip; + } + elsif ( defined $ipskipExtIP && $ipskipExtIP eq "yes" ) { + #$externalip =~ s/\./\\./g; + $OUT .= " " . $externalip; + } + + # Close the HostAliases line + $OUT .= '"' . "\n"; + +############################################################### + + sub mip ($$) { + my ( $ip, $msk ) = @_; + ( my @mask ) = split( "[\.]", $msk ); + my $i; + + # AWStats connot handle non-standard netmasks! + for ( $i = 0; $i < 4; $i++ ) { + if ( $mask[$i] ne "255" ) { + if ( $i == 1 ) { + $ip =~ s/[0-9]*\.[0-9]*\.[0-9]*$//; + } + elsif ( $i == 2 ) { + $ip =~ s/[0-9]*\.[0-9]*$//; + } + elsif ( $i == 3 ) { + $ip =~ s/[0-9]*$//; + } + last; + } + } + return $ip; + } + +} + +# Do not include access to URLs that match following entries. +# If you don't want to include users homepage in your stats, add "/~". +# You can also, if you want, add list of not important frame pages (like +# menus, etc...) to exclude them from statistics. +# Use space between each value and put a backslash before each dot. +# Do not remove default values. +# Example: "\.css \.js \.class robots\.txt dir/badpage\.html /~" +# Default: "\.css \.js \.class robots\.txt" +# +SkipFiles="\.css \.js \.class" + +# Include in stats, only accesses from hosts that match one of following +# entries. For example, if you want AWStats to filter access to keep only +# stats for visits from particular hosts, you can add thoose hosts names +# in this parameter. +# If DNS lookup is already done in your log file, you must enter here hostname +# criteria, else enter ip address criteria. +# The opposite parameter of "OnlyHosts" is "SkipHosts". +# Note: This parameter is not case sensitive. +# Note: Use space between each value. +# Note: ^xxx means hosts starting with xxx. +# Note: xxx$ means hosts ending with xxx. +# Example: "^123.123.123.123$ ^10.0." +# Default: "" +# +OnlyHosts="" + + +# Include in stats, only accesses to URLs that match one of following entries. +# For example, if you want AWStats to filter access to keep only stats that +# match a particular string, like a particular directory, you can add this +# directory name in this parameter. +# The opposite parameter of "OnlyFiles" is "SkipFiles". +# Note: This parameter is not case sensitive. +# Note: Use space between each value and do not remove default values +# Note: ^xxx means url starting with xxx. +# Note: xxx$ means url ending with xxx. +# Example: "marketing_directory" +# Default: "" +# +OnlyFiles="" + + +# Add here a list of kind of url (file extension) that must be counted as +# "Hit only" and not as a "Hit" and "Page/Download". You can set here all +# images extensions as they are hit downloaded that must be counted but they +# are not viewed pages. URLs with such extensions are not included in the TOP +# Pages/URL report. +# Note: If you want to exclude your own URLs from stats (No Pages and no Hits +# reported), you should use SkipFiles parameter instead. +# Example: "" +# Example: "css js class gif jpg jpeg png bmp zip arj gz z wav mp3 wma mpg" +# Default: "css js class gif jpg jpeg png bmp" +# +NotPageList="css js class gif jpg jpeg png bmp" + + +# By default, AWStats considers that records found in web log file are +# successful hits if HTTP code returned by server is a valid HTTP code (200 +# and 304). Any other code are reported in HTTP error chart. +# However in some specific environment, with web server HTTP redirection, +# you can choose to also accept other codes. +# Example: "200 304 302 305" +# Default: "200 304" +# +ValidHTTPCodes="200 304" + + +# By default, AWStats considers that records found in mail log file are +# successful mail transfers if code saved in log file is a valid code (1 for +# sendmail, 0 for postfix). +# Example: "1" +# Example: "0" +# Default: "1" +# +ValidSMTPCodes="1" + + +# Some web servers on some Operating systems (IIS-Windows) considers that two +# URLs with same value but different case are the same URL. To tell AWStats to +# also considers them as one, set this parameter to 1. +# Possible values: 0 or 1 +# Default: 0 +# +URLNotCaseSensitive=0 + + +# In URL links, "?" char is used to add parameter's list in URLs. Syntax is: +# /mypage.html?param1=value1 +# However, some servers/sites have also others chars to isolate dynamic part of +# their URLs. You can complete this list with all such characters. +# Example: "?;," +# Default: "?;" +# +URLQuerySeparators="?;" + + +# Keep or remove the query string to the URL in the statistics for individual +# pages. This is primarily used to differentiate between the URLs of dynamic +# pages. If set to 1, mypage.html?id=x and mypage.html?id=y are counted as two +# different pages. +# Warning, when set to 1, memory required to run AWStats is dramatically +# increased if you have a lot of changing URLs (for example URLs with a random +# id inside). Such web sites should not set this option to 1 or use seriously +# the next parameter URLWithQueryWithoutFollowingParameters. +# Possible values: +# 0 - URLs are cleaned from the query string (ie: "/mypage.html") +# 1 - Full URL with query string is used (ie: "/mypage.html?p=x&q=y") +# Default: 0 +# +URLWithQuery=1 + + +# When URLWithQuery is on, you will get the full URL with all parameters in +# URL reports. But among thoose parameters, sometimes you don't need a +# particular parameter because it does not identify the page or because it's +# a random ID changing for each access even if URL points to same page. In +# such cases, it is higly recommanded to ask AWStats to remove such parameters +# from the URL before counting, manipulating and storing it. Enter here list +# of all non wanted parameters. For example if you enter "id", one hit on +# /mypage.cgi?p=abc&id=Yo4UomP9d and /mypage.cgi?p=abc&id=Mu8fdxl3r +# will be reported as 2 hits on /mypage.cgi?p=abc +# This parameter is not used when URLWithQuery is 0. +# Example: "PHPSESSID jsessionid" +# Default: "" +# +URLWithQueryWithoutFollowingParameters="" + + +# Keep or remove the query string to the referrer URL in the statistics for +# external referrer pages. This is used to differentiate between the URLs of +# dynamic referrer pages. If set to 1, mypage.html?id=x and mypage.html?id=y +# are counted as two different referrer pages. +# Possible values: +# 0 - Referrer URLs are cleaned from the query string (ie: "/mypage.html") +# 1 - Full URL with query string is used (ie: "/mypage.html?p=x&q=y") +# Default: 0 +# +URLReferrerWithQuery=0 + + +# AWStats can detect setup problems or show you important informations to have +# a better use. Keep this to 1, except if AWStats says you can change it. +# Possible values: 0 or 1 +# Default: 1 +# +WarningMessages=1 + + +# When an error occurs, AWStats output a message related to errors. If you +# want (in most cases for security reasons) to have no error messages, you +# can set this parameter to your personalized generic message. +# Example: "An error occured. Contact your Administrator" +# Default: "" +# +ErrorMessages="" + + +# AWStat can be run with debug=x parameter to ouput various informations +# to help in debugging or solving troubles. If you wand (in most cases for +# security reasons) to disable debugging, set this parameter to 0. +# Possible values: 0 or 1 +# Default: 1 +# +DebugMessages=1 + + +# To help you to detect if your log format is good, AWStats report an error +# if all the first NbOfLinesForCorruptedLog lines have a format that does not +# match the LogFormat parameter. +# However, some worm virus attack on your web server can result in a very high +# number of corrupted lines in your log. So if you experience awstats stop +# because of bad virus records at the beginning of your log file, you can +# increase this parameter (very rare). +# Default: 50 +# +NbOfLinesForCorruptedLog=50 + + +# For some particular integration needs, you may want to have CGI links to +# point to another script than awstats.pl. +# Use the name of this script in WrapperScript parameter. +# Example: "awstatslauncher.pl" +# Default: "" +# +WrapperScript="" + + +# DecodeUA must be set to 1 if you use Roxen web server. This server converts +# all spaces in user agent field into %20. This make the AWStats robots, os +# and browsers detection fail in some cases. Just change it to 1 if and only +# if your web server is Roxen. +# Possible values: 0 or 1 +# Default: 0 +# +DecodeUA=0 + + + +#----------------------------------------------------------------------------- +# OPTIONAL ACCURACY SETUP SECTION (Not required but increase AWStats features) +#----------------------------------------------------------------------------- + +# Following values allows you to disable/enable some AWStats features. +# Possible values: 0, 1 (or 2 for LevelForRobotsDetection) +# Default: 1 (2 for LevelForRobotsDetection) +# +LevelForRobotsDetection=2 # 0 will increase AWStats speed by 1%. +LevelForBrowsersDetection=1 # 0 disables Browsers detection. No speed gain. +LevelForOSDetection=1 # 0 disables OS detection. No speed gain. +LevelForRefererAnalyze=1 # 0 will increase AWStats speed by 5%. + + + +#----------------------------------------------------------------------------- +# OPTIONAL APPEARANCE SETUP SECTION (Not required but increase AWStats features) +#----------------------------------------------------------------------------- + +# When you use AWStats as a CGI, you can have the reports shown in HTML frames. +# Frames are only available for report viewed dynamically. When you build +# pages from command line, this option is not used and no frames are built. +# Possible values: 0 or 1 +# Default: 0 +# +{ + $frames = $AWStats{UseFramesWhenCGI}; + $OUT = "UseFramesWhenCGI=" . ( $frames ne "yes" ? 0 : 1 ) . "\n"; +} + + + +# This parameter ask your browser to open detailed reports into a different +# window than the main page. +# Possible values: +# 0 - Open all in same browser window +# 1 - Open detailed reports in another window except if using frames +# 2 - Open always in a different window even if reports are framed +# Default: 1 +# +DetailedReportsOnNewWindows=1 + + +# You can add in the HTML report page a delay to force browsers to not use cache +# if page is loaded a second time after this delay (in seconds). +# This parameter is not used when report are built with -staticlinks option. +# Example: 3600 +# Default: 0 +# +Expires=0 + + +# To avoid too large web pages, you can ask AWStats to limit number of rows of +# all reported charts to this number when no other limit apply. +# Default: 1000 +# +MaxRowsInHTMLOutput=1000 + + + +# Each URL shown in stats page are links you can click. +# Possible values: 1 or 0 +# Default: 1 +# +# 0 is recommended for e-smith, since AWStats is invoked over port 980. +# clickable URL are rooted to http://yourdomain.tld:980/, which won't work +# +ShowLinksOnUrl=1 + +# Flags with link to other languages translation are visible. +# Possible values: 1 or 0 +# Default: 1 +# +# e-smith: lanuage option offered in the configuration panel +ShowFlagLinks="" + +# Search engines keywords reported are full search string or separate keywords +# Possible values: +# 0 - Search keywords reported are full search string (ie: "town maps") +# r - Search keywords reported are separated words (ie: "town" and "maps") +# Default: 0 +# +SplitSearchString=0 + +# You can put here HTML code that will be added at the end of AWStats reports. +# Great to add advert ban. +# Default: "" +# +HTMLEndSection="
contributed rpm by neddix.de dungog.net
" + +# Value of maximum bar width/heigth for horizontal/vertical graphics bar +# Default: 260/220 +# +{ + $BarSize = $AWStats{BarSize}; + if ( $BarSize eq "small" ) { + $OUT = "BarWidth = 160\nBarHeight = 120\n"; + } + elsif ( $BarSize eq "large" ) { + $OUT = "BarWidth = 360\nBarHeight = 320\n"; + } + else { + $OUT = "BarWidth = 260\nBarHeight = 220\n"; + } +} + +# This value can be used to choose maximum number of lines shown for each +# particular reporting. +# +# Stats by domains +# NO checks made for these SME keys !!! +{ + $OUT = ''; + $OUT .= "MaxNbOfDomain= " . $AWStats{MaxNbOfDomain} . "\n"; + $OUT .= "MaxNbOfHostsShown= " . $AWStats{MaxNbOfHostsShown} . "\n"; + $OUT .= "MinHitHost= " . $AWStats{MinHitHost} . "\n"; + $OUT .= "MaxNbOfRobotShown= " . $AWStats{MaxNbOfRobotShown} . "\n"; + $OUT .= "MinHitRobot= " . $AWStats{MinHitRobot} . "\n"; + $OUT .= "MaxNbOfPageShown= " . $AWStats{MaxNbOfPageShown} . "\n"; + $OUT .= "MinHitFile= " . $AWStats{MinHitFile} . "\n"; + $OUT .= "MaxNbOfRefererShown= " . $AWStats{MaxNbOfRefererShown} . "\n"; + $OUT .= "MinHitRefer= " . $AWStats{MinHitRefer} . "\n"; + $OUT .= "MaxNbOfKeywordsShown= " . $AWStats{MaxNbOfKeywordsShown} . "\n"; + $OUT .= "MinHitKeyword= " . $AWStats{MinHitKeyword} . "\n"; +} + + +# You choose here which reports you want to see in the main page and what you +# want to see in those reports. +# Possible values: +# 0 - Topic is not shown at all +# 1 - Report is shown with default informations +# XYZ - Report is shown with only informations defined by code X,Y,Z +# X,Y,Z are code letters among the following: +# U = Unique visitors +# V = Visits +# P = Number of pages +# H = Number of hits +# B = Bandwith +# L = Last access date +# E = Entry pages +# X = Exit pages +# C = Web compression (mod_gzip) +# M = Average mail size (mail logs) +# +# Show AWStats head title and icon +# Default: 1, Possible codes: None +ShowHeader=0 +# Show menu header with links on detailed reports +# Default: 1, Possible codes: None +ShowMenu=1 +# Show monthly and daily chart +# Default: UVPHB, Possible codes: UVPHB +ShowMonthDayStats=UVPHB +# Show days of week chart +# Default: PHB, Possible codes: PHB +ShowDaysOfWeekStats=PHB +# Show hourly chart +# Default: PHB, Possible codes: PHB +ShowHoursStats=PHB +# Show domains/country chart +# Default: PHB, Possible codes: PHB +ShowDomainsStats=PHB +# Show hosts chart +# Default: PHBL, Possible codes: PHBL +ShowHostsStats=PHBL +# Show authenticated users chart +# Default: 0, Possible codes: PHBL +ShowAuthenticatedUsers=1 +# Show robots chart +# Default: HBL, Possible codes: HBL +ShowRobotsStats=HBL +# Show EMail senders chart (For use when analyzing mail log files) +# Default: 0, Possible codes: HBML +ShowEMailSenders=0 +# Show EMail receiver chart (For use when analyzing mail log files) +# Default: 0, Possible codes: HBML +ShowEMailReceivers=0 +# Show session chart +# Default: 1, Possible codes: None +ShowSessionsStats=1 +# Show pages-url chart. +# Default: PBEX, Possible codes: PBEX +ShowPagesStats=PBEX +# Show file types chart. +# Default: HB, Possible codes: HBC +ShowFileTypesStats=HBC +# Show file size chart (Not yet available) +# Default: 1, Possible codes: None +ShowFileSizesStats=0 +# Show browsers chart +# Default: 1, Possible codes: None +ShowBrowsersStats=1 +# Show Operating systems chart +# Default: 1, Possible codes: None +ShowOSStats=1 +# Show Origin chart +# Default: PH, Possible codes: PH +ShowOriginStats=PH +# Show keyphrases chart +# Default: 1, Possible codes: None +ShowKeyphrasesStats=1 +# Show keywords chart +# Default: 1, Possible codes: None +ShowKeywordsStats=1 +# Show HTTP errors chart +# Default: 1, Possible codes: None +ShowHTTPErrorsStats=1 + + +# You can set this to use your own logo. +# Logo file must be in $DirIcons/other directory +# Default: "awstats_logo1.png" +# +Logo="awstats_logo1.png" + +# Colors used on AWStats report page. +# Example: color_name="RRGGBB" # RRGGBB is RedGreenBlue components in Hex +# +color_TableBGTitle="CCCCDD" # Background color for table title (Default = "CCCCDD") +color_TableTitle="000000" # Table title font color (Default = "000000") +color_TableBG="CCCCDD" # Background color for table (Default = "CCCCDD") +color_TableRowTitle="FFFFFF" # Table row title font color (Default = "FFFFFF") +color_TableBGRowTitle="ECECEC" # Background color for row title (Default = "ECECEC") +color_TableBorder="ECECEC" # Table border color (Default = "ECECEC") +color_text="000000" # Color of main body text (Default = "000000") +color_titletext="000000" # Color of text title within colored Title Rows (Default = "000000") +color_weekend="EAEAEA" # Color for week-end days +color_link="0011BB" # Color of HTML links (Default = "0011BB") +color_hover="605040" # Color of HTML on-mouseover links (Default = "605040") +color_v="F3F300" # Background color for number of visites (Default = "F3F300") +color_w="FF9933" # Background color for number of unique visitors (Default = "FF9933") +color_p="4477DD" # Background color for number of pages (Default = "4477DD") +color_h="66F0FF" # Background color for number of hits (Default = "66F0FF") +color_k="339944" # Background color for number of bytes (Default = "339944") +color_s="8888DD" # Background color for number of search (Default = "8888DD") + +# Set here the link used to point to Internet WhoIs database for hostnames. +# This parameter is not used if plugin hostinfo is not enabled. +# Default: "http://www.whois.net/search.cgi2?str=" +# Example: "http://www.ripe.net/perl/whois?form_type=simple&searchtext=" +# Example: "http://ws.arin.net/cgi-bin/whois.pl?queryinput=" +# +LinksToWhoIs="http://www.whois.net/search.cgi2?query_type=right&str=" + + +# Set here the link used to point to Internet WhoIs database for ip addresses. +# This parameter is not used if plugin hostinfo is not enabled. +# Default: "http://ws.arin.net/cgi-bin/whois.pl?queryinput=" +# Example: "http://ws.arin.net/cgi-bin/whois.pl?queryinput=" +# +LinksToIPWhoIs="http://ws.arin.net/cgi-bin/whois.pl?queryinput=" + +#----------------------------------------------------------------------------- +# PLUGINS +#----------------------------------------------------------------------------- + +# Add here all plugins file you want to load. +# Plugin files must be .pm files stored in 'plugins' directory. +# Uncomment LoadPlugin lines to enable a plugin after checking that perl +# modules required by the plugin are installed. + +# Plugin: Tooltips +# Perl modules required: None +# Add some tooltips help on HTML report pages. +# Note that enabled this kind of help will increased HTML report pages size, +# so server load and bandwidth. +# +#LoadPlugin="tooltips" + +# Plugin: IPv6 +# Perl modules required: Net::IP and Net::DNS +# This plugin gives AWStats capability to make reverse DNS lookup on IPv6 +# addresses. +# Note: If you are interesting in having country report, you should use the +# geoipfree or geoip plugin instead of enabled reverse DNS lookup. +# +#LoadPlugin="ipv6" + +# Plugin: HashFiles +# Perl modules required: Storable +# AWStats DNS cache files are read/saved as native hash files. This increase +# DNS cache files loading speed, above all for very large web sites. +# +#LoadPlugin="hashfiles" + +# Plugin: GeoIPfree +# Perl modules required: Geo::IPfree version 0.2+ (from Graciliano M.P.) +# Country chart is built from an Internet IP-Country database. +# This plugin is useless for intranet only log files. +# Note: You must choose between using this plugin (need Perl Geo::IPfree module) +# or the GeoIP plugin (need Perl Geo::IP module from Maxmind). +# This plugin reduces AWStats speed of 10% ! +# +#LoadPlugin="geoipfree" + +# Plugin: GeoIP +# Perl modules required: Geo::IP or Geo::IP::PurePerl (from Maxmind) +# Country chart is built from an Internet IP-Country database. +# This plugin is useless for intranet only log files. +# Note: You must choose between using this plugin (need Perl Geo::IP module +# from Maxmind) or the GeoIPfree plugin (need Perl Geo::IPfree module). +# This plugin reduces AWStats speed of 10% ! +# +#LoadPlugin="geoip" + +# Plugin: UserInfo +# Perl modules required: None +# Add a text (Firtname, Lastname, Office Department, ...) in authenticated user +# reports for each login value. +# A text file called userinfo.myconfig.txt, with two fields (first is login, +# second is text to show) separated by a tab char. must be created in plugins +# directory. +# +#LoadPlugin="userinfo" + +# Plugin: HostInfo +# Perl modules required: None +# Add a column into host chart with a clickable link to a popup that show WhoIs +# info, on a popup window. +# +{ + my $hostinfo = $AWStats{Hostinfo}; + if ( defined $hostinfo && $hostinfo eq "yes" ) { + $OUT = "LoadPlugin=\"hostinfo\"\n"; + } +} + +# Plugin: UrlAliases +# Perl modules required: None +# Add a text (Page title, description...) in URL reports after URL value. +# A text file called urlalias.myconfig.txt, with two fields (first is URL, +# second is text to show) separated by a tab char. must be created in plugins +# directory. +# +#LoadPlugin="urlalias" + +# Plugin: TimeHiRes +# Perl modules required: Time::HiRes +# Time reported by -showsteps option is in millisecond. For debug purpose. +# +#LoadPlugin="timehires" + +# Plugin: TimeZone +# Perl modules required: Time::Local +# Allow AWStats to correct a bad timezone for user of some IIS that use +# GMT date in its log instead of local server time. +# This module is useless for Apache and most IIS version. +# This plugin reduces AWStats speed of 40% !!!!!!! +# +#LoadPlugin="timezone +2" + +# Plugin: Rawlog +# Perl modules required: None +# This plugin adds a form in AWStats main page to allow users to see raw +# content of current log files. A filter is also available. +# +{ + my $rawlog = $AWStats{Rawlog}; + if ( defined $rawlog && $rawlog eq "yes" ) { + $OUT = "LoadPlugin=\"rawlog\"\n"; + } +} + +# Plugin: Graph3D +# Perl modules required: None +# Supported charts are built by a nice 3D graphic applet. +# +#LoadPlugin="graph3d" # !!! NOT YET AVAILABLE !!! + + + +#----------------------------------------------------------------------------- +# EXTRA SECTION +#----------------------------------------------------------------------------- + +# WARNING: Extra sections are experimental feature not stable yet !!! + +# You can define your own charts, you choose here what are rows and columns +# keys. This feature is particularly usefull for marketing purpose, tracking +# products orders for example. +# For this, edit all parameters of Extra section. Each set of parameter is a +# different chart. For several charts, duplicate section changing the number. +# Note that each Extra section reduces AWStats speed by 10%. +# +# WARNING: A wrong setup of Extra section can result in a too large arrays +# that will consume all your memory, making AWStats unusable after several +# updates, so be sure to setup it correctly. +# In most cases, you don't need this feature. +# +# ExtraSectionNameX is title of your personalized chart. +# ExtraSectionConditionalX are conditions on URL and/or QUERY_STRING and/or +# REFERER you can use to count or not the hit. Use "|" for "OR". +# ExtraSectionFirstColumnTitleX is the first column title of the chart. +# ExtraSectionFirstColumnValuesX is a Regex string to tell AWStats how to +# extract the value used for first column. Each different value found will +# be a different row. Be sure that list of different values is "limited" to +# avoid "not enough memory" problems ! +# ExtraSectionStatTypesX are things you want to count. You can use standard +# code letters (P for pages,H for hits,B for bandwidth,L for last access). +# MaxNbOfExtraX is maximum number of rows shown in chart. +# MinHitExtraX is minimum number of hits required to be shown in chart. +# + +# Example to report the 20 products the most ordered by "order.cgi" script +#ExtraSectionName1="Product orders" +#ExtraSectionCondition1="URL,/cgi-bin/order.cgi" +#ExtraSectionFirstColumnTitle1="Product ID" +#ExtraSectionFirstColumnValues1="QUERY_STRING,productid=([^&]+)" +#ExtraSectionStatTypes1=PL +#MaxNbOfExtra1=20 +#MinHitExtra1=1 + + + +#----------------------------------------------------------------------------- +# INCLUDES +#----------------------------------------------------------------------------- + +# You can include other config files using the directive with the name of the +# config file (like Apache, so you must keep the '#' before 'include'). +# This is particularly usefull for users who have a lot of virtual servers, so +# a lot of config files and want to maintain common values in only one file. +# Note that when a variable is defined both in a config file and in an +# included file, AWStats will use the last value read. +# + +#include "" + diff --git a/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.ftp.conf/10conf b/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.ftp.conf/10conf new file mode 100644 index 0000000..e6d8962 --- /dev/null +++ b/root/etc/e-smith/templates/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.ftp.conf/10conf @@ -0,0 +1,56 @@ +{ +# ftp : proftpd + use warnings; + use esmith::ConfigDB; + + my $configDB = esmith::ConfigDB->open or die("can't open Config DB"); + my $domain = $configDB->get( 'DomainName' )->value; + my $DNREG = ($domain =~ s|\.|\\.|r); + +$OUT =<open or die("can't open Config DB"); +my $domain = $configDB->get( 'DomainName' )->value; +my $DNREG = ($domain =~ s|\.|\\.|r); + +$OUT =< +# option to delegate single domain viewable at /user-manager +# +# This program is part of the AWstats package for the e-smith Server and Gateway +# +# 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +#---------------------------------------------------------------------- + +package esmith; + +use strict; +use CGI ':all'; +#use CGI::Carp qw(fatalsToBrowser); + +use esmith::cgi; +use esmith::config; +use esmith::util; +use esmith::db; + +sub showInitial ($$); +sub displayStats ($); +sub confAWStats ($); +sub deleteStats ($); +sub performDeleteStats ($); +sub saveConfig ($); + +sub modifyOptions ($$); #authority and options +sub performModifyOptions ($); + +BEGIN +{ + # Clear PATH and related environment variables so that calls to + # external programs do not cause results to be tainted. See + # "perlsec" manual page for details. + + $ENV {'PATH'} = ''; + $ENV {'SHELL'} = '/bin/bash'; + delete $ENV {'ENV'}; +} + +esmith::util::setRealToEffective (); + +$CGI::POST_MAX=1024 * 100; # max 100K posts +$CGI::DISABLE_UPLOADS = 1; # no uploads + +my %conf; +tie %conf, 'esmith::config'; + +my %domains; +tie %domains, 'esmith::config', '/home/e-smith/db/domains'; + +my %accounts; +tie %accounts, 'esmith::config', '/home/e-smith/db/accounts'; + +my $version; +open (IN, "/etc/e-smith/web/panels/manager/cgi-bin/.awstats/version"); +$version = "Version ".." based on AWStats ".; +close (IN); + +#------------------------------------------------------------ +# examine state parameter and display the appropriate form +#------------------------------------------------------------ + +my $q = new CGI; +if ( grep (/^site$/, $q->param)) { + displayStats ($q); +} + +if (! grep (/^state$/, $q->param)) +{ + showInitial ($q, ''); +} + +elsif ($q->param ('state') eq 'displaystats' ) +{ + displayStats ($q); +} + +elsif ($q->param ('state') eq 'confawstats' ) +{ + confAWStats ($q); +} + +elsif ($q->param ('state') eq "delete") +{ + deleteStats ($q); +} + +elsif ($q->param ('state') eq "performDelete") +{ + performDeleteStats ($q); +} + +elsif ($q->param ('state') eq 'saveconfig' ) +{ + saveConfig ($q); +} + +elsif ($q->param ('state') eq "modifyOptions") +{ + modifyOptions ($q, ''); +} + +elsif ($q->param ('state') eq "performModifyOptions") +{ + performModifyOptions ($q); +} + +else +{ + esmith::cgi::genStateError ($q, \%conf); +} + +exit (0); + +#------------------------------------------------------------ +# subroutine to display initial form +#------------------------------------------------------------ + +sub showInitial ($$) +{ + my ($q, $msg) = @_; + my $domain; + my %Stats; + my $dirdata="/home/e-smith/files/users/admin/home/awstats"; + + #------------------------------------------------------------ + # db init + #------------------------------------------------------------ + if (not defined db_get(\%conf, "AWStats")) { + my %default_db=( + 'status' => 'disabled', + 'Debug' => 'no', + ); + db_set(\%conf, "AWStats","service",\%default_db); + } + + #------------------------------------------------------------ + # If there's a message, we just finished an operation so show the + # status report. If no message, this is a new list of domains. + #------------------------------------------------------------ + + if ($msg eq '') { + esmith::cgi::genHeaderNonCacheable + ($q, \%conf, 'Show or Configure Web Statistics '); + } else { + esmith::cgi::genHeaderNonCacheable + ($q, \%conf, 'Operation status report'); + + print $q->p ($msg); + print $q->hr; + } + + # find domains that this user can edit, store in @mydom + my $acctName = $ENV{'REMOTE_USER'}; + my $owner = ''; + + my @mydom = (); + my @alldom = (); + + if ($acctName ne 'admin') + { + #A. user must be set as owner + #1. include all virtual domains + primary + foreach (keys %domains) + { + push (@alldom, $_) + if (db_get_type(\%domains, $_) eq "domain"); + } + + #2. only retain this users domains + foreach my $vd (@alldom) + { + if ($vd eq db_get(\%conf, 'DomainName')) + { + $owner = db_get_prop(\%conf, "AWStats", "owner") || 'admin'; + } + else + { + $owner = db_get_prop(\%domains, $vd, "owner") || 'admin'; + } + + #is owner a group ? + my $userlist = db_get_prop(\%accounts, $owner, 'Members') || 'notgroup'; + if ($userlist eq 'notgroup') + { + #then is it a user or everyone ? + if (($owner eq $acctName) || ($owner eq 'everyone')) + { + push (@mydom, $vd); + } + } + else + { + #it is a group + my @selected = split (/,/, $userlist); + foreach my $grpmem (@selected) + { + if ($grpmem eq $acctName) + { + push (@mydom, $vd); + } + } + } + } + } + else + { + #B. admin gets all domains + foreach (keys %domains) + { + push (@mydom, $_) + if (db_get_type(\%domains, $_) eq "domain"); + } + } + + + print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + + my $mydom = @mydom; + if ($mydom == 0) + { + print $q->p ($q->b ("There are no domains in the system delegated to $acctName.")); + } + else + { + if ($acctName eq 'admin') + { + print $q->p ($q->a ({href => $q->url (-absolute => 1) . "?state=confawstats"}, + 'Click here'), + 'to configure AWStats.'); + } + + if (db_get_prop(\%conf, "AWStats", "status") ne "enabled") + { + print $q->h4 (' AWStats is disabled!'); + if ($acctName eq 'admin' and (db_get_prop(\%conf, "AWStats", "mailstatus") || 'disabled') eq 'enabled') { + print "
No WEB stats but MAIL stats are available -> "; + print $q->a ({ href => ".awstats/awstats.pl?config=mail&lang=auto" }, 'Here...'); + print "
"; + } + if ($acctName eq 'admin' and (db_get_prop(\%conf, "AWStats", "ftpstatus") || 'disabled') eq 'enabled') { + print "
No WEB stats but FTP stats are available -> "; + print $q->a ({ href => ".awstats/awstats.pl?config=ftp&lang=auto" }, 'Here...'); + print "
"; + } + } + else + { + print $q->h4 ("List of Domains viewable by $acctName"); + + print "Note: A Domain is not shown in the list below until after midnight on the day
". + "statistics are available. To force the display sooner, browse to the website to
". + "create some stats, then resave awstats settings.
"; + + print ""; + + if ($acctName eq 'admin') + { + print $q->Tr (esmith::cgi::genSmallCell ($q, $q->b ('Domain')), + esmith::cgi::genSmallCell ($q, $q->b ('Description')), + esmith::cgi::genSmallCell ($q, $q->b ('Content')), + esmith::cgi::genSmallCell ($q, $q->b ('AWStats')), + esmith::cgi::genSmallCell ($q, $q->b ('State')), + esmith::cgi::genSmallCell ($q, $q->b ('Delegation'))); + } else { + print $q->Tr (esmith::cgi::genSmallCell ($q, $q->b ('Domain')), + esmith::cgi::genSmallCell ($q, $q->b ('Description')), + esmith::cgi::genSmallCell ($q, $q->b ('Content')), + esmith::cgi::genSmallCell ($q, $q->b ('AWStats')), + esmith::cgi::genSmallCell ($q, $q->b ('State'))); + } + + # build a list of domains for which a AWStats history is available + opendir (DIR, "$dirdata") or die "Could not open directory $dirdata\n"; + while (defined($domain=readdir(DIR))) + { + next if $domain=~ /^\.\.?$/ or not -d "$dirdata/$domain"; + $Stats{$domain}="empty"; + opendir (SUBDIR, "$dirdata/$domain") or die "Could not open directory $dirdata/$domain\n"; + while (defined(my $stat=readdir(SUBDIR))) + { + next if $stat=~ /^\.\.?$/ or -z "$dirdata/$domain/$stat"; + $Stats{$domain}="ok"; + last; + } + closedir (SUBDIR); + + } + closedir (DIR); + + foreach $domain (reverse sort keys %Stats) + { + my ($d, $value,$content,$active, $description, $type, %properties); + my $d2 = $d; + ($d=$domain)=~s/(?:(?:www\.)|(?:secure\.))(.*)/$1/; + $value = $domains {$d}; + $active=1; + if (defined $value) { + ($type, %properties) = split (/\|/, $value, -1); + if ($properties{'Content'} eq 'wwwpublic') { + $content = "primary site"; + } else { + $content = $properties{'Content'} . " i-bay"; + } + $description=$properties{'Description'}; + } else { + if ($d eq db_get(\%conf, "DomainName")) { + $content="primary site"; + $description="primary site"; + } else { + $active=0; + $content="unkown"; + $description="unkown"; + } + } + + #show matches for this user + foreach (@mydom) + { + #=domain name so skip ?? + if ($_ eq $d) + { + #admin see all + if ($acctName eq 'admin') + { + #set owner + if ($_ eq db_get(\%conf, 'DomainName')) + { + $owner = db_get_prop(\%conf, "AWStats", "owner") || 'admin'; + } else { + $owner = db_get_prop(\%domains, $_, "owner") || 'admin'; + } + my $desc = db_get_prop(\%domains, $_, "Description") || ''; + my $cont = db_get_prop(\%domains, $_, "Content") || ''; + + print $q->Tr (esmith::cgi::genSmallCell ($q, $_), + esmith::cgi::genSmallCell ($q, $desc), + esmith::cgi::genSmallCell ($q, $cont), + esmith::cgi::genSmallCell ($q, + $Stats{$domain} eq "ok" + ? $q->a ({href => ".awstats/awstats.pl" + . "?config=" . $_ + . "&lang=" . db_get_prop(\%conf, "AWStats", "Language")}, + 'Show...') + : 'empty'), + esmith::cgi::genSmallCell ($q, + !$active + ? $q->a ({href => $q->url (-absolute => 1) + . "?state=delete&domain=" . $_ }, + 'Delete...') + : 'active', + ), + esmith::cgi::genSmallCell ($q, + $q->a ({href => $q->url (-absolute => 1) + . "?state=modifyOptions&d=" + . $_}, $owner))); + } else { + print $q->Tr (esmith::cgi::genSmallCell ($q, $domain), + esmith::cgi::genSmallCell ($q, $description), + esmith::cgi::genSmallCell ($q, $content), + esmith::cgi::genSmallCell ($q, + $Stats{$domain} eq "ok" + ? $q->a ({href => ".awstats/awstats.pl" + . "?config=" . $domain + . "&lang=" . db_get_prop(\%conf, "AWStats", "Language")}, + 'Show...') + : 'empty'), + esmith::cgi::genSmallCell ($q, + !$active + ? $q->a ({href => $q->url (-absolute => 1) + . "?state=delete&domain=" . $domain }, + 'Delete...') + : 'active', + )); + } + }# + } + } + + + +# add to see mail stats + if ($acctName eq 'admin' and (db_get_prop(\%conf, "AWStats", "mailstatus") || 'disabled') eq 'enabled') { + print $q->Tr (esmith::cgi::genSmallCell ($q, "mail"), + esmith::cgi::genSmallCell ($q, "qmail stats"), + esmith::cgi::genSmallCell ($q, " "), + esmith::cgi::genSmallCell ($q, + $q->a ({href => ".awstats/awstats.pl" + . "?config=mail" + . "&lang=" . db_get_prop(\%conf, "AWStats", "Language")}, + 'Show...')), + esmith::cgi::genSmallCell ($q,'active'), + esmith::cgi::genSmallCell ($q,' ') + ); + } + + +# add to see ftp stats + if ($acctName eq 'admin' and (db_get_prop(\%conf, "AWStats", "ftpstatus") || 'disabled') eq 'enabled') { + print $q->Tr (esmith::cgi::genSmallCell ($q, "ftp"), + esmith::cgi::genSmallCell ($q, "proftpd stats"), + esmith::cgi::genSmallCell ($q, " "), + esmith::cgi::genSmallCell ($q, + $q->a ({href => ".awstats/awstats.pl" + . "?config=ftp" + . "&lang=" . db_get_prop(\%conf, "AWStats", "Language")}, + 'Show...')), + esmith::cgi::genSmallCell ($q,'active'), + esmith::cgi::genSmallCell ($q,' ') + ); + } + + }#awstats is enabled + print '
'; + + print "
No statistics available.
" if not %Stats; + + if (open (ST, "/var/log/httpd/awstats_lr")) + { + print "
" . . ""; + close (ST); + } + + } + #mydom>0 + + + neddixFooter ($q); +} + +sub displayStats ($) +{ + my ($q) = @_; + my $dirdata="/home/e-smith/files/users/admin/home/awstats"; + my $site=$q->param('site'); + $site=~s/.*//; + $site=$1; + + system ("/etc/awstats/awstats.pl -h $site"); + + neddixFooter ($q); +} + +sub confAWStats ($) +{ + my ($q) = @_; + my $Freq=db_get_prop(\%conf, "AWStats", "Freq"); + $Freq="5m" if not defined $Freq; + + my $SkipLocalIP=db_get_prop(\%conf, "AWStats", "SkipLocalIP"); + $SkipLocalIP="yes" if not defined $SkipLocalIP or $SkipLocalIP ne "no"; # in Beta1 SkipLocalIP="mask" was possible + my $SkipExternalIP=db_get_prop(\%conf, "AWStats", "SkipExternalIP"); + $SkipExternalIP="yes" if not defined $SkipExternalIP; + my $SkipLocalNetworks=db_get_prop(\%conf, "AWStats", "SkipLocalNetworks"); + $SkipLocalNetworks="no" if not defined $SkipLocalNetworks; + + my $UseFramesWhenCGI=db_get_prop(\%conf, "AWStats", "UseFramesWhenCGI") || "no"; + my $Language=db_get_prop(\%conf, "AWStats", "Language"); +# $Language=0 if not defined $Language; + $Language='auto' if not defined $Language; + + my $Hostinfo=db_get_prop(\%conf, "AWStats", "Hostinfo"); + my $Rawlog=db_get_prop(\%conf, "AWStats", "Rawlog"); + + my $BarSize=db_get_prop(\%conf, "AWStats", "BarSize"); + $BarSize="medium" if not defined $BarSize; + + my $MaxNbOfDomain = db_get_prop(\%conf, "AWStats", "MaxNbOfDomain"); + $MaxNbOfDomain=50 if not defined $MaxNbOfDomain; + + my $MaxNbOfHostsShown = db_get_prop(\%conf, "AWStats", "MaxNbOfHostsShown"); + $MaxNbOfHostsShown=100 if not defined $MaxNbOfHostsShown; + my $MinHitHost = db_get_prop(\%conf, "AWStats", "MinHitHost"); + $MinHitHost=1 if not defined $MinHitHost; + + my $MaxNbOfPageShown = db_get_prop(\%conf, "AWStats", "MaxNbOfPageShown"); + $MaxNbOfPageShown=200 if not defined $MaxNbOfPageShown; + my $MinHitFile = db_get_prop(\%conf, "AWStats", "MinHitFile"); + $MinHitFile=1 if not defined $MinHitFile; + + my $MaxNbOfRobotShown = db_get_prop(\%conf, "AWStats", "MaxNbOfRobotShown"); + $MaxNbOfRobotShown=25 if not defined $MaxNbOfRobotShown; + my $MinHitRobot = db_get_prop(\%conf, "AWStats", "MinHitRobot"); + $MinHitRobot=1 if not defined $MinHitRobot; + + my $MaxNbOfRefererShown = db_get_prop(\%conf, "AWStats", "MaxNbOfRefererShown"); + $MaxNbOfRefererShown=50 if not defined $MaxNbOfRefererShown; + my $MinHitRefer = db_get_prop(\%conf, "AWStats", "MinHitRefer"); + $MinHitRefer=1 if not defined $MinHitRefer; + + my $MaxNbOfKeywordsShown = db_get_prop(\%conf, "AWStats", "MaxNbOfKeywordsShown"); + $MaxNbOfKeywordsShown=50 if not defined $MaxNbOfKeywordsShown; + my $MinHitKeyword = db_get_prop(\%conf, "AWStats", "MinHitKeyword"); + $MinHitKeyword=1 if not defined $MinHitKeyword; + + + my @status=('disabled','enabled'); + my %noyes = ('no' => 'No', + 'yes' => 'Yes'); + my %ipskip = ('no' => 'No', + 'yes' => 'Yes, external IP', + 'mask' => 'Yes, external IP/Netmask'); + + my %langlables = ('auto' => 'Auto Detect', + 'en' => 'English', + 'fr' => 'French', + 'nl' => 'Dutch', + 'es' => 'Spanish', + 'it' => 'Italian', + 'de' => 'German', + 'pl' => 'Polish', + 'gr' => 'Greek', + 'cz' => 'Czech', + 'pt' => 'Portuguese'); + + my %freqlables = ('5m' => '5 minutes', + '10m' => '10 minutes', + '15m' => '15 minutes', + '30m' => '30 minutes', + '1h' => '1 hour', + '2h' => '2 hours', + '4h' => '4 hours', + '8h' => '8 hours', + '12h' => '12 hours'); + + esmith::cgi::genHeaderNonCacheable ($q, \%conf, 'Configure AWStats'.$version); + + print $q->startform (-method => 'POST', + -action => $q->url (-absolute => 1)); + + print $q->table ({border => 0, cellspacing => 0, cellpadding => 0}, + + # enable/disable + # + esmith::cgi::genWidgetRow ($q, + "AWStats status", + $q->popup_menu (-name => 'status', + -default => db_get_prop(\%conf, "AWStats", "status"), + -values => \@status)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + esmith::cgi::genWidgetRow ($q, "Launch frequency", + $q->popup_menu (-name => 'Freq', + -values => ['5m','10m','15m','30m','1h','2h','4h','8h','12h'], + -default => $Freq, + -labels => \%freqlables)), + + esmith::cgi::genTextRow($q, $q->p(' ')), + + # skip local IP + # + esmith::cgi::genWidgetRow ($q, + "Ignore hits from your local network", + $q->popup_menu (-name => 'skiplocalip', + -values => ['no','yes'], + -default => $SkipLocalIP, + -labels => \%noyes)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + # skip external IP + # + esmith::cgi::genWidgetRow ($q, + "Ignore hits from your external IP or network", + $q->popup_menu (-name => 'skipexternalip', + -values => ['no','yes','mask'], + -default => $SkipExternalIP, + -labels => \%ipskip)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + # skip external networks + # + esmith::cgi::genWidgetRow ($q, + "Ignore hits from local networks as
defined in the 'Local networks' panel", + $q->popup_menu (-name => 'skiplocalnets', + -values => ['no','yes'], + -default => $SkipLocalNetworks, + -labels => \%noyes)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + # UseFramesWhenCGI + # + esmith::cgi::genWidgetRow ($q, + "Show report in HTML frames", + $q->popup_menu (-name => 'UseFramesWhenCGI', + -values => ['no','yes'], + -default => $UseFramesWhenCGI, + -labels => \%noyes)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + + # default language + # + esmith::cgi::genWidgetRow ($q, "Default language", + $q->popup_menu (-name => 'Language', + -values => ['auto','en','fr','es','it','de','pl','gr','cz','pt'], + -default => $Language, + -labels => \%langlables)), + + esmith::cgi::genTextRow($q, $q->p(' ')), + + # hostinfo plugin + # disbled by default as it requires perl-Net-XWhois-0.90-1.0.rh7.dag.noarch.rpm or similar + # to enable + # /sbin/e-smith/db configuration setprop AWStats Hostinfo yes + # and install perl-Net-XWhois rpm + # + #esmith::cgi::genWidgetRow ($q, + # "Enable plugin 'Hostinfo'", + # $q->popup_menu (-name => 'Hostinfo', + # -values => ['no','yes'], + # -default => $Hostinfo, + # -labels => \%noyes)), + #esmith::cgi::genTextRow($q, $q->p(' ')), + + # hostinfo rawlog + # + esmith::cgi::genWidgetRow ($q, + "Enable plugin 'Rawlog'", + $q->popup_menu (-name => 'Rawlog', + -values => ['no','yes'], + -default => $Rawlog, + -labels => \%noyes)), + esmith::cgi::genTextRow($q, $q->p(' ')), + + + # + # + esmith::cgi::genCell ($q, "Max. number of domains shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfDomain', + -override => 1, + -default => $MaxNbOfDomain, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p(' ')), + esmith::cgi::genCell ($q, "Max. number of hosts shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfHostsShown', + -override => 1, + -default => $MaxNbOfHostsShown, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p('')), + esmith::cgi::genCell ($q, "Only show hosts with at least"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MinHitHost', + -override => 1, + -default => $MinHitHost, + -maxlength => 5, + -size => 6)." hits"), + + esmith::cgi::genTextRow($q, $q->p(' ')), + esmith::cgi::genCell ($q, "Max. number of pages shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfPageShown', + -override => 1, + -default => $MaxNbOfPageShown, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p('')), + esmith::cgi::genCell ($q, "Only show pages with at least"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MinHitFile', + -override => 1, + -default => $MinHitFile, + -maxlength => 5, + -size => 6)." hits"), + + esmith::cgi::genTextRow($q, $q->p(' ')), + esmith::cgi::genCell ($q, "Max. number of robots shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfRobotShown', + -override => 1, + -default => $MaxNbOfRobotShown, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p('')), + esmith::cgi::genCell ($q, "Only show robots with at least"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MinHitRobot', + -override => 1, + -default => $MinHitRobot, + -maxlength => 5, + -size => 6)." hits"), + + esmith::cgi::genTextRow($q, $q->p(' ')), + esmith::cgi::genCell ($q, "Max. number of referrers shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfRefererShown', + -override => 1, + -default => $MaxNbOfRefererShown, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p('')), + esmith::cgi::genCell ($q, "Only show referrers with at least"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MinHitRefer', + -override => 1, + -default => $MinHitRefer, + -maxlength => 5, + -size => 6)." hits"), + + esmith::cgi::genTextRow($q, $q->p(' ')), + esmith::cgi::genCell ($q, "Max. number of keywords shown:"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MaxNbOfKeywordsShown', + -override => 1, + -default => $MaxNbOfKeywordsShown, + -maxlength => 5, + -size => 6)), + + esmith::cgi::genTextRow($q, $q->p('')), + esmith::cgi::genCell ($q, "Only show keywords with at least"), + esmith::cgi::genCell ($q, $q->textfield (-name => 'MinHitKeyword', + -override => 1, + -default => $MinHitKeyword, + -maxlength => 5, + -size => 6)." hits"), + + esmith::cgi::genTextRow($q, $q->p(' ')), + + # bar size + # + esmith::cgi::genWidgetRow ($q, "Graphics bar size", + $q->popup_menu (-name => 'BarSize', + -values => ['small','medium','large'], + -default => $BarSize)), + + esmith::cgi::genTextRow($q, $q->p(' ')), + + esmith::cgi::genButtonRow ($q, + $q->submit (-name => 'action', + -value => 'Save settings')), + + $q->hidden (-name => 'state', + -override => 1, + -default => 'saveconfig'), + + ); + + neddixFooter ($q); +} + +sub saveConfig ($) +{ + my ($q) = @_; + my $status=$q->param('status'); + my $Freq=$q->param('Freq'); + my $skiplocalip=$q->param('skiplocalip'); + my $skipexternalip=$q->param('skipexternalip'); + my $skiplocalnets=$q->param('skiplocalnets'); + + my $UseFramesWhenCGI=$q->param('UseFramesWhenCGI'); + my $Language=$q->param('Language'); + my $Hostinfo=$q->param('Hostinfo'); + my $Rawlog=$q->param('Rawlog'); + my $MaxNbOfDomain=$q->param('MaxNbOfDomain'); + $MaxNbOfDomain=1 if $MaxNbOfDomain<1; + my $MaxNbOfHostsShown=$q->param('MaxNbOfHostsShown'); + $MaxNbOfHostsShown=1 if $MaxNbOfHostsShown<1; + my $MinHitHost=$q->param('MinHitHost'); + $MinHitHost=1 if $MinHitHost<1; + my $MaxNbOfPageShown=$q->param('MaxNbOfPageShown'); + $MaxNbOfPageShown=1 if $MaxNbOfPageShown<1; + my $MinHitFile=$q->param('MinHitFile'); + $MinHitFile=1 if $MinHitFile<1; + my $MaxNbOfRobotShown=$q->param('MaxNbOfRobotShown'); + $MaxNbOfRobotShown=1 if $MaxNbOfRobotShown<1; + my $MinHitRobot=$q->param('MinHitRobot'); + $MinHitRobot=1 if $MinHitRobot<1; + my $MaxNbOfRefererShown=$q->param('MaxNbOfRefererShown'); + $MaxNbOfRefererShown=1 if $MaxNbOfRefererShown<1; + my $MinHitRefer=$q->param('MinHitRefer'); + $MinHitRefer=1 if $MinHitRefer<1; + my $MaxNbOfKeywordsShown=$q->param('MaxNbOfKeywordsShown'); + $MaxNbOfKeywordsShown=1 if $MaxNbOfKeywordsShown<1; + my $MinHitKeyword=$q->param('MinHitKeyword'); + $MinHitKeyword=1 if $MinHitKeyword<1; + my $BarSize=$q->param('BarSize'); + + db_set_prop(\%conf, "AWStats", "status",$status); + db_set_prop(\%conf, "AWStats", "Freq",$Freq); + db_set_prop(\%conf, "AWStats", "SkipLocalIP",$skiplocalip); + db_set_prop(\%conf, "AWStats", "SkipExternalIP",$skipexternalip); + db_set_prop(\%conf, "AWStats", "SkipLocalNetworks",$skiplocalnets); + db_set_prop(\%conf, "AWStats", "UseFramesWhenCGI",$UseFramesWhenCGI); + db_set_prop(\%conf, "AWStats", "Language",$Language); + #db_set_prop(\%conf, "AWStats", "Hostinfo",$Hostinfo); + db_set_prop(\%conf, "AWStats", "Rawlog",$Rawlog); + db_set_prop(\%conf, "AWStats", "MaxNbOfDomain",$MaxNbOfDomain); + db_set_prop(\%conf, "AWStats", "MaxNbOfHostsShown",$MaxNbOfHostsShown); + db_set_prop(\%conf, "AWStats", "MinHitHost",$MinHitHost); + db_set_prop(\%conf, "AWStats", "MaxNbOfPageShown",$MaxNbOfPageShown); + db_set_prop(\%conf, "AWStats", "MinHitFile",$MinHitFile); + db_set_prop(\%conf, "AWStats", "MaxNbOfRobotShown",$MaxNbOfRobotShown); + db_set_prop(\%conf, "AWStats", "MinHitRobot",$MinHitRobot); + db_set_prop(\%conf, "AWStats", "MaxNbOfRefererShown",$MaxNbOfRefererShown); + db_set_prop(\%conf, "AWStats", "MinHitRefer",$MinHitRefer); + db_set_prop(\%conf, "AWStats", "MaxNbOfKeywordsShown",$MaxNbOfKeywordsShown); + db_set_prop(\%conf, "AWStats", "MinHitKeyword",$MinHitKeyword); + db_set_prop(\%conf, "AWStats", "BarSize",$BarSize); + + system ("/sbin/e-smith/signal-event awstats-update &"); + sleep (2); + showInitial ($q, + 'Configuration has been saved.
' . + 'Please note, that changed ignore-rules will only effect processing of future logs.
'); + + return; +} + +sub deleteStats ($) +{ + my ($q) = @_; + + esmith::cgi::genHeaderNonCacheable ($q, \%conf, 'Delete statistics'); + + print $q->startform + (-method => 'POST', -action => $q->url (-absolute => 1)); + + my $domain = $q->param ('domain'); + + + print $q->p ('You are about to delete the statistics for domain "' . $domain . '"'); + + print $q->p ($q->b ('Are you sure you wish to delete these statistics?')); + + print $q->submit (-name => 'action', -value => 'Remove'); + print $q->hidden (-name => 'domain', -override => 1, -default => $domain); + + print $q->hidden (-name => 'state', + -override => 1, + -default => 'performDelete'); + + print $q->endform; + esmith::cgi::genFooter ($q); + return; +} + +sub performDeleteStats ($) +{ + my ($q) = @_; + my $domain = $q->param ('domain'); + my $dirdata="/home/e-smith/files/users/admin/home/awstats"; + opendir (DIR, "$dirdata/$domain") or die "Could not open directory $dirdata/$domain\n"; + while (defined(my $file=readdir(DIR))) { + next if $file =~ /^\./; + $file="$dirdata/$domain/$file"; + $file=~ s/(.*)//; + unlink($1) or die "Could not delete $1\n"; + } + closedir (DIR); + my $dir="$dirdata/$domain"; + $dir =~ s/(.*)//; + rmdir($1) or die "Could not delete $1\n"; + showInitial ($q, "Successfully deleted statistics of domain \"$domain\"."); +} + + +sub neddixFooter ($) +{ + my ($q) = @_; + + print $q->p ($q->hr, $q->font ({size => "-1"}, + "
Copyright neddix.de, Stuttgart
" ) + ); + + print ''; + print ''; + print $q->end_html; +} +sub dungogFooter ($) +{ + my ($q) = @_; + + print $q->p ($q->hr, $q->font ({size => "-1"}, + "
dungog.net
" ) + ); + + print ''; + print ''; + print $q->end_html; +} + +#options +sub modifyOptions ($$) +{ + my ($q, $msg) = @_; + my $domain = $q->param ('d'); + my $owner = ''; + + if ($msg eq '') + { + esmith::cgi::genHeaderNonCacheable + ($q, \%conf, "Modify domain - Options"); + } + else + { + esmith::cgi::genHeaderNonCacheable + ($q, \%conf, 'Modify domain - Options.'); + + print $q->h4 ('Operation status report'); + print $q->p ($msg); + print $q->hr; + } + + print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + + # find system users + my @userlist = ('admin','everyone'); + push (@userlist, '-- groups --'); + foreach (sort keys %accounts) + { + push (@userlist, $_) + if (db_get_type(\%accounts, $_) eq 'group'); + } + push (@userlist, '-- users --'); + foreach (sort keys %accounts) + { + push (@userlist, $_) + if (db_get_type(\%accounts, $_) eq 'user'); + } + + if ($domain eq db_get(\%conf, 'DomainName')) + { + $owner = db_get_prop(\%conf, "AWStats", "owner") || 'admin'; + } + else + { + $owner = db_get_prop(\%domains, $domain, "owner") || 'admin'; + } + + print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, + + $q->Tr (esmith::cgi::genCell ($q, "Domain name:"), + esmith::cgi::genCell ($q, $domain)), + + esmith::cgi::genWidgetRow ($q, "This user or users may view $domain awstats at /user-manager", + $q->popup_menu (-name => "owner", + -values => [ @userlist ], + -default => $owner)), + + esmith::cgi::genButtonRow ($q, + $q->submit (-name => 'action', + -value => 'Modify'))); + + print $q->hidden (-name => 'domain', -override => 1, -default => $domain); + print $q->hidden (-name => 'state', -override => 1, -default => 'performModifyOptions'); + + dungogFooter ($q); +} + +sub performModifyOptions ($) +{ + my ($q) = @_; + + my $domain = $q->param ('domain'); + my $owner = $q->param ('owner'); + + #------------------------------------------------------------ + # Validate parameters and untaint them + #------------------------------------------------------------ + + unless (exists $accounts {$owner}) + { + modifyOptions ($q, "Error: account \"$owner\" is not an existing account."); + return; + } + + #------------------------------------------------------------ + # Update domain database + #------------------------------------------------------------ + + if ($domain eq db_get(\%conf, 'DomainName')) + { + db_set_prop(\%conf, "AWStats", "owner", $owner); + } + else + { + db_set_prop(\%domains, $domain, 'owner', $owner); + } + + showInitial ($q, "Successfully modified Options for domain $domain."); +} + diff --git a/root/etc/e-smith/web/panels/manager/cgi-bin/.awstats/qmail-preprocessor.sh b/root/etc/e-smith/web/panels/manager/cgi-bin/.awstats/qmail-preprocessor.sh new file mode 100644 index 0000000..22b79ba --- /dev/null +++ b/root/etc/e-smith/web/panels/manager/cgi-bin/.awstats/qmail-preprocessor.sh @@ -0,0 +1,14 @@ +#!/bin/bash + +# Qmail logfile preprocessor + +/usr/bin/test $(/bin/ls -l /var/log/qmail/*.s 2>/dev/null | grep -v "^l" | wc -l) -eq 0 && /bin/touch /var/log/qmail/awstats_dummy.s +RR=$(/bin/ls -t /var/log/qmail/*.s|/usr/bin/head -n 1) +RR=$(/bin/basename $RR) +/usr/bin/test ! -f /var/log/qmail/.recent-rotated && SRC="/var/log/qmail/*.s" && echo $RR > /var/log/qmail/.recent-rotated +LR=$(/bin/cat /var/log/qmail/.recent-rotated) +echo "RR: $RR LR: $LR" +/usr/bin/test "$LR" != "$RR" && SRC="/var/log/qmail/$RR" && echo $RR > /var/log/qmail/.recent-rotated +/bin/cat $SRC /var/log/qmail/current | /usr/local/bin/tai64nlocal | /usr/bin/perl /usr/share/awstats/tools/maillogconvert.pl standard | /bin/grep -v ' alias-localdelivery-' +/bin/rm -f /var/log/qmail/awstats_dummy.s + diff --git a/root/etc/yum/post-actions/awstats.action b/root/etc/yum/post-actions/awstats.action new file mode 100644 index 0000000..5951304 --- /dev/null +++ b/root/etc/yum/post-actions/awstats.action @@ -0,0 +1,2 @@ +awstats:install:/etc/e-smith/events/actions/awstats-upgrade +awstats:update:/etc/e-smith/events/actions/awstats-upgrade diff --git a/root/sbin/e-smith/awstats-pp b/root/sbin/e-smith/awstats-pp new file mode 100644 index 0000000..21363ba --- /dev/null +++ b/root/sbin/e-smith/awstats-pp @@ -0,0 +1,284 @@ +#!/usr/bin/perl -w + +# copyright (C) 2001 neddix, stuttgart +# +# 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# +# This program is part of the AWstats package for the e-smith Server and Gateway +# + +use strict; +use Symbol; +use esmith::config; +use esmith::util; +use esmith::db; + +sub fileinfo($); +sub write_runstat ($); +sub cleanup(); + +my $start_time=time(); +my $httpdlog="/var/log/httpd"; +my $awconfpath="/etc/e-smith/web/panels/manager/cgi-bin/.awstats"; +my $awconf="$awconfpath/awstats.conf"; +my $dirdata="/home/e-smith/files/users/admin/home/awstats"; +my $lock="/var/lock/awstats"; +my $logrotate_detected=0; +my $readlines=0; +my ($silent, $debug, $novoid); +(undef,undef,my $admin_uid)=getpwnam('admin'); +(undef,undef,my $root_gid)=getgrnam('root'); + +my %conf; +tie %conf, 'esmith::config'; + +my $status=db_get_prop(\%conf, "AWStats", "status"); +exit (0) if not defined $status || $status ne "enabled"; +$debug=((db_get_prop(\%conf, "AWStats", "Debug") ||"no") eq "yes"); + +# primitive command line options parsing +foreach (@ARGV) { + $silent=1 if /-s/; + $debug=1 if /-d/; # enter debug mode + $novoid=1 if /-n/; # stop execution, if no new logs available + if (/^-c/) { + ($awconf=$_) =~ s/^-c//; + } +} + +print "using configuration file $awconf\n" if $debug; + + +# check lock +if (-f "$lock") { + open (LCK, "$lock"); + print "Another instance of AWStats is already running at pid=".." \n" if $debug or not $silent; + close (LCK); + exit(1); +} + +$SIG{TERM}='cleanup'; +$SIG{KILL}='cleanup'; +$SIG{INT}='cleanup'; +END{cleanup()}; + +# set lock +open (LCK, ">$lock") or die "Could not create $lock\n"; +print LCK "$$"; +print "Set lock. pid=$$\n" if $debug; +close (LCK); + +write_runstat ("Currently running. Please be patient. (pid=$$)"); + +my $log="$httpdlog/access_log"; +my $log_1="$httpdlog/access_log.1"; +my $cur_log; # filename of the current logfile +my $awpos="$httpdlog/awstats_pos"; +my (@fstat_cur, @fstat_log, @fstat_log_1); # file status information of log files + +die "Fatal error: Apache logfile $log not found\nIs Apache running?\n" if not -f $log; + +# read file status information +@fstat_log=fileinfo("$log"); # current apache log file +@fstat_log_1=fileinfo("$log_1"); # logrotated apache log file + +# read current log file information +if (-f "$awpos") { + open (AWPOS,"$awpos") or die "Could not open file $awpos\n"; + chomp($_=); + @fstat_cur = split (":"); + close (AWPOS); +} else { + @fstat_cur=@fstat_log; # use current log file + $fstat_cur[2]=-1; # size + print "$awpos not found.\n" if $debug; +} + +# check if information from $awpos is outdated: +# dev/inode pair must point to an Apache logfile +if ( ($fstat_cur[0]!=$fstat_log[0] || $fstat_cur[1]!=$fstat_log[1]) && + ($fstat_cur[0]!=$fstat_log_1[0] || $fstat_cur[1]!=$fstat_log_1[1]) ) { + @fstat_cur=@fstat_log; # use current log file + $fstat_cur[2]=-1; # size +} + +# find the filename and write size of logfile to current fstat +if ($fstat_cur[0]==$fstat_log[0] && $fstat_cur[1]==$fstat_log[1]) { + $cur_log=$log; # use current Apache log + $fstat_cur[2]=$fstat_log[2]; +} elsif ($fstat_cur[0]==$fstat_log_1[0] && $fstat_cur[1]==$fstat_log_1[1]) { + $cur_log=$log_1; # use logrotated Apache log + $fstat_cur[2]=$fstat_log_1[2]; + $logrotate_detected=1; # Flag: remove $awpos at exit +} else { + die "Fatal error: No Apache logfile found.\nIs Apache running?\n"; +} + +print "fstat=$fstat_cur[0]:$fstat_cur[1]:$fstat_cur[2]:$fstat_cur[3]\n" if $debug; +print "Current log filename: $cur_log\n" if $debug; +print "logrotated: " . ($logrotate_detected==1 ? "yes\n" : "no\n") if $debug; + +mkdir ("$dirdata"); + +# check if anybody played with dirdata permissions, i.e. e-smith upgrade +{ + (undef,undef,my $mode,undef,my $uid,my $gid)=stat($dirdata); + if (($mode &= 0777) != 0770 || $uid != $admin_uid || $gid != $root_gid) { + print "setting recursivly correct permissions for $dirdata\n" if $debug; + my @list=<$dirdata $dirdata/* $dirdata/*/*>; + chown ($admin_uid, $root_gid, @list); + chmod (0770, $root_gid, @list); + } +} + +if ($fstat_cur[2]==$fstat_cur[3] && $novoid) { + print "Nix zu tun.\n" if $debug; + exit(0); +} + +my $key; +my $value; +my %Domains; + +# split main log into log for each domain +mkdir ("$httpdlog/awstats"); +open (LOG, "$cur_log") or die "Could not open $cur_log\n"; +seek (LOG, $fstat_cur[3], 0) or die "seek failed\n"; +while () { + my $line=$_; + $line=~s/(^.*?) (.*)/$2/; + my $key=$1; + if (not defined $Domains{$key}) { + $Domains{$key}=gensym(); + open ($Domains{$key}, ">$httpdlog/awstats/$key") or die "Could not open $httpdlog/awstats/$key\n"; + } + # write in Apaches combined log format + print {$Domains{$key}} $line; + $readlines++; +} +print " startoffset=$fstat_cur[3]\n" if $debug; +$fstat_cur[3]=tell(LOG); # save the file offset +print " endoffset=$fstat_cur[3]\n" if $debug; +print " read $readlines lines\n" if $debug; +close (LOG); + +# close log files for virt domains +while (($key,$value) = each %Domains) { + + close ($Domains{$key}); +} + +# generate domain specific conf files for both +# newly scanned and historical ones +# must be done every run, since they could be deleted +# or default config might have been modified +my %ConfDomains=%Domains; +opendir (DIR, "$dirdata"); +while (defined (my $d=readdir(DIR))) { + next if $d =~ /^\.\.?$/; + $ConfDomains{$d}=gensym() if not defined $ConfDomains{$d}; +} +closedir (DIR); +while (($key,$value) = each %ConfDomains) { + # read default config file (built by using e-smith template mechanism) + open ($ConfDomains{$key}, ">$awconfpath/awstats.$key.conf") or die "Could not open $awconfpath/awstats.$key.conf\n"; + # write domain specific config file + open (CONF, "$awconf") or die "Could not open $awconf\n"; + while () { + if (/^DirData=/) { + mkdir ("$dirdata/$key"); # make dir for AWStats historical data + chown ($admin_uid,$root_gid, "$dirdata/$key"); + chmod (0770,"$dirdata/$key"); + $_="DirData=\"$dirdata/$key\"\n"; # path to history dir + } + if (/^SiteDomain=/) { + $_="SiteDomain=\"$key\""; + } + $_ =~ s/LogFile="\/var\/log\/httpd\/access_log"/LogFile="-"/; + print {$ConfDomains{$key}} $_; + } + close (CONF); + close ($ConfDomains{$key}); +} + +# launch AWStats for each domain, which has new logs +while (($key,$value) = each %Domains) { + my $ret; + my $cmd="/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.pl -config=$key < $httpdlog/awstats/$key > /dev/null"; + print "Launching AWStats with logfile $httpdlog/awstats/$key (len=" + .(-s "$httpdlog/awstats/$key") . " bytes)\n" if $debug; + $ret=system ("$cmd"); + print "Command was: $cmd\n" if $ret!=0; +} + +# save the status of the Apache log for the next run +open (AWPOS,">$awpos") or die "Could not open file $awpos for writing\n"; +print AWPOS $fstat_cur[0].":".$fstat_cur[1].":".$fstat_cur[2].":".$fstat_cur[3]."\n"; +print AWPOS "# THIS FILE IS NEEDED BY AWSTATS. DO NOT DELETE!\n"; +close (AWPOS); +print "$awpos: $fstat_cur[0]:$fstat_cur[1]:$fstat_cur[2]:$fstat_cur[3]\n" if $debug; + +exit (0); + + +# get dev, inode and size information of a file +sub fileinfo($) { + my ($file)=@_; + return (0,0,0,0) if not -f $file; + my @info; # 0-> device, 1-> inode, 2->size + ($info[0],$info[1],undef,undef,undef,undef,undef,$info[2])=stat($file);; + $info[3]="0"; # default file pos offset + print "$file: $info[0]:$info[1]:$info[2]:$info[3]\n" if $debug; + return @info; +} + +sub write_runstat ($) { + open (ST, ">$httpdlog/awstats_lr") or die "Could not open file $httpdlog/awstats_lr for writing\n"; + print ST $_[0]; + close (ST); +} + +# invoked at exit, SIGTERM, SIGKILL and SIGINT +sub cleanup () { + my ($xtime, $min, $hour, $day, $month, $year); + (undef, $min, $hour, $day, $month, $year)=localtime($start_time); + $xtime=(time()-$start_time); + print "Program execution time: $xtime sec\n" if $debug; + print "Cleanup.\n" if $debug; + if (not $debug) { + while (($key,$value) = each %Domains) { + unlink ("$httpdlog/awstats/$key"); + } + rmdir ("$httpdlog/awstats"); + } + if ($logrotate_detected==1) { + unlink ("$awpos"); + print "Logfile rotate detected. $awpos removed. Next run will process the new logfile\n" if $debug; + } + write_runstat (sprintf ("Updated on %02d/%02d/%d at %02d:%02d in %d secs. %d new logs processed.", + $month+1,$day,$year+1900,$hour,$min,$xtime, $readlines)); + if (-f "$lock") { + open (LCK, "$lock"); + my $pid=; + close (LCK); + unlink ("$lock") if $$ == "$pid" or "$pid" eq ""; + } + # remove temporary conf file + if ($awconf =~ /\.[0-9]*$/) { + unlink ("$awconf"); + } + exit (0); +} diff --git a/root/usr/share/smanager/lib/SrvMngr/Controller/Awstats.pm b/root/usr/share/smanager/lib/SrvMngr/Controller/Awstats.pm new file mode 100644 index 0000000..3c00f4c --- /dev/null +++ b/root/usr/share/smanager/lib/SrvMngr/Controller/Awstats.pm @@ -0,0 +1,355 @@ +package SrvMngr::Controller::Awstats; + +#---------------------------------------------------------------------- +# heading : Investigation +# description : Web statistics +# navigation : 6000 350 +# +# menu : A +# +# name : awstats, method : get, url : /awstats, ctlact : awstats#main +# name : awstats2, method : get, url : /awstats2, ctlact : awstats#do_display +# name : awstatsc, method : post, url : /awstats, ctlact : awstats#do_display +# name : awstatsu, method : post, url : /awstats2, ctlact : awstats#do_update +# name : awstats3, method : get, url : /awstats3, ctlact : awstats#do_update +# +# routes : end +#---------------------------------------------------------------------- +use strict; +use warnings; + +use Mojo::Base 'Mojolicious::Controller'; + +use Locale::gettext; +use SrvMngr::I18N; +use SrvMngr qw(theme_list init_session); + +use POSIX qw(strftime); + +use esmith::DomainsDB; +use esmith::ConfigDB; + + +our $ddb = esmith::DomainsDB->open || die "Couldn't open domains db"; +our $cdb = esmith::ConfigDB->open || die "Couldn't open configuration db"; + +our $awsdirdata="/home/e-smith/files/users/admin/home/awstats"; +our $REGEXP_DOMAIN = qq([a-zA-Z0-9\-\.]+); + +sub main { + + my $c = shift; + $c->app->log->info($c->log_req); + + my %aws_datas = (); + my $title = $c->l('aws_FORM_TITLE'); + + $aws_datas{trt} = 'LST'; + + my $rec = $cdb->get('AWStats'); + $aws_datas{status} = $rec->prop('status')|| 'disabled'; + $aws_datas{mailstatus} = ( $rec->prop('mailstatus') || 'disabled' ); + $aws_datas{ftpstatus} = ( $rec->prop('ftpstatus') || 'disabled' ); + $aws_datas{username} = $c->session->{username} || 'unknown'; + + my @domains; + +# if ( $aws_datas->{status} ne 'enabled' ) { + for ($ddb->domains()) { + my $domain = $_->key; + + next unless ( -d "$awsdirdata/$domain" ); + + my $ns = $_->prop('Nameservers') || 'internet'; + + $domain = $1 if ($domain =~ /^($REGEXP_DOMAIN)$/); + my $awstats = 'Empty'; + if (system("/bin/ls $awsdirdata/$domain/ | /bin/grep '.txt' > /dev/null 2>&1") == 0 ) { + $awstats = 'Show'; + } + my $status = 'active'; + #if ( ????system == 0 ) { // T O D O inactive domains// + # $status = 'inactive'; + #} + + push @domains, + { Domain => $_->key, $_->props, + Nameservers => $ns, + AWStats => $awstats, + Status => $status + } + } + + if (open (ST, "/var/log/httpd/awstats_lr")) { + $aws_datas{logres} = ; + close (ST); + } +# } + + $c->stash( title => $title, aws_datas => \%aws_datas, domains => \@domains ); + $c->render(template => 'awstats'); +} + + +sub do_display { + + my $c = shift; + $c->app->log->info($c->log_req); + + my %aws_datas = (); + my $title = $c->l('aws_FORM_TITLE'); + my $result; + + my $trt = $c->param('trt') || 'LST'; + my $domain = $c->param('Domain'); + + if ( $trt eq 'SHW' ) { + $aws_datas{periodrep} = 'month'; + $aws_datas{monthrep} = strftime( "%m", localtime ); + $aws_datas{yearrep} = strftime( "%Y", localtime ); + $aws_datas{domain} = $domain; + $result = _get_awst( $c, \%aws_datas ); + } + + if ( $trt eq 'CNF' ) { + my $rec = $cdb->get('AWStats'); + if ($rec) { + $aws_datas{status} = $rec->prop('status')|| 'disabled'; + $aws_datas{mailstatus} = ( $rec->prop('mailstatus') || 'disabled' ); + $aws_datas{ftpstatus} = ( $rec->prop('ftpstatus') || 'disabled' ); + $aws_datas{freq} = $rec->prop('Freq')|| '5m'; + $aws_datas{barSize} = $rec->prop('BarSize')|| 'medium'; + $aws_datas{language} = $rec->prop('Language')|| 'auto'; + $aws_datas{maxNbOfDomain} = $rec->prop('MaxNbOfDomain')|| '50'; + $aws_datas{maxNbOfHosts} = $rec->prop('MaxNbOfHostsShown')|| '100'; + $aws_datas{maxNbOfKeywords} = $rec->prop('MaxNbOfKeywordsShown')|| '50'; + $aws_datas{maxNbOfPage} = $rec->prop('MaxNbOfPageShown')|| '200'; + $aws_datas{maxNbOfReferer} = $rec->prop('MaxNbOfRefererShown')|| '50'; + $aws_datas{maxNbOfRobot} = $rec->prop('MaxNbOfRobotShown')|| '25'; + $aws_datas{minHitPage} = $rec->prop('MinHitFile')|| '1'; + $aws_datas{minHitHost} = $rec->prop('MinHitHost')|| '1'; + $aws_datas{minHitKeyword} = $rec->prop('MinHitKeyword')|| '1'; + $aws_datas{minHitRefer} = $rec->prop('MinHitRefer')|| '1'; + $aws_datas{minHitRobot} = $rec->prop('MinHitRobot')|| '1'; + $aws_datas{rawlog} = $rec->prop('Rawlog')|| 'no'; + $aws_datas{skipExternalIP} = $rec->prop('SkipExternalIP')|| 'yes'; + $aws_datas{skipLocalIP} = $rec->prop('SkipLocalIP')|| 'yes'; + $aws_datas{skipLocalNetworks} = $rec->prop('SkipLocalNetworks')|| 'no'; + $aws_datas{userFramesWhenCGI} = $rec->prop('UserFramesWhenCGI')|| 'no'; + $aws_datas{username} = $c->session->{username} || 'unknown'; + } + } + + $aws_datas{trt} = $trt; + $aws_datas{domain} = $domain; + $c->stash( title => $title .' '. $domain, aws_datas => \%aws_datas, modul => $result ); + $c->render(template => 'awstats'); + +} + + +sub do_update { + + my $c = shift; + $c->app->log->info($c->log_req); + + my $rt = $c->current_route; + my $trt = $c->param('trt') || 'SHWP'; + my $title = $c->l('aws_FORM_TITLE'); + + my %aws_datas = (); + $aws_datas{trt} = $trt; + my ($res, $result) = ''; + + if ( $trt eq 'UPD' ) { + + my $status = $c->param('Status'); + my $mailstatus = $c->param('Mailstatus'); + my $ftpstatus = $c->param('Ftpstatus'); + my $freq = $c->param('Freq'); + my $skipLocalIP = $c->param('SkipLocalIP'); + my $skipExternalIP = $c->param('SkipExternalIP'); + my $skipLocalNetworks = $c->param('SkipLocalNetworks'); + my $userFramesWhenCGI = $c->param('UserFramesWhenCGI'); + my $language = $c->param('Language'); + my $rawlog = $c->param('Rawlog'); + my $barSize = $c->param('BarSize'); + + my $maxNbOfDomain = $c->param('MaxNbOfDomain'); + my $maxNbOfHosts = $c->param('MaxNbOfHosts'); + my $minHitHost = $c->param('MinHitHost'); + my $maxNbOfPages = $c->param('MaxNbOfPages'); + my $minHitPage = $c->param('MinHitPage'); + my $maxNbOfRobot = $c->param('MaxNbOfRobot'); + my $minHitRobot = $c->param('MinHitRobot'); + my $maxNbOfReferer = $c->param('MaxNbOfReferer'); + my $minHitRefer = $c->param('MinHitRefer'); + my $maxNbOfKeywords = $c->param('MaxNbOfKeywords'); + my $minHitKeyword = $c->param('MinHitKeyword'); + + #$result = 'blocked'; + + if ($maxNbOfDomain =~ /^([0-9]+)$/) { + $maxNbOfDomain = $1; + } else { + $result .= $c->l('FIELD_INVALID_CHARS') .' : '. $maxNbOfDomain .'
'; + } + if ($maxNbOfHosts =~ /^([0-9]+)$/) { + $maxNbOfHosts = $1; + } else { + $result .= $c->l('FIELD_INVALID_CHARS') .' : '. $maxNbOfHosts .'
'; + } + + if ($minHitHost =~ /^([0-9]+)$/) { + $minHitHost = $1; + } else { + $result .= $c->l('FIELD_INVALID_CHARS') .' : '. $minHitHost .'
'; + } + $maxNbOfDomain = 1 if $maxNbOfDomain < 1; + $maxNbOfHosts = 1 if $maxNbOfHosts < 1; + $minHitHost = 1 if $minHitHost < 1; + $maxNbOfPages = 1 if $maxNbOfPages < 1; + $minHitPage = 1 if $minHitPage < 1; + $maxNbOfRobot = 1 if $maxNbOfRobot < 1; + $minHitRobot = 1 if $minHitRobot < 1; + $maxNbOfReferer = 1 if $maxNbOfReferer < 1; + $minHitRefer = 1 if $minHitRefer < 1; + $maxNbOfKeywords = 1 if $maxNbOfKeywords < 1; + $minHitKeyword = 1 if $minHitKeyword < 1; + + # controls + + $res =''; + if ( ! $result ) { + my $rec = $cdb->get('AWStats'); + if ($rec) { + $rec->set_prop('status', $status); ; + $rec->set_prop('mailstatus', $mailstatus); ; + $rec->set_prop('ftpstatus', $ftpstatus); ; + $rec->set_prop('Freq', $freq); + $rec->set_prop('BarSize',$barSize ); + $rec->set_prop('Language', $language); + $rec->set_prop('MaxNbOfDomain', $maxNbOfDomain); + $rec->set_prop('MaxNbOfHostsShown', $maxNbOfHosts); + $rec->set_prop('MaxNbOfKeywordsShown', $maxNbOfKeywords); + $rec->set_prop('MaxNbOfPageShown', $maxNbOfPages); + $rec->set_prop('MaxNbOfRefererShown', $maxNbOfReferer); + $rec->set_prop('MaxNbOfRobotShown', $maxNbOfRobot); + $rec->set_prop('MinHitFile', $minHitPage); + $rec->set_prop('MinHitHost', $minHitHost); + $rec->set_prop('MinHitKeyword', $minHitKeyword); + $rec->set_prop('MinHitRefer', $minHitRefer); + $rec->set_prop('MinHitRobot', $minHitRobot); + $rec->set_prop('Rawlog', $rawlog); + $rec->set_prop('SkipExternalIP', $skipExternalIP); + $rec->set_prop('SkipLocalIP', $skipLocalIP); + $rec->set_prop('SkipLocalNetworks', $skipLocalNetworks); + $rec->set_prop('UserFramesWhenCGI', $userFramesWhenCGI); + } + + if ( system( '/sbin/e-smith/signal-event awstats-update &' ) != 0 ) { + $result = ($c->l('aws_ERROR_CONFIG_UPDATE') . " $trt"); + } else { + # sleep (2); + $res = 'OK'; + $result = $c->l('aws_CONFIG_SUCCESSFULLY_MODIFIED'); + } + } + } + + if ( $trt eq 'SHWP' ) { + $aws_datas{periodrep} = $c->param('databasebreak'); + $aws_datas{monthrep} = $c->param('month'); + $aws_datas{yearrep} = $c->param('year'); + $aws_datas{dayrep} = $c->param('day') || ''; + $aws_datas{hourrep} = $c->param('hour') || ''; # does not exist (bug in awstats 7.8-3) + $aws_datas{domain} = $c->param('config') || 'None'; + + $result = _get_awst( $c, \%aws_datas ); + + $c->stash( title => $title .' '. $aws_datas{domain}, aws_datas => \%aws_datas, modul => $result ); + return $c->render( 'awstats' ); + } + + # common parts + + if ($res ne 'OK') { + $c->stash( error => $result ); + $c->stash( title => $title, aws_datas => \%aws_datas ); + return $c->render( 'awstats' ); + } + +# $cdb = esmith::ConfigDB->open(); + + my $message = "'AWStats configuration' update ($trt) DONE"; + $c->app->log->info($message); + $c->flash( success => $result ); + $c->redirect_to('/awstats'); +} + + +sub _get_awst { + + my ($c, $aws_datas) = @_; + + my $periodrep = $aws_datas->{periodrep}; + my $yearrep = $aws_datas->{yearrep}; + my $monthrep = $aws_datas->{monthrep}; + my $dayrep = $aws_datas->{dayrep}; + my $hourrep = $aws_datas->{hourrep}; + my $domain = $aws_datas->{domain}; + + my $res; + + $domain = $1 if ($domain =~ /^($REGEXP_DOMAIN)$/); + $periodrep = $1 if ($periodrep =~ /^([A-Za-z]+)$/); + $monthrep = $1 if ($monthrep =~ /^([A-Za-z\-]+)$/); + $yearrep = $1 if ($yearrep =~ /^([0-9]+)$/); + $dayrep = $1 if ($dayrep and $dayrep =~ /^([0-9]+)$/); + $hourrep = $1 if ($hourrep and $hourrep =~ /^([0-9]+)$/); + + # cli awstats.pl call + $res = `/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.pl -databasebreak=$periodrep -month=$monthrep -year=$yearrep -day=$dayrep -hour=$hourrep -config="${domain}" -lang=auto -output`; + + # change awstats link for this controller + $res =~ s|action="/cgi-bin/awstats.pl?|action="/smanager/awstats3?trt=SHWP&|; + # change DirIcons for sm2 public one + $res =~ s|\.\./\.\./awstats|\./images/awstats/icon|g; + + return $res; +} + + +sub freq_options_list { + + my $c = shift; + return [[ '5 ' . $c->l('MINUTES') => '5m'], + [ '10 ' . $c->l('MINUTES') => '10m'], + [ '15 ' . $c->l('MINUTES') => '15m'], + [ '30 ' . $c->l('MINUTES') => '30m'], + [ '1 ' . $c->l('HOUR') => '1h'], + [ '2 ' . $c->l('HOURS') => '2h'], + [ '4 ' . $c->l('HOURS') => '4h'], + [ '8 ' . $c->l('HOURS') => '8h'], + [ '12 ' . $c->l('HOURS') => '12h']]; +} + + +sub language_options_list { + + my $c = shift; + return [[ 'Auto Detect' => 'auto' ], + ['English' => 'en' ], + ['French', => 'fr' ], + ['Dutch' => 'nl' ], + ['Spanish' => 'es' ], + ['Italian' => 'it' ], + ['German', => 'de' ], + ['Polish', => 'pl' ], + ['Greek' => 'gr' ], + ['Czech' => 'cz' ], + ['Portuguese' => 'pt' ]]; +} + + +1 diff --git a/root/usr/share/smanager/lib/SrvMngr/I18N/Modules/Awstats/awstats_en.lex b/root/usr/share/smanager/lib/SrvMngr/I18N/Modules/Awstats/awstats_en.lex new file mode 100644 index 0000000..57bb4aa --- /dev/null +++ b/root/usr/share/smanager/lib/SrvMngr/I18N/Modules/Awstats/awstats_en.lex @@ -0,0 +1,37 @@ +'aws_FORM_TITLE' => 'Show or Configure Awstats Statistics', +'aws_BUTTON_CONFIGURE' => 'Configure AWStats', +'aws_STATS_NOTE' => 'Note: A Domain is not shown in the list below until after midnight on the day statistics are available. To force the display sooner, browse to the website to create some stats, then resave awstats settings.', +'aws_DOMAINS_TITLE' => 'List of Domains viewable by admin', +'aws_DISABLED' => 'AWStats is disabled.', +'aws_UPDATED' => 'Updated on [_1] in [_2] secs. [_3] new logs processed.', +'aws_COPYRIGHT' => 'Copyright neddix.de, Stuttgart', +'aws_CONTENT' => 'Content', +'aws_CONFIG_TITLE' => 'Configure AWStats Sme version', +'aws_LABEL_STATUS' => 'State', +'aws_REPORTED' => 'Reported period', +'aws_STATUS' => 'status', +'aws_MAILSTATUS' => 'Awstats Mail status', +'aws_FTPSTATUS' => 'Awstats Ftp status', +'aws_FREQUENCY' => 'Launch frequency', +'aws_NO_LOCAL_IP' => 'Ignore hits from your local network', +'aws_NO_EXTERNAL_IP' => 'Ignore hits from your external IP or network', +'aws_YES_EXT_IP' => 'Yes, external IP', +'aws_YES_EXT_IP_MSK' => 'Yes, external IP/Netmask', +'aws_NO_LOCAL' => 'Ignore hits from local networks as defined in the \'Local networks\' panel', +'aws_FRAME' => 'Show report in HTML frames', +'aws_LANGUAGE' => 'Default language', +'aws_RAWLOG' => 'Enable plugin \'Rawlog\'', +'aws_MAX_DOMAINS' => 'Max. number of domains shown', +'aws_MAX_HOSTS' => 'Max. number of hosts shown', +'aws_MIN_HIT_HOSTS' => 'Only show hosts with at least these hits:', +'aws_MAX_PAGES' => 'Max. number of pages shown', +'aws_MIN_HIT_PAGES' => 'Only show pages with at least these hits:', +'aws_MAX_ROBOTS' => 'Max. number of robots shown', +'aws_MIN_HIT_ROBOT' => 'Only show robots with at least these hits:', +'aws_MAX_REFERER' => 'Max. number of referrers shown', +'aws_MIN_HIT_REFERER' => 'Only show referrers with at least these hits:', +'aws_MAX_KEYWORDS' => 'Max. number of keywords shown', +'aws_MIN_HIT_KEYWORDS' => 'Only show keywords with at least these hits:', +'aws_BAR_SIZE' => 'Graphics bar size', +'aws_CONFIG_SUCCESSFULLY_MODIFIED' => 'Configuration has been updated successfully.
Please note, that changed ignore-rules will only effect processing of future logs.', +'aws_ERROR_CONFIG_UPDATE' => 'Error: internal failure while updating awstats configuration.', diff --git a/root/usr/share/smanager/themes/default/public/images/awstats/README b/root/usr/share/smanager/themes/default/public/images/awstats/README new file mode 100644 index 0000000..da50cf9 --- /dev/null +++ b/root/usr/share/smanager/themes/default/public/images/awstats/README @@ -0,0 +1 @@ +# link to original awstats icon directory for sm2 diff --git a/root/usr/share/smanager/themes/default/templates/awstats.html.ep b/root/usr/share/smanager/themes/default/templates/awstats.html.ep new file mode 100644 index 0000000..9eb8cd2 --- /dev/null +++ b/root/usr/share/smanager/themes/default/templates/awstats.html.ep @@ -0,0 +1,34 @@ +% layout 'default', title => "Sme server 2 - AWStats"; + +% content_for 'module' => begin +
+ % if ($config->{debug} == 1) { +

+ %= dumper $c->current_route + %= dumper $aws_datas +

+ % } + % if ( stash 'warning' ) { +
+ %= $c->render_to_string(inline => stash 'warning') +
+ %} + % if ( stash 'error' ) { +
+ %= $c->render_to_string(inline => stash 'error') +
+ %} + +

<%= $title%>

+ + % if ($aws_datas->{trt} eq 'CNF') { + %= include 'partials/_aws_cnf' + %} elsif ($aws_datas->{trt} eq 'SHW' or $aws_datas->{trt} eq 'SHWP') { + %= include 'partials/_aws_shw' + %} elsif ($aws_datas->{trt} eq 'UPD') { + %= include 'partials/_aws_cnf' + %} else { + %= include 'partials/_aws_list' + %} +
+% end diff --git a/root/usr/share/smanager/themes/default/templates/partials/_aws_cnf.html.ep b/root/usr/share/smanager/themes/default/templates/partials/_aws_cnf.html.ep new file mode 100644 index 0000000..710eb2f --- /dev/null +++ b/root/usr/share/smanager/themes/default/templates/partials/_aws_cnf.html.ep @@ -0,0 +1,139 @@ +
+ %= form_for '/awstats2' => (method => 'POST') => begin +

<%=l 'aws_CONFIG_TITLE'%>

+

+ %=l 'aws_STATUS', class => 'label' + + % param 'Status' => $aws_datas->{status} unless param 'Status'; + %= select_field 'Status' => [[(l 'ENABLED') => 'enabled'], [ (l 'DISABLED') => 'disabled']], class => 'input' + + %=l 'aws_MAILSTATUS' + + % param 'Mailstatus' => $aws_datas->{mailstatus} unless param 'Mailstatus'; + %= select_field 'Mailstatus' => [[(l 'ENABLED') => 'enabled'], [ (l 'DISABLED') => 'disabled']], class => 'input' + + %=l 'aws_FTPSTATUS' + + % param 'Ftpstatus' => $aws_datas->{ftpstatus} unless param 'Ftpstatus'; + %= select_field 'Ftpstatus' => [[(l 'ENABLED') => 'enabled'], [ (l 'DISABLED') => 'disabled']], class => 'input' +

+

+ %=l 'aws_FREQUENCY' + + % param 'Freq' => $aws_datas->{freq} unless param 'Freq'; + %= select_field 'Freq', $c->freq_options_list(), class => 'input' +

+

+ %=l 'aws_NO_LOCAL_IP', class => 'label' + + % param 'SkipLocalIP' => $aws_datas->{skipLocalIP} unless param 'SkipLocalIP'; + %= select_field 'SkipLocalIP' => [[ (l 'YES') => 'yes'], [ (l 'NO') => 'no']], class => 'input' +

+

+ %=l 'aws_NO_EXTERNAL_IP', class => 'label' + + % param 'SkipExternalIP' => $aws_datas->{skipExternalIP} unless param 'SkipExternalIP'; + %= select_field 'SkipExternalIP' => [[(l 'NO') => 'no'], [(l 'aws_YES_EXT_IP') => 'yes'], [(l 'aws_YES_EXT_IP_MSK') => 'mask']], class => 'input' +

+

+ %=l 'aws_NO_LOCAL', class => 'label' + + % param 'SkipLocalNetworks' => $aws_datas->{skipLocalNetworks} unless param 'SkipLocalNetworks'; + %= select_field 'SkipLocalNetworks' => [[ (l 'YES') => 'yes'], [ (l 'NO') => 'no']], class => 'input' +

+

+ %=l 'aws_FRAME', class => 'label' + + % param 'UserFramesWhenCGI' => $aws_datas->{userFramesWhenCGI} unless param 'UserFramesWhenCGI'; + %= select_field 'UserFramesWhenCGI' => [[ (l 'YES') => 'yes'], [ (l 'NO') => 'no']], class => 'input' +

+

+ %=l 'aws_LANGUAGE' + + % param 'Language' => $aws_datas->{language} unless param 'Language'; + %= select_field 'Language', $c->language_options_list(), class => 'input' +

+

+ %=l 'aws_RAWLOG', class => 'label' + + % param 'Rawlog' => $aws_datas->{rawlog} unless param 'Rawlog'; + %= select_field 'Rawlog' => [[ (l 'YES') => 'yes'], [ (l 'NO') => 'no']], class => 'input' +

+

+ %=l 'aws_MAX_DOMAINS', class => 'label' + + % param 'MaxNbOfDomain' => $aws_datas->{maxNbOfDomain} unless param 'MaxNbOfDomain'; + %= text_field 'MaxNbOfDomain' => size => '5', class => 'input' +

+

+ %=l 'aws_MAX_HOSTS', class => 'label' + + % param 'MaxNbOfHosts' => $aws_datas->{maxNbOfHosts} unless param 'MaxNbOfHosts'; + %= text_field 'MaxNbOfHosts' => size => '5', class => 'input' + + + %=l 'aws_MIN_HIT_HOSTS', class => 'label' + + % param 'MinHitHost' => $aws_datas->{minHitHost} unless param 'MinHitHost'; + %= text_field 'MinHitHost' => size => '5', class => 'input' +

+

+ %=l 'aws_MAX_PAGES', class => 'label' + + % param 'MaxNbOfPages' => $aws_datas->{maxNbOfPage} unless param 'MaxNbOfPages'; + %= text_field 'MaxNbOfPages' => size => '5', class => 'input' + + + %=l 'aws_MIN_HIT_PAGES', class => 'label' + + % param 'MinHitPAge' => $aws_datas->{minHitPage} unless param 'MinHitPAge'; + %= text_field 'MinHitPAge' => size => '5', class => 'input' +

+

+ %=l 'aws_MAX_ROBOTS', class => 'label' + + % param 'MaxNbOfRobot' => $aws_datas->{maxNbOfRobot} unless param 'MaxNbOfRobot'; + %= text_field 'MaxNbOfRobot' => size => '5', class => 'input' + + + %=l 'aws_MIN_HIT_ROBOT', class => 'label' + + % param 'MinHitRobot' => $aws_datas->{minHitRobot} unless param 'MinHitRobot'; + %= text_field 'MinHitRobot' => size => '5', class => 'input' +

+

+ %=l 'aws_MAX_REFERER', class => 'label' + + % param 'MaxNbOfReferer' => $aws_datas->{maxNbOfReferer} unless param 'MaxNbOfReferer'; + %= text_field 'MaxNbOfReferer' => size => '5', class => 'input' + + + %=l 'aws_MIN_HIT_REFERER' => size => '5', class => 'label' + + % param 'MinHitRefer' => $aws_datas->{minHitRefer} unless param 'MinHitRefer'; + %= text_field 'MinHitRefer' => size => '5', class => 'input' +

+

+ %=l 'aws_MAX_KEYWORDS', class => 'label' + + % param 'MaxNbOfKeywords' => $aws_datas->{maxNbOfKeywords} unless param 'MaxNbOfKeywords'; + %= text_field 'MaxNbOfKeywords' => size => '5', class => 'input' + + + %=l 'aws_MIN_HIT_KEYWORDS', class => 'label' + + % param 'MinHitKeyword' => $aws_datas->{minHitKeyword} unless param 'MinHitKeyword'; + %= text_field 'MinHitKeyword' => size => '5', class => 'input' +

+

+ %=l 'aws_BAR_SIZE', class => 'label' + + % param 'BarSize' => $aws_datas->{barSize} unless param 'BarSize'; + %= select_field 'BarSize' => [[(l 'MEDIUM') => 'medium'], [(l 'SMALL') => 'small'], [(l 'LARGE') => 'large']], class => 'input' +

+
+ %= submit_button $c->l('SAVE'), class => 'action' +
+ %= hidden_field 'trt' => 'UPD' + %end +
diff --git a/root/usr/share/smanager/themes/default/templates/partials/_aws_list.html.ep b/root/usr/share/smanager/themes/default/templates/partials/_aws_list.html.ep new file mode 100644 index 0000000..718fff5 --- /dev/null +++ b/root/usr/share/smanager/themes/default/templates/partials/_aws_list.html.ep @@ -0,0 +1,74 @@ +
+ + %= form_for '/awstats' => (method => 'POST') => begin + %= submit_button l('aws_BUTTON_CONFIGURE'), class => 'action' + %= hidden_field 'trt' => 'CNF' +

+ % if ( $aws_datas->{status} ne 'enabled' ) { +

<%= $c->l('aws_DISABLED') %>

+ % if ($aws_datas->{username} eq 'admin' and $aws_datas->{mailstatus} eq 'enabled') { +
No WEB stats but MAIL stats are available -> Here...
+ % } + % if ($aws_datas->{username} eq 'admin' and $aws_datas->{ftpstatus} eq 'enabled') { +
No WEB stats but FTP stats are available -> Here...
+ % } + % } else { +

<%= $c->l('aws_DOMAINS_TITLE') %>

+ + %=l 'aws_STATS_NOTE' + + + + + + % foreach my $domain ( @$domains ) { + + %= t td => (class => 'sme-border') => $domain->{Domain} + %= t td => (class => 'sme-border') => $domain->{'Description'} + %= t td => (class => 'sme-border') => $domain->{'Content'} + % my $actionShow = l("$domain->{AWStats}"); + % if ( $domain->{AWStats} eq 'Show' ) { + % $actionShow = "" . l("$domain->{AWStats}") . ""; + % } + + %= t td => (class => 'sme-border') => $domain->{'Status'} + + % } + % if ( $aws_datas->{mailstatus} eq 'enabled' ) { + + %= t td => (class => 'sme-border') => 'mail' + %= t td => (class => 'sme-border') => 'Qmail stats' + %= t td => (class => 'sme-border') => '' + % my $actionShow = "Show..."; + + %= t td => (class => 'sme-border') => 'active' + + % } + + % if ( $aws_datas->{ftpstatus} eq 'enabled' ) { + + %= t td => (class => 'sme-border') => 'ftp' + %= t td => (class => 'sme-border') => 'Ftp stats' + %= t td => (class => 'sme-border') => '' + % my $actionShow = "Show..."; + + %= t td => (class => 'sme-border') => 'active' + + % } +
+ %=l 'DOMAIN_NAME' + + %=l 'DESCRIPTION_BRIEF' + + %=l 'aws_CONTENT' + AWStats + %=l 'aws_LABEL_STATUS' +
<%= $c->render_to_string(inline => $actionShow) %>
<%= $c->render_to_string(inline => $actionShow) %>
<%= $c->render_to_string(inline => $actionShow) %>
+

+ %} + % if ( $aws_datas->{logres} ) { +

Web stats: <%= $c->render_to_string(inline => $aws_datas->{logres}) %>

+ %} +

<%= $c->l( 'aws_COPYRIGHT') %>

+ % end +
diff --git a/root/usr/share/smanager/themes/default/templates/partials/_aws_shw.html.ep b/root/usr/share/smanager/themes/default/templates/partials/_aws_shw.html.ep new file mode 100644 index 0000000..b732402 --- /dev/null +++ b/root/usr/share/smanager/themes/default/templates/partials/_aws_shw.html.ep @@ -0,0 +1,4 @@ +
+ %= $c->render_to_string(inline => $modul) + %=l 'aws_COPYRIGHT' +
diff --git a/smeserver-awstats.spec b/smeserver-awstats.spec new file mode 100644 index 0000000..2824208 --- /dev/null +++ b/smeserver-awstats.spec @@ -0,0 +1,224 @@ +# $Id: smeserver-awstats.spec,v 1.12 2024/03/01 16:09:10 brianr Exp $ +# Authority: dungog +# Name: Stephen Noble + +%define realname smeserver-awstats +%define version 1.4 +%define release 11 + +Summary: SME Server integration rpm for awstats +Name: %{realname} +Version: %{version} +Release: %{release}%{?dist} +License: GNU GPL (GNU General Public License) +Group: SMEserver/addon +Source: %{name}-%{version}.tar.xz +BuildRoot: /var/tmp/%{name}-%{version} +URL: https://wiki.koozali.org/AWStats +BuildArchitectures: noarch +BuildRequires: e-smith-devtools >= 1.13.1-03 +Requires: e-smith-release >= 10 +Requires: awstats >= 6.5 +Requires: perl(POSIX) +AutoReqProv: no + +%description +SME Server integration rpm for awstats. + +%changelog +* Sat Sep 07 2024 cvs2git.sh aka Brian Read 1.4-11.sme +- Roll up patches and move to git repo [SME: 12338] + +* Sat Sep 07 2024 BogusDateBot +- Eliminated rpmbuild "bogus date" warnings due to inconsistent weekday, + by assuming the date is correct and changing the weekday. + +* Fri Mar 01 2024 Brian Read 1.4-10.sme +- Edit SM2 Menu entry to conform to new arrangements [SME: 12493] + +* Fri Mar 24 2023 Michel Begue 1.4-9.sme +- fix typo and Requires in .spec file [SME: 12324] +- (sm2) consider Daily and Hourly Reported Period +- (sm2) remove unnecessary file in templates directory + +* Mon Mar 20 2023 Michel Begue 1.4-8.sme +- Initial release for server-manager (sm2) [SME: 12324] + +* Sun Feb 12 2023 Michel Begue 1.4-7.sme +- add mail stats to panel (ftp stats too) [SME: 5925] + +* Sat Jul 30 2022 Brian Read 1.4-6.sme +- Re-build and link to latest devtools [SME: 11997] + +* Thu Jul 21 2022 Jean-Philippe Pialasse 1.4-5.sme +- add to core backup [SME: 11998] + +* Mon Feb 22 2021 Jean-Philipe Pialasse 1.4-3.sme +- add update event for easy install [SME: 11045] + rewrite spec and createlinks to be more smeserver compliant +- run actions/awstats-upgrade on update of awstats or smeserver-awstats [SME: 10784] + +* Tue Oct 20 2020 BogusDateBot +- Eliminated rpmbuild "bogus date" warnings due to inconsistent weekday, + by assuming the date is correct and changing the weekday. + Tue May 27 2001 --> Tue May 22 2001 or Sun May 27 2001 or Tue May 29 2001 or .... + +* Mon Oct 19 2020 Brian Read 1.4-2.sme +- Initial import to SME10 tree [SME: 11045] + +* Fri Jul 20 2018 John Crisp 1.4-1.sme +- Fix SkipHosts incomplete entry [SME: 10160] +- Add SkipHosts db key +- Update some code to newer API + +* Mon Sep 7 2015 stephane de Labrusse 1.3-3.sme +- added smeserver-awstats-1.3.bz8450.remove_ExternalIP-LocalIP.patch +- removed ExternalIP_LocalIP_ExternalNetmask [SME: 8450] + +* Mon Jun 16 2014 JP Pialasse 1.3-1.sme +- initial import to SME9 contribs [SME: 8435] + +* Sat Sep 20 2008 Stephen Noble 1.2-7 +- clarify when domain is added to panel [sme 4543] + +* Tue Jun 26 2007 Stephen Noble 1.2-5 +- awstats upgrade script modified [sme 3087] + +* Tue Jun 26 2007 Stephen Noble 1.2-4 +- awstats upgrade triggers added [sme 2347] + +* Mon Jan 8 2007 Stephen Noble +- old database path fixed, awstats.conf/10conf [sme 2254] +- [1.2-3] + +* Wed Apr 26 2006 Stephen Noble +- symlinks to graphics fixed +- [1.2-2] + +* Wed Apr 12 2006 Stephen Noble +- update for sme7 +- renamed smeserver-awstats +- split awstats out of rpm, so it can be updated independently +- [1.2-1] + +* Mon Jan 31 2005 Stephen Noble +- AllowFullYearView=3 added to awstats.conf +- hostinfo plugin option removed from panel +- # to enable +- # /sbin/e-smith/db /sbin/e-smith/configuration setprop AWStats Hostinfo yes +- # and install perl-Net-XWhois rpm +- [6.3-1] + +* Sat Jan 29 2005 Stephen Noble +- update to awstats 6.3 +- [6.3-0] + +* Sat Sep 13 2003 Stephen Noble +- delegation defaults to admin + can also delegate to everyone, a group or a single user +- [2.3.4] +* Mon Aug 25 2003 Michael Weinberger +- based on AWStats 5.7 +- [2.3.3] +* Tue Jul 29 2003 stephen noble +- everyone options in options +- language fixs thanks Pascal Schirrmann +- [2.3.2] +* Fri Jul 18 2003 stephen noble +- remove /sbin/e-smith/config and options link to non admin users +- [2.3.1] +* Thu Jul 17 2003 Michael Weinberger +- based on AWStats 5.6 +- supports servermanager navigation of SME6 +- [2.3.0] +* Tue Jul 15 2003 stephen noble +- user-manager support +- restrict virtual domains shown to users +- [2.2.2] +* Tue Jan 07 2003 Michael Weinberger +- changed to new commandline syntax (-/sbin/e-smith/config) +* Mon Jan 06 2003 Michael Weinberger +- based on AWStats 5.3 +* Mon Jan 06 2003 Michael Weinberger +- set DNSLookup=1 as default +* Sat Dec 21 2002 Michael Weinberger +- based on AWStats 5.2 +* Thu Feb 28 2002 Michael Weinberger +- based on AWStats 4.0 BETA +* Thu Feb 28 2002 Michael Weinberger +- now based on AWStats 3.2 +* Fri Oct 05 2001 Michael Weinberger +- missing icons issue solved. Path to icons changed. +* Thu Oct 04 2001 Michael Weinberger +- based on AWStats 2.32 + RPM name changed +* Sun May 27 2001 Michael Weinberger + Tue May 27 2001 --> Tue May 22 2001 or Sun May 27 2001 or Tue May 29 2001 or .... +- problems when started by e-smith events + awstats pre-processor now runs in background +* Tue May 01 2001 Michael Weinberger +- owner=admin, group=root for /home/e-smith/files/users/admin/home/awstats and all + dirs below, rw for owner and group. + (after e-smith upgrade permission set to drwx------, reported by Michael Doerner) + awstats_run now checks permissons and correct them if needed. +- more /sbin/e-smith/configuration options added, incl. 5 and 10 minute freq. +- Warning "Another instance running" suppressed, when launched by cron (-s option) +- Warning in the panel removed +* Sun Apr 29 2001 Michael Weinberger +- awstats_pos was not removed after a log rotate of access_log +* Fri Apr 27 2001 Michael Weinberger +- beta 1 release + + +%prep +%setup -q -n %{realname}-%{version} + +%build +perl createlinks +mkdir -p root/home/e-smith/files/users/admin/home/awstats +mkdir -p root/etc/e-smith/web/panels/manager/html/awstats/icon +mkdir -p root/etc/e-smith/web/panels/manager/cgi-bin/.awstats +#user-manager +mkdir -p root/etc/e-smith/web/panels/user/html/ +mkdir -p root/etc/e-smith/web/panels/user/cgi-bin/ +ln -fs /etc/e-smith/web/panels/manager/html/awstats root/etc/e-smith/web/panels/user/html/awstats +ln -fs /etc/e-smith/web/panels/manager/cgi-bin/.awstats root/etc/e-smith/web/panels/user/cgi-bin/.awstats +echo %{version}-%{release} > root/etc/e-smith/web/panels/manager/cgi-bin/.awstats/version + +%install +rm -rf $RPM_BUILD_ROOT +(cd root ; find . -depth -print | cpio -dump $RPM_BUILD_ROOT) +/sbin/e-smith/genfilelist $RPM_BUILD_ROOT \ + --dir '/home/e-smith/files/users/admin/home/awstats' 'attr(40770,admin,root)' \ + --dir '/etc/e-smith/web/panels/manager/cgi-bin/.awstats' 'attr(40770,root,root)' \ +> %{name}-%{version}-filelist +echo "%doc " >> %{name}-%{version}-filelist + +%clean +cd .. +rm -rf %{name}-%{version} + +%pre +%post + +if (systemctl list-unit-files |grep smanager) then + echo "Smanager restart in spec file" + /sbin/e-smith/signal-event smanager-refresh; +fi + + +%preun +%postun +if [ $1 = 0 ] ; then + /bin/rm -rf /etc/e-smith/web/panels/manager/html/awstats + /bin/rm -rf /etc/e-smith/web/panels/manager/cgi-bin/.awstats + /bin/rm -rf /etc/e-smith/web/panels/user/html/awstats + /bin/rm -rf /etc/e-smith/web/panels/user/cgi-bin/.awstats + /bin/rm -f /usr/share/smanager/themes/default/images/awstats/icon + /sbin/e-smith/config setprop AWStats status removed + /sbin/e-smith/expand-template /etc/crontab +fi +true + +%files -f %{name}-%{version}-filelist +%defattr(-,root,root)