]> git.ipfire.org Git - thirdparty/AWStats.git/commitdiff
projects / thirdparty / AWStats.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5343ee3)
Added rawlog plugin to add a form to show raw log content with filter capabilities.
authoreldy <>
Sun, 3 Aug 2003 15:31:48 +0000 (15:31 +0000)
committereldy <>
Sun, 3 Aug 2003 15:31:48 +0000 (15:31 +0000)
wwwroot/cgi-bin/awstats.pl patch | blob | blame | history
wwwroot/cgi-bin/plugins/rawlog.pm patch | blob | blame | history

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 2903a9ca10d00623d3b111bf2f5e59f2da6f5193..822236bff32aae1d30cd28b98bc84b6b7bb8de36 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -48,6 +48,7 @@ $DebugResetDone $DNSLookupAlreadyDone
 $RunAsCli $UpdateFor $lowerval
 $LastLine $LastLineNumber $LastLineOffset $LastLineChecksum
 $LastUpdate
+$PluginMode
 $TotalUnique $TotalVisits $TotalHostsKnown $TotalHostsUnknown
 $TotalPages $TotalHits $TotalBytes $TotalEntries $TotalExits $TotalBytesPages $TotalDifferentPages
 $TotalKeyphrases $TotalKeywords $TotalDifferentKeyphrases $TotalDifferentKeywords
@@ -66,6 +67,7 @@ $RunAsCli = 0; $UpdateFor=0;
 $lowerval = 0;
 $LastLine = $LastLineNumber = $LastLineOffset = $LastLineChecksum = 0;
 $LastUpdate = 0;
+$PluginMode = '';
 $TotalUnique = $TotalVisits = $TotalHostsKnown = $TotalHostsUnknown = 0;
 $TotalPages = $TotalHits = $TotalBytes = $TotalEntries = $TotalExits = $TotalBytesPages = $TotalDifferentPages = 0;
 $TotalKeyphrases = $TotalKeywords = $TotalDifferentKeyphrases = $TotalDifferentKeywords = 0;
@@ -541,12 +543,12 @@ use vars qw/ @Message /;
 #------------------------------------------------------------------------------
 # Function:            Write on ouput header of HTML page
 # Parameters:  None
