WebSVN – wimsdev – Diff – /trunk/wims/public_html/modules/adm/manage/conf.proc

 n=!recordcnt lang/cat.$modu_lang
 !bound confcat between 1 and $n default 1
 l=!record $confcat of lang/cat.$modu_lang
 !distribute lines $l into catname, cattit
 !if $catname=housekeep
- !readproc mu/publishdownload.def
+  !readproc mu/publishdownload.def
 !endif
 !if $catname=appearances
   csslist=!sh cd html/css/$lang; ls *.css | sed 's/\.css$$//' | sort
   csslist=!words2items ---- -theme- $csslist
     !set iconpromptlist=!append item $icon_title to $iconpromptlist
   !next
 !endif
 !if $catname=graphics
- chtest=!sh ls $wims_home/chroot/tmp/sessions/.chroot 2>/dev/null
+  chtest=!sh ls $wims_home/chroot/tmp/sessions/.chroot 2>/dev/null
- !if chroot isin $chtest
+  !if chroot isin $chtest
-  cvtest=new.png
+    cvtest=new.png
- !else
+  !else
-  cvtest=!sh convert gifs/new.gif ../tmp/new.png >/dev/null\
+    cvtest=!sh convert gifs/new.gif ../tmp/new.png >/dev/null\
-   ls ../tmp/new.png 2>/dev/null\
+    ls ../tmp/new.png 2>/dev/null\
-   rm -f ../tmp/new.png >/dev/null
+    rm -f ../tmp/new.png >/dev/null
- !endif
+  !endif
 !endif
 !if $catname=software
- !reset othermiss
+  !reset othermiss
- !distribute items tool/number/baseconv,\
+  !distribute items tool/number/baseconv,\
-	H6/algebra/decrypt,\
+	 H6/algebra/decrypt,\
-	adm/doc,\
+	 adm/doc,\
-	H5/physics/chim1,\
+	 H5/physics/chim1,\
-	H5/physics/travail,\
+	 H5/physics/travail,\
-	into mod_bc,mod_fortune,mod_perl,mod_chemeq,mod_units,babel
+	 into mod_bc,mod_fortune,mod_perl,mod_chemeq,mod_units,babel
- otherlist=tex perl bc fortune chemeq units-filter ldapsearch tac
+  otherlist=tex perl bc fortune chemeq units-filter ldapsearch tac
- test=!sh for bin in $otherlist\
+  test=!sh for bin in $otherlist\
-  do\
+   do\
    which $$bin\
   done
- otherlist=!words2items $otherlist
+  otherlist=!words2items $otherlist
- !for other in $otherlist
+  !for other in $otherlist
-  !if /$other notin $test
+    !if /$other notin $test
-   othermiss=!append item $other to $othermiss
+      othermiss=!append item $other to $othermiss
-  !endif
+    !endif
- !next other
+  !next other
- !if perl notin in $othermiss
+  !if perl notin in $othermiss
-   !set pack_validation=WebService::Validator::HTML::W3C
+    !set pack_validation=WebService::Validator::HTML::W3C
-   !sh perl -M$pack_validation -e 1
+    !sh perl -M$pack_validation -e 1
-   !if $wims_exec_error!=$empty
+    !if $wims_exec_error!=$empty
-     othermiss=!append item validation to $othermiss
+      othermiss=!append item validation to $othermiss
-     !reset wims_exec_error
+      !reset wims_exec_error
-   !endif
+    !endif
-   !set pack_perldate=Time::Piece
+    !set pack_perldate=Time::Piece
-   !sh perl -M$pack_perldate -e 1
+    !sh perl -M$pack_perldate -e 1
-   !if $wims_exec_error!=$empty
+    !if $wims_exec_error!=$empty
-     othermiss=!append item perldate to $othermiss
+      othermiss=!append item perldate to $othermiss
-     !reset wims_exec_error
+      !reset wims_exec_error
-   !endif
+    !endif
   !endif
