loads of changes and added things

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index d5b5adf93994ef4aa6f5fba77689268feff524c3..00b03d845e0cd35ff933f4a595c27dc7c89a4bc7 100644 (file)
--- 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;