X-Git-Url: http://git.draconx.ca/gitweb/fvwmconf.git/blobdiff_plain/dc39ff1e216d0f6d65baa9f4b1ec8af673f4f4fd..6aabf745087523417cc0a7078f24257e3d6bdf94:/common/wallpaper

diff --git a/common/wallpaper b/common/wallpaper
index acd270f..a80e320 100644
--- a/common/wallpaper
+++ b/common/wallpaper
@@ -23,4 +23,8 @@ AddToFunc   SetWallpaper
  + I Exec exec $[SETROOT] "$[BGFILE]"
 
 AddToFunc InitFunction
- + I Exec exec $[SETROOT] "$[BGFILE]"
+ + I Exec if [ -f "$[BGFILE]" ]; then \
+              $[SETROOT] "$[BGFILE]"; \
+          else \
+	      $[SETROOT] "$($[FVWM_USERDIR]/scripts/randombg.pl $[BGROOT])"; \
+	  fi