X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=00b03d845e0cd35ff933f4a595c27dc7c89a4bc7;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hp=d5b5adf93994ef4aa6f5fba77689268feff524c3;hpb=3f145290a93b39bf15b50269dd8be585d7b4bc9c;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;