xinetd/config_info.pl

   1
   2 do 'xinetd-lib.pl';
   3
   4 sub show_add_dir
   5 {
   6 local $rv;
   7 $rv .= sprintf "<input type=radio name=add_dir_def value=1 %s> %s\n",
   8         $_[0] ? "" : "checked", $text{'config_dirdef'};
   9 $rv .= sprintf "<input type=radio name=add_dir_def value=0 %s> %s\n",
  10         $_[0] ? "checked" : "", $text{'config_dirto'};
  11 $rv .= sprintf "<input name=add_dir size=30 value='%s'>\n", $_[0];
  12 return $rv;
  13 }
  14
  15 sub parse_add_dir
  16 {
  17 return $in{'add_dir_def'} ? undef : $in{'add_dir'};
  18 }
  19