[TWiki-Dev] [SVN] PeterThoeny r23323 - in twiki/trunk/ExternalLinkTrackerPlugin: data/TWiki lib/TWiki/Plugins/ExternalLinkTrackerPlugin

[<de...@de...>]

Author: PeterThoeny
Date: 2012-09-11 20:09:05 -0500 (Tue, 11 Sep 2012)
New Revision: 23323
Trac url: http://develop.twiki.org/trac/changeset/23323

Modified:
   twiki/trunk/ExternalLinkTrackerPlugin/data/TWiki/ExternalLinkTrackerStatistics.txt
   twiki/trunk/ExternalLinkTrackerPlugin/lib/TWiki/Plugins/ExternalLinkTrackerPlugin/Core.pm
Log:
Item6926: initial version of ExternalLinkTrackerPlugin - small fix in external link tracker ststistics page

Modified: twiki/trunk/ExternalLinkTrackerPlugin/data/TWiki/ExternalLinkTrackerStatistics.txt
===================================================================
--- twiki/trunk/ExternalLinkTrackerPlugin/data/TWiki/ExternalLinkTrackerStatistics.txt	2012-09-12 00:46:50 UTC (rev 23322)
+++ twiki/trunk/ExternalLinkTrackerPlugin/data/TWiki/ExternalLinkTrackerStatistics.txt	2012-09-12 01:09:05 UTC (rev 23323)
@@ -1,9 +1,9 @@
-%META:TOPICINFO{author="TWikiContributor" date="1347410686" format="1.1" version="$Rev$"}%
+%META:TOPICINFO{author="TWikiContributor" date="1347412100" format="1.1" version="$Rev$"}%
 %META:TOPICPARENT{name="ExternalLinkTrackerPlugin"}%
 ---+ External Link Tracker Statistics
 
 <form action="%SCRIPTURLPATH{viewauth}%/%WEB%/%TOPIC%">
-| Period: | <input type="text" name="exlink_period" size="8" value="%SERVERTIME{$year-$mo}%" class="twikiInputField" /> <input type="hidden" name="exlink_action" value="statistics" /> <input type="submit" value="Submit" class="twikiSubmit" /> &nbsp; %GRAY% Specify month such as =%SERVERTIME{$year-$mo}%= or full year such as =%SERVERTIME{$year}%= %ENDCOLOR% |
+| Period: | <input type="text" name="period" size="8" value="%URLPARAM{ "period" default="%SERVERTIME{$year-$mo}%" encode="quote" }%" class="twikiInputField" /> <input type="hidden" name="exlink_action" value="statistics" /> <input type="submit" value="Show" class="twikiSubmit" /> &nbsp; %GRAY% Specify a month like =%SERVERTIME{$year-$mo}%=, or a full year like =%SERVERTIME{$year}%= %ENDCOLOR% |
 </form>
 
 %EXLINK{ action="%URLPARAM{ "exlink_action" default="undefined" }%" }%

Modified: twiki/trunk/ExternalLinkTrackerPlugin/lib/TWiki/Plugins/ExternalLinkTrackerPlugin/Core.pm
===================================================================
--- twiki/trunk/ExternalLinkTrackerPlugin/lib/TWiki/Plugins/ExternalLinkTrackerPlugin/Core.pm	2012-09-12 00:46:50 UTC (rev 23322)
+++ twiki/trunk/ExternalLinkTrackerPlugin/lib/TWiki/Plugins/ExternalLinkTrackerPlugin/Core.pm	2012-09-12 01:09:05 UTC (rev 23323)
@@ -65,6 +65,8 @@
     my $text = '';
 
     if( ! $action ) {
+        # Create redirect link based on ID
+
         my $id = lc( $params->{_DEFAULT} );
         if( $this->{Def}{$id} ) {
             # Link to redirect URL
@@ -84,7 +86,9 @@
         }
 
     } elsif( $action eq 'redirect' ) {
-        my $id     = $params->{exlink_id} || '';
+        # Record link action and redirect to external site
+
+        my $id = $params->{exlink_id} || '';
         $this->_writeDebug( "action: 'redirect', id: '$id'" );
 
         if( $id && $this->{Def}{$id} ) {
@@ -100,6 +104,16 @@
         } else {
             $text = "EXLINK: id '$id' not found for action 'redirect'";
         }
+
+    } elsif( $action eq 'statistics' ) {
+        # Show link action statistics
+
+        my $period = $params->{period} || '';
+        if( $period =~ /^2[0-9]{3}(-[0-1][0-9])?$/ ) {
+
+        } else {
+            $text = "EXLINK: Period must be of format YYYY-MM or just YYYY";
+        }
     }
     return $text;
 }