mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
33 lines
654 B
Perl
Executable File
33 lines
654 B
Perl
Executable File
# tunnel-lib.pl
|
|
# Common functions for the HTTP-tunnel module
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
&init_config();
|
|
|
|
sub fix_end_url {
|
|
my ($url) = @_;
|
|
if ($url =~ m/^(http|https):\/\/(\S+)$/ ) {
|
|
my $schema = $1."://";
|
|
my $host = $2;
|
|
|
|
# check: http://aa.com
|
|
# check: http://aa.com/bb.html
|
|
# check: http://aa.com/bb/cc.html
|
|
my $host_test = $2;
|
|
$host_test =~ s/\/?[^\/]*\/*$//;
|
|
if ( $host_test eq '' ) {
|
|
$url = "$schema$host/";
|
|
}
|
|
return $url;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
1;
|
|
|