-!! test for non posix options for date and stat.
+  !! test for non posix options for date and stat.
   test=!sh date -d '20 minutes' '+%s'
   !if $wims_exec_error!=$empty
-     othermiss=!append item date to $othermiss
+    othermiss=!append item date to $othermiss
-     !reset wims_exec_error
+    !reset wims_exec_error
   !endif
   test=!sh stat -c'%s' .
   !if $wims_exec_error!=$empty
-     othermiss=!append item stat to $othermiss
+    othermiss=!append item stat to $othermiss
-     !reset wims_exec_error
+    !reset wims_exec_error
   !endif
 !endif
 !readdef wimshome/public_html/bases/sys/defaults.conf
 !! test for QRencoder
 testn=!defof QRencode_command in wimshome/log/wims.conf
 !default testn=$DF_QRencode_command
 testn=!word 1 of $testn
 test=!sh which $testn
 !if /$testn notin $test
- !setdef QRencode_open=no in wimshome/log/wims.conf
+  !setdef QRencode_open=no in wimshome/log/wims.conf
- othermiss=!append item QRencode to $othermiss
+  othermiss=!append item QRencode to $othermiss
 !else
- !setdef QRencode_open=yes in wimshome/log/wims.conf
+  !setdef QRencode_open=yes in wimshome/log/wims.conf
 !endif
 !! ---------------- end test
+backup_delete=!defof backup_delete in wimshome/public_html/bases/sys/define.conf
 confcnt=!recordcnt lang/confdata.$modu_lang
 !for i=1 to $confcnt
   l=!record $i of lang/confdata.$modu_lang
   n_=!word 2 of $l
   $n_=$(DF_$n_)
 wims_prefix=
 !readdef wimshome/log/wims.conf
 wims_prefix=$wims_prefix2
 !if $save!=$empty
- changed=0
+  changed=0
- !writefile wimshome/log/wims.conf2 # This file is automatically generated by the online site maintenance tool.\
+  !writefile wimshome/log/wims.conf2 # This file is automatically generated by the online site maintenance tool.\
-# You can still edit it by hand, but documentation is only available in the\
+   # You can still edit it by hand, but documentation is only available in the\
-# online tool.\
+   # online tool.\
-#
+   #
- !for i=1 to $confcnt
+  !for i=1 to $confcnt
-  l=!record $i of lang/confdata.$modu_lang
+    l=!record $i of lang/confdata.$modu_lang
-  ltype=!line 3 of $l
+    ltype=!line 3 of $l
-  lbound=!line 4 of $l
+    lbound=!line 4 of $l
-  l=!line 1 of $l
+    l=!line 1 of $l
-  !distribute words $l into c_,n_,w_
+    !distribute words $l into c_,n_,w_
-  v_=$($n_)
+    v_=$($n_)
-  !if $catname isitemof $c_
+    !if $catname isitemof $c_
-   !!! check the download center
+      !!! check the download center
-   !if housekeep iswordof $catname and mu_download_site iswordof $n_
+      !if housekeep iswordof $catname and mu_download_site iswordof $n_
-    !reset error_list
+        !reset error_list
-    !for depot in $(conf_$i)
+        !for depot in $(conf_$i)
-     addr=!defof mu_site in wimshome/public_html/bases/sys/publishcenter/$depot
+          addr=!defof mu_site in wimshome/public_html/bases/sys/publishcenter/$depot
-     webget_output=test_exists_site
+          webget_output=test_exists_site
-     !exec webget $addr/index.gz
+          !exec webget $addr/index.gz
-     download_site_exists=!record 0 of wimshome/sessions/$wims_session/$webget_output
+          download_site_exists=!record 0 of wimshome/sessions/$wims_session/$webget_output
-     !! the following tests if there is an html answer or if the file is empty
+          !! the following tests if there is an html answer or if the file is empty
-     !! but the first test is no more valid (the answer has changed)
+          !! but the first test is no more valid (the answer has changed)
-     !! and the second one gives an error for some zipped file
+          !! and the second one gives an error for some zipped file
-     !! does not seem very useful
+          !! does not seem very useful
-     !!!if HTTP 404 isin $download_site_exists or $download_site_exists=$empty
+          !!!if HTTP 404 isin $download_site_exists or $download_site_exists=$empty
-     !!   error_list=!append item $depot to $error_list
+          !!   error_list=!append item $depot to $error_list
-     !!!endif HTTP
+          !!!endif HTTP
-    !next depot
+        !next depot
-    !if $error_list!=$empty
+        !if $error_list!=$empty
-     error=no_download_sites
+          error=no_download_sites
+          !exit
+        !endif
+      !endif housekeep
+      v_=$(conf_$i)
+      v_=!trim $v_
+      v_=!singlespace $v_
+      v_=!replace internal \ by $ in $v_
+      !! test if v_ is an integer if it should be and if it is non empty
+      !if $ltype=int and $v_!=$empty
+        v_=!text select 0123456789 in $v_
+      !default v_=$(lbound[2])
+    !endif
+    !!FIXME take in account the parameters in confdata.$lang in case the type is int
+    !! I comment because I am not sure it is a good idea for all fields
+    !! but why is it in the file confdata.xx if it is not used ??
+    !!!if $ltype=int and $v_!=$empty and $(lbound)!=$empty
+    !!  !bound v_ between integer $(lbound[1]) and $(lbound[2])
+    !! !reset ltype lbound
+    !!!endif
+    !if $v_!=$($n_)
+      changed=1
+      $n_=$v_
+    !endif
+    !if $n_=css and $v_=none
+      v_=
-     !exit
+    !endif
+    !if $n_=theme_icon and $wims_theme iswordof column columnb default classic
+      v_=default
     !endif
