#!/usr/bin/perl # edit_service.cgi # Show a form for editing or creating a user-defined require './itsecur-lib.pl'; &can_use_error("services"); &ReadParse(); if ($in{'new'}) { &header($text{'service_title1'}, "", undef, undef, undef, undef, &apply_button()); } else { &header($text{'service_title2'}, "", undef, undef, undef, undef, &apply_button()); @services = &list_services(); #$service = $services[$in{'idx'}]; if (defined($in{'idx'})) { $service = $services[$in{'idx'}]; } else { ($service) = grep { $_->{'name'} eq $in{'name'} } @services; $in{'idx'} = $services->{'index'}; } } print "