#!/usr/local/bin/perl # edit_filter.cgi # Display allowed user filter options require './jabber-lib.pl'; &ui_print_header(undef, $text{'filter_title'}, "", "filter"); $conf = &get_jabber_config(); $session = &find_by_tag("service", "id", "sessions", $conf); $jsm = &find("jsm", $session); $filter = &find("filter", $jsm); print "
\n"; &ui_print_footer("", $text{'index_return'});