Various build-tweaks and cache tweaks

- mibs are moved to data/, update gitignore
- Adjust cache for switches and switches-management to improve
  responsiveness when adding new content.
- Ensure mibs are correctly loaded if the data directory doesn't exist
- Add a small timer to the startup of ping collector/snmp to avoid
  starting before graphite.

7 files changed, 13 insertions, 6 deletions

diff --git a/.gitignore b/.gitignore
index df11f60..35d595f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,2 @@
 .*.swp
-mibs/
+data/
diff --git a/build/storage-schemas.conf b/build/storage-schemas.conf
index 3623365..695ec0e 100644
--- a/build/storage-schemas.conf
+++ b/build/storage-schemas.conf
@@ -12,10 +12,10 @@ pattern = ^carbon\.
 retentions = 60:90d
 
 [ping]
-pattern = ping.*
+pattern = ^ping\.
 retentions = 1s:1d, 1m:20d
 
-[default_1min_for_1day]
+[default_1min_for_14day]
 pattern = .*
-retentions = 60s:1d
+retentions = 1m:14d
 
diff --git a/build/test/snmpfetch-misc.sh b/build/test/snmpfetch-misc.sh
index 0453c59..973e932 100755
--- a/build/test/snmpfetch-misc.sh
+++ b/build/test/snmpfetch-misc.sh
@@ -1,5 +1,6 @@
 #!/bin/bash
 service snmpd start
+mkdir -p /opt/gondul/data
 cd /opt/gondul/data
 if [ ! -d mibs ]; then
 	../extras/tools/get_mibs.sh
diff --git a/collectors/ping.pl b/collectors/ping.pl
index 689efd4..6cb3bb5 100755
--- a/collectors/ping.pl
+++ b/collectors/ping.pl
@@ -21,6 +21,8 @@ my $lq = $dbh->prepare("SELECT linknet,addr1,addr2 FROM linknets WHERE addr1 is
 
 my $last = time();
 my $target = 0.7;
+# Hack to avoid starting the collector before graphite is up.
+sleep(5);
 my $sock = IO::Socket::IP->new(
        PeerHost => "$nms::config::graphite_host:$nms::config::graphite_port",
         Timeout => 20,
diff --git a/collectors/snmpfetchng.pl b/collectors/snmpfetchng.pl
index ab91e14..7c62ed3 100755
--- a/collectors/snmpfetchng.pl
+++ b/collectors/snmpfetchng.pl
@@ -56,6 +56,8 @@ sub mylog
 	printf STDERR "[%s] %s\n", $time, $msg;
 }
 
+# Hack to avoid starting the collector before graphite is up.
+sleep(5);
 my $sock = IO::Socket::IP->new(
        PeerHost => "$nms::config::graphite_host:$nms::config::graphite_port",
         Timeout => 20,
diff --git a/web/api/public/switches b/web/api/public/switches
index ce95e5f..5528789 100755
--- a/web/api/public/switches
+++ b/web/api/public/switches
@@ -10,7 +10,8 @@ use strict;
 use warnings;
 use Data::Dumper;
 
-$nms::web::cc{'max-age'} = "60";
+$nms::web::cc{'max-age'} = "5";
+$nms::web::cc{'stale-while-revalidate'} = "30";
 
 my $q2 = $nms::web::dbh->prepare('select switch,sysname,tags,distro_name,placement,mgmt_v4_addr,mgmt_v6_addr,mgmt_v4_gw,mgmt_v6_gw,mgmt_vlan,traffic_vlan,last_config_fetch,current_mac,poll_frequency,community,last_updated,switchtype from switches where placement is not null');
 
diff --git a/web/api/read/switches-management b/web/api/read/switches-management
index 8d899b7..33fc6ab 100755
--- a/web/api/read/switches-management
+++ b/web/api/read/switches-management
@@ -10,7 +10,8 @@ use strict;
 use warnings;
 use Data::Dumper;
 
-$nms::web::cc{'max-age'} = "60";
+$nms::web::cc{'max-age'} = "5";
+$nms::web::cc{'stale-while-revalidate'} = "30";
 
 my $q2 = $nms::web::dbh->prepare('select sysname,mgmt_v4_addr,subnet4,subnet6,mgmt_v6_addr,mgmt_v4_gw,mgmt_v6_gw,mgmt_vlan,traffic_vlan,last_config_fetch,current_mac,poll_frequency,last_updated,distro_phy_port,community from switches where placement is not null');