website/inc/langset.inc

   1 #
   2 #
   3 # all definitions in the include rely on the existence of $LANG
   4 #
   5 #
   6 ###############################################################################
   7 # define base languages of the document
   8 ###############################################################################
   9 #use wml::std::lang
  10 <set-var lntmp=<downcase "$(LANGS)" /> />
  11 <while <match <get-var lntmp /> "[a-z][a-z]" />>
  12   <set-var lan=<match <get-var lntmp /> "[a-z][a-z]" action=extract /> />
  13   <set-var lntmp=<match <get-var lntmp /> "[a-z][a-z]" action=delete /> />
  14   <lang:new id=<get-var lan /> short />
  15 </while>
  16
  17 ###############################################################################
  18 ## creates .var file for automatic language selection
  19 ###############################################################################
  20 [LANG_VAR:
  21 URI: $(WML_SRC_BASENAME)
  22 <set-var lntmp=<downcase "$(LANGS)" /> />
  23 <while <match <get-var lntmp /> "[a-z][a-z]" /> >
  24   <set-var lan=<match <get-var lntmp /> "[a-z][a-z]" action=extract /> />
  25   <set-var lntmp=<match <get-var lntmp /> "[a-z][a-z]" action=delete /> />
  26 <protect></protect>
  27 URI: $(WML_SRC_BASENAME).<get-var lan />.html
  28 Content-type: text/html
  29 Content-language: <get-var lan />
  30 </while>
  31 <protect></protect>
  32 URI: $(WML_SRC_BASENAME).en.html
  33 Content-type: text/html
  34 :LANG_VAR]