proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-07-20 21:45:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

export regular expressions for IPv4 and IPv6 addresses

Browse Source 
The regular expression in Regexp::IPv6 is very difficult to read, so
we simply define our own here.
This commit is contained in:
Dietmar Maurer 2013-10-30 12:38:30 +01:00
parent 28dfcc3179
commit 602ec0cd71
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
data/PVE/Tools.pm
View File

@ -19,6 +19,8 @@ use Text::ParseWords;
use String::ShellQuote;
our @EXPORT_OK = qw(
$IPV6RE
$IPV4RE
lock_file
lock_file_full
run_command
@ -40,6 +42,22 @@ my $pvetaskdir = "$pvelogdir/tasks";
mkdir $pvelogdir;
mkdir $pvetaskdir;
my $IPV4OCTET = "(?:25[0-5]|(?:[1-9]|1[0-9]|2[0-4])?[0-9])";
our $IPV4RE = "(?:(?:$IPV4OCTET\\.){3}$IPV4OCTET)";
my $IPV6H16 = "(?:[0-9a-fA-F]{1,4})";
my $IPV6LS32 = "(?:(?:$IPV4RE|$IPV6H16:$IPV6H16))";
our $IPV6RE = "(?:" .
"(?:(?:" . "(?:$IPV6H16:){6})$IPV6LS32)|" .
"(?:(?:" . "::(?:$IPV6H16:){5})$IPV6LS32)|" .
"(?:(?:(?:" . "$IPV6H16)?::(?:$IPV6H16:){4})$IPV6LS32)|" .
"(?:(?:(?:(?:$IPV6H16:){0,1}$IPV6H16)?::(?:$IPV6H16:){3})$IPV6LS32)|" .
"(?:(?:(?:(?:$IPV6H16:){0,2}$IPV6H16)?::(?:$IPV6H16:){2})$IPV6LS32)|" .
"(?:(?:(?:(?:$IPV6H16:){0,3}$IPV6H16)?::(?:$IPV6H16:){1})$IPV6LS32)|" .
"(?:(?:(?:(?:$IPV6H16:){0,4}$IPV6H16)?::" . ")$IPV6LS32)|" .
"(?:(?:(?:(?:$IPV6H16:){0,5}$IPV6H16)?::" . ")$IPV6H16)|" .
"(?:(?:(?:(?:$IPV6H16:){0,6}$IPV6H16)?::" . ")))";
sub run_with_timeout {
my ($timeout, $code, @param) = @_;