--- bin/BackupPC.orig	2013-10-08 15:16:50.000000000 +0400
+++ bin/BackupPC	2013-10-08 14:40:40.000000000 +0400
@@ -1248,6 +1248,7 @@
 				     $Info->{"${p}FileRepMax"},
 				     $Info->{"${p}FileLinkMax"}, $Info->{"${p}DirCnt"});
 			}
+                        RRDUpdate();
                     }
                 } else {
                     $CmdJob = "";
@@ -2006,3 +2007,51 @@
     exit(1);
 }
 
+#
+# Feeds pool size data values into an RRD $LogDir/pool.rrd
+#
+sub RRDUpdate
+{
+    if ( -x "$BinDir/rrdtool" ) {
+        #
+        # We store data in RRD with predicted time of next update.
+        #
+        my $date = time() + ( 24 * 3600 );
+        if ( !-f "$LogDir/pool.rrd" ) {
+            system( "$BinDir/rrdtool create $LogDir/pool.rrd"
+                  . " --step 86400"
+                  . " DS:c3kB:GAUGE:172800:0:U"
+                  . " DS:tpkB:GAUGE:172800:0:U"
+                  . " DS:p3kB:GAUGE:172800:0:U"
+                  . " DS:p4kB:GAUGE:172800:0:U"
+                  . " DS:c4kB:GAUGE:172800:0:U"
+                  . " RRA:AVERAGE:0.5:1:1400" );
+        }
+
+        #
+        # Calculate pool size totals prior to poolng and compression
+        #
+        my $sizeTot;
+        foreach my $host ( sort( keys( %{ $bpc->HostInfoRead() } ) ) ) {
+            my @Backups = $bpc->BackupInfoRead($host);
+            for ( my $i = 0 ; $i < @Backups ; $i++ ) {
+                $sizeTot += $Backups[$i]{size};
+            }
+        }
+        $sizeTot = $sizeTot / 1024;
+
+        system( "$BinDir/rrdtool update $LogDir/pool.rrd "
+              . $date               . ":"
+              . $Info->{"cpoolKb"}  . ":"
+              . $sizeTot            . ":"
+              . $Info->{"poolKb"}   . ":"
+              . $Info->{"pool4Kb"}  . ":"
+              . $Info->{"cpool4Kb"} )
+          or printf( LOG "%sRRD updated:"
+              . " date %s; cpoolKb %f; total %f;"
+              . " poolKb %f; pool4Kb %f; cpool4Kb %f\n",
+            $bpc->timeStamp,
+            $date, $Info->{"cpoolKb"}, $sizeTot,
+            $Info->{"poolKb"}, $Info->{"pool4Kb"}, $Info->{"cpool4Kb"} );
+    }
+}
