diff -ur collectl-4.0.2/graphite.ph collectl-4.0.2-rfqdn/graphite.ph
--- collectl-4.0.2/graphite.ph	2015-05-27 06:02:55.000000000 -0700
+++ collectl-4.0.2-rfqdn/graphite.ph	2015-11-25 07:55:51.000000000 -0800
@@ -19,7 +19,7 @@
 my ($graphiteDebug, $graphiteColInt, $graphiteCOFlag, $graphiteSendCount);
 my ($graphiteTTL, %graphiteTTL, %graphiteDataMin, %graphiteDataMax, %graphiteDataTot, %graphiteDataLast);
 my ($graphiteMyHost, $graphiteSocket, $graphiteSockHost, $graphiteSockPort, $graphiteSocketFailCount);
-my ($graphiteAlign, $graphiteFqdnFlag, $graphiteMinFlag, $graphiteMaxFlag, $graphiteAvgFlag, $graphiteTotFlag, $graphiteFlags)=(0,0,0,0,0,0,0);
+my ($graphiteAlign, $graphiteFqdnFlag, $graphiteRFqdnFlag, $graphiteMinFlag, $graphiteMaxFlag, $graphiteAvgFlag, $graphiteTotFlag, $graphiteFlags)=(0,0,0,0,0,0,0,0);
 my $graphiteOutputFlag=1;
 
 # This sets a flag as soon as we 'require' the module and tells collectl this
@@ -52,7 +52,7 @@
   foreach my $option (@_)
   {
     my ($name, $value)=split(/=/, $option);
-    error("invalid graphite option '$name'")    if $name!~/^[bdefhiprs]?$|^align|^co$|^ttl$|^min$|^max$|^avg$|^tot$/;
+    error("invalid graphite option '$name'")    if $name!~/^[bdefhiprs]?$|^align|^co$|^ttl$|^min$|^max$|^avg$|^tot$|^rf$/;
     $graphiteAlignFlag=1        if $name eq 'align';
     $graphiteBefore=$value      if $name eq 'b';
     $graphiteCOFlag=1           if $name eq 'co';
@@ -64,6 +64,7 @@
     $graphiteSubsys=$value      if $name eq 's';
     $graphiteTTL=$value         if $name eq 'ttl';
     $graphiteFqdnFlag=1		if $name eq 'f';
+    $graphiteRFqdnFlag=1         if $name eq 'rf';
     $graphiteMinFlag=1          if $name eq 'min';
     $graphiteMaxFlag=1          if $name eq 'max';
     $graphiteAvgFlag=1          if $name eq 'avg';
@@ -118,6 +119,7 @@
   $rawtooFlag=1    if $filename ne '' && !$plotFlag;
 
   $graphiteMyHost=(!$graphiteFqdnFlag) ? `hostname` : `hostname -f`;
+  $graphiteMyHost=(!$graphiteRFqdnFlag) ? $graphiteMyHost : join ".", reverse split /\./, $graphiteMyHost;
   chomp $graphiteMyHost;
   $graphiteMyHost =~ s/\./$graphiteEscape/g    if $graphiteEscape ne '';
 
@@ -580,6 +582,7 @@
     d=mask      debugging options, see beginning of graphite.ph for details
     e=escape    escape character to replace '.' with in hostname
     f           use fqdn instead of simple hostname for statistics naming
+    rf          reverse fqdn for statistics naming
     h           print this help and exit
     i=seconds   reporting interval, must be multiple of collect's -i
     p=text      insert this text right after hostname, including '.' if you want one