mirror of
https://github.com/webmin/webmin.git
synced 2026-10-01 18:00:58 +01:00
20 lines
593 B
Perl
Executable File
20 lines
593 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Target of the "apply" link shown at the right of the page title. In a
|
|
# real module this is where the configuration would be applied or a
|
|
# service restarted, usually followed by a redirect back to the page the
|
|
# link was on, given in the redir parameter. This module is read-only, so
|
|
# it only redirects.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
require './ui-demo-lib.pl'; ## no critic
|
|
our (%in);
|
|
|
|
ReadParse();
|
|
|
|
# Only ever go back to this module's own index page
|
|
my $redir = $in{'redir'} || '';
|
|
$redir = 'index.cgi' if ($redir !~ /^index\.cgi(\?[\w=&.-]*)?$/);
|
|
redirect($redir);
|