X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=00b03d845e0cd35ff933f4a595c27dc7c89a4bc7;hb=47a35911bc7916d60a54fb1e07787d3436be5e81;hp=d5b5adf93994ef4aa6f5fba77689268feff524c3;hpb=b5b58db69484da5554b4f7e10b813d13e8cf16cb;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index d5b5adf9..00b03d84 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -27,6 +27,11 @@ $defaultspots = 10;    # normal number of spots to return
 $maxdays = 35;        # normal maximum no of days to go back
 $dirprefix = "$main::data/spots";
 
+sub init
+{
+  mkdir "$dirprefix", 0777 if !-e "$dirprefix";
+}
+
 sub prefix
 {
   return $dirprefix;