All pastes #241292 Raw Edit

Untitled

public text v1 · immutable
·published 2006-11-06 02:17 UTC
rendered paste body
    if (%autoconserv. [ $+ [ %n ] ]) {
      tokenize 32 $v1
      if ($gettok(%nsset. [ $+ [ %n ] ],5,32)) { %s = $v1 }
      if ($1- != $null) && (($1 != &null) || ($2 != &null) || ($3 != &null) || ($9- != &null)) { %x = -i $iif(%awretain && $gettok(%away.status,3,32),$v1,$iif($1 != &null,$1,$iif(%s,%s,%nm))) $iif($2 != &null,$2,%na) $iif($3 != &null,$3,%ne) $iif($9- != &null,$9-,%nf) }
      if ($8 != &null) { %n = $8 }
      %q = $+($iif($6,$+($iif(p !isincs %prm,p),$iif(f !isincs %prm,f),$iif(o !isincs %prm,o))),$iif($7 && $sslready,e),$iif(-* iswm %ü,$mid(%ü,2-)))
      if ($regex(sr1,%g,/( -i [^ ]+ [^ ]+ [^ ]+ [^ ]+)/)) { %ö = $regml(sr1,1) }
      if ($regex(sr2,%g,/( -jn [^ ]+(?: [^ ]+)?)/)) { %ä = $regml(sr2,1) }
      noop $regsub(%n,:,$chr(32),%n) $regsub(%n,:,$chr(32),%n)
      !server $iif(%q,- $+ %q) %n $iif(%ö,%ö,$iif(%x,%x,$iif(%s,-i %s %na %ne %nf))) %ä
    }