#echo %%% Loading listadmsrch.irc...

# Date last modified: 6 Jun 1996

alias listadmsrch {
  if (![$listadmsearch]) {
    if ([$0]) {
      ^assign listadmsearch $0-
      ^on ^notice "OperServ ?? %" {
        if ((rmatch($1 $listadmsearch))||(rmatch($adml_acc $listadmsearch))) {
          xecho -levep crap #OperServ#   $1 \($adml_access\)
          @ adml_srch_found = adml_srch_found + 1
        }
        @ adml_srch_count = adml_srch_count + 1
      }
      ^on ^notice "OperServ End of list" {
        xecho -level crap #OperServ# End of list \(matched ${adml_srch_found}/${adml_srch_count}, search: $listadmsearch\)
        clear_listadmsrch
      }
      ^on -notice "OperServ Sorry, only operators can use this service" {
        clear_listadmsrch
        xecho -level crap ### Admlist search cancelled.
      }
      ^on ^notice "OperServ Service Admin:" {
        ^assign adml_access Service Admin
        ^assign adml_acc admin
      }
      ^on ^notice "OperServ ChanServ/NickServ Admin:" {
        ^assign adml_access CSop
        ^assign adml_acc csop
      }
      ^on ^notice "OperServ Root access users:" {
        ^assign adml_access root access
        ^assign adml_acc root
      }
      @ akill_srch_found = [0]
      msg OperServ listadm
    } {
      eval xecho -level crap ### Usage: ${K}listadmsrch <search pattern(s)>  or  ${K}listadmsrch <admin|csop|root>
    }
  } {
    eval xecho -level crap ### Another listadm search is running. Use ${K}relas to set another search pattern.
  }
}

alias clear_listadmsrch {
  ^on ^notice -"OperServ End of list"
  ^on ^notice -"OperServ Sorry, only operators can use this service"
  ^on ^notice -"OperServ ?? %"
  ^on ^notice -"OperServ Service Admin:"
  ^on ^notice -"OperServ ChanServ/NickServ Admin:"
  ^on ^notice -"OperServ Root access users:"
  assign -adml_access
  assign -adml_acc
  assign -adml_srch_found
  assign -adml_srch_count
  assign -listadmsearch
}

alias relistadmsrch {
  if ([$0]) {
    if ([$listadmsearch]) {
      ^assign listadmsearch $0-
      xecho -level crap ### Listadm search pattern set to $0-.
    } {
      xecho -level crap ### No listadm search is currently active.
    }
  } {
    eval xecho -level crap ### Usage: ${K}relas <new search pattern(s)|admin|csop|root>
  }
}

alias las listadmsrch
alias relas relistadmsrch

eval xecho -level crap ### Admlist search by Wizzu, 6-Jun-96.
eval xecho -level crap ### Usage: ${K}las <search pattern(s)>  or  ${K}las <admin|csop|root>