Changesets can be listed by changeset number.
The Git repository is here.
- Revision:
- 269
- Log:
Overdue upgrade to AWStats v6.9, the most recent version
available at the time of writing.
- Author:
- rool
- Date:
- Wed May 27 23:57:15 +0100 2009
- Size:
- 3034 Bytes
- Properties:
- Property svn:executable is set
1 | #!/usr/bin/perl |
2 | #----------------------------------------------------------------------------- |
3 | # TimeZone AWStats plugin |
4 | # Allow AWStats to correct a bad timezone for user of IIS that use strange |
5 | # log format. |
6 | #----------------------------------------------------------------------------- |
7 | # Perl Required Modules: None |
8 | #----------------------------------------------------------------------------- |
9 | # $Revision: 1.10 $ - $Author: eldy $ - $Date: 2004/07/11 10:44:41 $ |
10 | |
11 | |
12 | # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
13 | # !!!!! This plugin reduces AWStats speed by 40% !!!!! |
14 | # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
15 | # <----- |
16 | # ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES |
17 | #use Time::Local 'timelocal_nocheck'; |
18 | # -----> |
19 | use strict;no strict "refs"; |
20 | |
21 | |
22 | |
23 | #----------------------------------------------------------------------------- |
24 | # PLUGIN VARIABLES |
25 | #----------------------------------------------------------------------------- |
26 | # <----- |
27 | # ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN |
28 | # AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE. |
29 | my $PluginNeedAWStatsVersion="5.1"; |
30 | my $PluginHooksFunctions="ChangeTime GetTimeZoneTitle"; |
31 | # -----> |
32 | |
33 | # <----- |
34 | # IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE. |
35 | use vars qw/ |
36 | $PluginTimeZoneSeconds |
37 | /; |
38 | # -----> |
39 | |
40 | |
41 | |
42 | #----------------------------------------------------------------------------- |
43 | # PLUGIN FUNCTION: Init_pluginname |
44 | #----------------------------------------------------------------------------- |
45 | sub Init_timezone { |
46 | my $InitParams=shift; |
47 | |
48 | # <----- |
49 | # ENTER HERE CODE TO DO INIT PLUGIN ACTIONS |
50 | if (! $InitParams || int($InitParams) == 0) { return "Error: Disable plugin if TimeZone is 0 (Plugin useless)"; } # We do not need this plugin if TZ=0 |
51 | $PluginTimeZoneSeconds=(int($InitParams)*3600); |
52 | # -----> |
53 | |
54 | my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion); |
55 | return ($checkversion?$checkversion:"$PluginHooksFunctions"); |
56 | } |
57 | |
58 | |
59 | |
60 | #----------------------------------------------------------------------------- |
61 | # PLUGIN FUNCTION: ChangeTime_pluginname |
62 | # UNIQUE: YES (Only one plugin using this function can be loaded) |
63 | #----------------------------------------------------------------------------- |
64 | sub ChangeTime_timezone { |
65 | my $dateparts=shift; |
66 | my ($nsec,$nmin,$nhour,$nmday,$nmon,$nyear,$nwday) = localtime(Time::Local::timelocal(int(@$dateparts[5]), int(@$dateparts[4]), int(@$dateparts[3]), int(@$dateparts[0]), int(@$dateparts[1])-1, int(@$dateparts[2])-1900) + $PluginTimeZoneSeconds); |
67 | return ($nmday, $nmon+1, $nyear+1900, $nhour, $nmin, $nsec); |
68 | } |
69 | |
70 | |
71 | #----------------------------------------------------------------------------- |
72 | # PLUGIN FUNCTION: GetTimeZoneTitle_pluginname |
73 | # UNIQUE: YES (Only one plugin using this function can be loaded) |
74 | #----------------------------------------------------------------------------- |
75 | sub GetTimeZoneTitle_timezone { |
76 | return ($PluginTimeZoneSeconds/3600); |
77 | } |
78 | |
79 | |
80 | 1; # Do not remove this line |