-# Input:               %HTMLOutput $Expires $Lang $StyleSheet $HTMLHeadSection $PageCode
+# Input:               %HTMLOutput $PluginMode $Expires $Lang $StyleSheet $HTMLHeadSection $PageCode
 # Output:              None
 # Return:              None
 #------------------------------------------------------------------------------
 sub html_head {
-       if (scalar keys %HTMLOutput) {
+       if (scalar keys %HTMLOutput || $PluginMode) {
                my $AllowIndex=0;
                # Write head section
                if ($FrameName ne 'index') { print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n\n";  }
@@ -1692,6 +1694,7 @@ sub Read_Plugins {
                                        # Do not load "output plugins" if update only
                                        if ($UpdateStats && ! scalar keys %HTMLOutput && $pluginisfor{$pluginname} !~ /u/) { $PluginsLoaded{'init'}{"$pluginname"}=1; next; }
                                }
+                               else { $PluginsLoaded{'init'}{"$pluginname"}=1; }       # Unkown plugins always loaded
                                # Load plugin
                                foreach my $dir (@PossiblePluginsDir) {
                                        my $searchdir=$dir;
@@ -4631,13 +4634,16 @@ if ($tomorrowmin < 10) { $tomorrowmin = "0$tomorrowmin"; }
 if ($tomorrowsec < 10) { $tomorrowsec = "0$tomorrowsec"; }
 $tomorrowtime=int($tomorrowyear.$tomorrowmonth.$tomorrowday.$tomorrowhour.$tomorrowmin.$tomorrowsec);
 
-my @AllowedArgs=('migrate','config',
+# Allowed option
+my @AllowedCLIArgs=('migrate','config',
 'logfile','output','runascli','update',
 'staticlinks','staticlinksext','noloadplugin',
 'hostfilter','urlfilter','refererpagesfilter',
 'lang','month','year','framename','debug',
 'showsteps','showdropped','showcorrupted','showunknownorigin',
-'limitflush','confdir','updatefor');
+'limitflush','confdir','updatefor',
+'hostfilter','hostfilterex','urlfilter','urlfilterex','refererpagesfilter','refererpagesfilterex',
+'pluginmode','filterrawlog');
 
 $QueryString='';
 if ($ENV{'GATEWAY_INTERFACE'}) {       # Run from a browser as CGI
@@ -4674,6 +4680,8 @@ if ($ENV{'GATEWAY_INTERFACE'}) {  # Run from a browser as CGI
        if ($QueryString =~ /output=urldetail:([^&]+)/i)        { $FilterIn{'url'}=&DecodeEncodedString("$1"); }                        # Filter on URL list can be defined with output=urldetail:filter to reduce number of lines read and showed
        if ($QueryString =~ /output=refererpages:([^&]+)/i)     { $FilterIn{'refererpages'}=&DecodeEncodedString("$1"); }       # Filter on referer list can be defined with output=refererpages:filter to reduce number of lines read and showed
 
+       if ($QueryString =~ /pluginmode=([^&]+)/i)                      { $PluginMode=&DecodeEncodedString("$1"); }
+
        # If migrate
        if ($QueryString =~ /(^|-|&)migrate=([^&]+)/i)  {
                $MigrateStats=&DecodeEncodedString("$2"); 
@@ -4773,6 +4781,7 @@ if ($Debug) {
        debug("HTMLOutput=".join(',',keys %HTMLOutput),1);
        debug("YearRequired=$YearRequired, MonthRequired=$MonthRequired",2);
        debug("UpdateFor=$UpdateFor",2);
+       debug("PluginMode=$PluginMode",2);
 }
 
 # Force SiteConfig if AWSTATS_FORCE_CONFIG is defined
@@ -4892,12 +4901,12 @@ if (! $Lang || $Lang eq 'auto') {       # If lang not defined or forced to auto
        my $langlist=$ENV{'HTTP_ACCEPT_LANGUAGE'}||''; $langlist =~ s/;[^,]*//g;
        debug("Search an available language among HTTP_ACCEPT_LANGUAGE=$langlist",1);
        foreach my $code (split(/,/,$langlist)) {       # Search for a valid lang in priority
-               if ($LangBrowserToAwstats{$code}) { $Lang=$LangBrowserToAwstats{$code}; debug("Will try to use Lang=$Lang",1); last; }
+               if ($LangBrowserToAwstats{$code}) { $Lang=$LangBrowserToAwstats{$code}; debug(" Will try to use Lang=$Lang",1); last; }
                $code =~ s/-.*$//;
-               if ($LangBrowserToAwstats{$code}) { $Lang=$LangBrowserToAwstats{$code}; debug("Will try to use Lang=$Lang",1); last; }
+               if ($LangBrowserToAwstats{$code}) { $Lang=$LangBrowserToAwstats{$code}; debug(" Will try to use Lang=$Lang",1); last; }
        }
 }
-if (! $Lang || $Lang eq 'auto') { debug("No language defined or available. Will use Lang=en",1); $Lang='en'; }
+if (! $Lang || $Lang eq 'auto') { debug(" No language defined or available. Will use Lang=en",1); $Lang='en'; }
 
 # Check and correct bad parameters
 &Check_Config;
@@ -4913,8 +4922,8 @@ if (! $FrameName) {
 if ($FrameName ne 'index') {
        &Read_Language_Data($Lang);
        if ($FrameName ne 'mainleft') {
-               if (! scalar keys %HTMLOutput) { &Read_Ref_Data('browsers','domains','operating_systems','robots','search_engines','worms'); }
-               else { &Read_Ref_Data('browsers','domains','operating_systems','robots','search_engines','worms','mime'); }
+               if ($UpdateStats) { &Read_Ref_Data('browsers','domains','operating_systems','robots','search_engines','worms'); }
+               elsif (scalar keys %HTMLOutput) { &Read_Ref_Data('browsers','domains','operating_systems','robots','search_engines','worms','mime'); }
                &Read_Plugins();
        }
 }
@@ -4938,6 +4947,14 @@ $AWScript=($WrapperScript?"$WrapperScript":"$DirCgi$PROG.$Extension");
 # Print html header (Need HTMLOutput,Expires,Lang,StyleSheet,HTMLHeadSectionExpires defined by Read_Config, PageCodes defined by Read_Language_Data)
 &html_head;
 
+# AWStats output is replaced by a plugin output
+if ($PluginMode) {
+       my $function="BuildFullHTMLOutput_$PluginMode()";
+       eval("$function");
+       if ($? || $@) { error("$@"); }
+       exit 0; 
+}
+
 # Security check
 if ($AllowAccessFromWebToAuthenticatedUsersOnly && $ENV{'GATEWAY_INTERFACE'}) {
        if ($Debug) { debug("REMOTE_USER=".$ENV{"REMOTE_USER"}); }
@@ -6500,6 +6517,12 @@ if (scalar keys %HTMLOutput) {
                }
        }
 
+       # Call to plugins' function AddHTMLMenuFooter
+       foreach my $pluginname (keys %{$PluginsLoaded{'AddHTMLMenuFooter'}})  {
+               my $function="AddHTMLMenuFooter_$pluginname()";
+               eval("$function");
+       }
+
        # Exit if left frame
        if ($FrameName eq 'mainleft') {
                &html_end;
diff --git a/wwwroot/cgi-bin/plugins/rawlog.pm b/wwwroot/cgi-bin/plugins/rawlog.pm
index 2e288f99e28e778d017b7d3f6ee4bccb0579d0cf..5312e8e24888f51c5d7f6d0ddd5af9054220da79 100644 (file)
--- a/wwwroot/cgi-bin/plugins/rawlog.pm
+++ b/wwwroot/cgi-bin/plugins/rawlog.pm
@@ -60,8 +60,8 @@ sub Init_rawlog {
 #-----------------------------------------------------------------------------
 sub AddHTMLBodyHeader_rawlog {
        # <-----
-       # Show form
-       &_ShowForm('');
+       # Show form only if option -staticlinks not used
+       if (! $StaticLinks) { &_ShowForm(''); }
        return 1;
        # ----->
 }
Mirror of https://github.com/eldy/AWStats.git