-   !endif housekeep
-   v_=$(conf_$i)
-   v_=!trim $v_
-   v_=!singlespace $v_
-   v_=!replace internal \ by $ in $v_
-!! test if v_ is an integer if it should be and if it is non empty
-   !if $ltype=int and $v_!=$empty
-       v_=!text select 0123456789 in $v_
-       !default v_=$(lbound[2])
-   !endif
-!!FIXME take in account the parameters in confdata.$lang in case the type is int
-!! I comment because I am not sure it is a good idea for all fields
-!! but why is it in the file confdata.xx if it is not used ??
-   !!!if $ltype=int and $v_!=$empty and $(lbound)!=$empty
-   !!  !bound v_ between integer $(lbound[1]) and $(lbound[2])
-   !! !reset ltype lbound
-   !!!endif
-   !if $v_!=$($n_)
-    changed=1
-    $n_=$v_
-   !endif
-   !if $n_=css and $v_=none
-    v_=
-   !endif
-   !if $n_=theme_icon and $wims_theme iswordof column columnb default classic
-    v_=default
-   !endif
   !endif
   !if $v_!=$(DF_$n_)
-   !appendfile wimshome/log/wims.conf2 $n_=$v_
+    !appendfile wimshome/log/wims.conf2 $n_=$v_
   !endif
   !if $w_ !=$empty and $w_ iswordof wims_bgcolor wims_bgimg wims_ref_bgcolor wims_css wims_theme wims_theme_icon wims_ref_menucolor \
-    ref_button_help_bgcolor ref_button_help_color ref_button_bgcolor ref_button_color
+      ref_button_help_bgcolor ref_button_help_color ref_button_bgcolor ref_button_color
-   $w_=$v_
+    $w_=$v_
   !endif
- !next i
+!next i
- !if $changed>0
+!if $changed>0
   backdir=!mexec scripts/confcopy.sh
- !endif
+!endif
  !sh rm -f $wims_home/log/wims.conf2
  !restart cmd=reply
 !endif

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/modules/adm/manage/conf.proc – Rev 13004 → 13111