mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
18 lines
416 B
Perl
Executable File
18 lines
416 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# redirect_save.cgi
|
|
# Redirect to the original URL, and optionally save the redirect flag
|
|
|
|
require './web-lib.pl';
|
|
&init_config();
|
|
&ReadParse();
|
|
|
|
# ONLY relative URLs are allowed
|
|
$in{'referer_original'} =~ /^\// || &error($text{'referer_eurl'});
|
|
|
|
if ($in{'referer_again'}) {
|
|
$gconfig{'referer'} = 1;
|
|
&write_file("$config_directory/config", \%gconfig);
|
|
}
|
|
&redirect($in{'referer_original'});
|
|
|