Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
LICENSE	34.32 KB	-rw-r--r--
README.md	62 B	-rw-r--r--
config	32 B	-rw-r--r--
config.info	61 B	-rw-r--r--
delete_jail.cgi	1.25 KB	-rwxr-xr-x
edit_jail.cgi	2.71 KB	-rwxr-xr-x
index.cgi	1022 B	-rwxr-xr-x
install-type	4 B	-rw-r--r--
install_check.pl	376 B	-rwxr-xr-x
jailkit-lib.pl	1 KB	-rwxr-xr-x
module.info	86 B	-rw-r--r--
save_jail.cgi	1.97 KB	-rwxr-xr-x

Code Editor : delete_jail.cgi

#!/usr/bin/perl
use strict;
use warnings;

our (%text, %in);
require './jailkit-lib.pl';
ReadParse();

my $jk_init_ini = get_jk_init_ini();
my @sections = $jk_init_ini->Sections();
my %jail_params;

my @d = split(/\0/, $in{'d'});

# If we've already confirmed go ahead an delete it
if (defined $in{'confirmed'}) {
 foreach my $jail (@d) {
 if ($jk_init_ini->SectionExists($jail)) {
 $jk_init_ini->DeleteSection($jail);
 }
 else {
 # Does this jail exist?
 error( text('error_jail_not_found', "$jail", " \n"));
 }
 }
 write_jk_init_ini($jk_init_ini);
 redirect('');
}
else {
 ui_print_header(undef, $text{'index_delete_jail'}, "");
 print "<center>\n";

# Check to be sure we really want these jails gone
  print ui_form_start("delete_jail.cgi", "post");
  foreach my $jail (@d) {
    # Re-send all of the d_* items with a confirmed field
    print ui_hidden("d", $jail);
  }

print $text{'delete_are_you_sure'};
 print "\n";
 foreach my $del_jail (@d) {
 print "$del_jail \n";
 }
 print "\n";

print ui_hidden("confirmed", "1");
 #print ui_submit($text{delete_confirm}, "confirm");
 print ui_form_end([ [ "confirm", $text{'delete_confirm'} ] ]);
 print "</center>\n";
 ui_print_footer("");
}

ui_print_footer("");

${this.title}

Code Editor : delete_jail.cgi