]>
git.proxmox.com Git - pve-client.git/blob - PVE/Tools.pm
5 use POSIX
qw(EINTR EEXIST EOPNOTSUPP);
18 my $IPV4OCTET = "(?:25[0-5]|(?:2[0-4]|1[0-9]|[1-9])?[0-9])";
19 our $IPV4RE = "(?:(?:$IPV4OCTET\\.){3}$IPV4OCTET)";
20 my $IPV6H16 = "(?:[0-9a-fA-F]{1,4})";
21 my $IPV6LS32 = "(?:(?:$IPV4RE|$IPV6H16:$IPV6H16))";
24 "(?:(?:" . "(?:$IPV6H16:){6})$IPV6LS32)|" .
25 "(?:(?:" . "::(?:$IPV6H16:){5})$IPV6LS32)|" .
26 "(?:(?:(?:" . "$IPV6H16)?::(?:$IPV6H16:){4})$IPV6LS32)|" .
27 "(?:(?:(?:(?:$IPV6H16:){0,1}$IPV6H16)?::(?:$IPV6H16:){3})$IPV6LS32)|" .
28 "(?:(?:(?:(?:$IPV6H16:){0,2}$IPV6H16)?::(?:$IPV6H16:){2})$IPV6LS32)|" .
29 "(?:(?:(?:(?:$IPV6H16:){0,3}$IPV6H16)?::(?:$IPV6H16:){1})$IPV6LS32)|" .
30 "(?:(?:(?:(?:$IPV6H16:){0,4}$IPV6H16)?::" . ")$IPV6LS32)|" .
31 "(?:(?:(?:(?:$IPV6H16:){0,5}$IPV6H16)?::" . ")$IPV6H16)|" .
32 "(?:(?:(?:(?:$IPV6H16:){0,6}$IPV6H16)?::" . ")))";
34 our $IPRE = "(?:$IPV4RE|$IPV6RE)";
36 sub file_set_contents
{
37 my ($filename, $data, $perm) = @_;
39 $perm = 0644 if !defined($perm);
41 my $tmpname = "$filename.tmp.$$";
44 my ($fh, $tries) = (undef, 0);
45 while (!$fh && $tries++ < 3) {
46 $fh = IO
::File-
>new($tmpname, O_WRONLY
|O_CREAT
|O_EXCL
, $perm);
47 if (!$fh && $! == EEXIST
) {
48 unlink($tmpname) or die "unable to delete old temp file: $!\n";
51 die "unable to open file '$tmpname' - $!\n" if !$fh;
52 die "unable to write '$tmpname' - $!\n" unless print $fh $data;
53 die "closing file '$tmpname' failed - $!\n" unless close $fh;
62 if (!rename($tmpname, $filename)) {
63 my $msg = "close (rename) atomic file '$filename' failed: $!\n";
69 sub file_get_contents
{
70 my ($filename, $max) = @_;
72 my $fh = IO
::File-
>new($filename, "r") ||
73 die "can't open '$filename' - $!\n";
75 my $content = safe_read_from
($fh, $max, 0, $filename);
82 sub file_read_firstline
{
85 my $fh = IO
::File-
>new ($filename, "r");
94 my ($fh, $max, $oneline, $filename) = @_;
96 $max = 32768 if !$max;
98 my $subject = defined($filename) ?
"file '$filename'" : 'input';
103 while ($count = sysread($fh, $input, 8192, $br)) {
105 die "$subject too long - aborting\n" if $br > $max;
106 if ($oneline && $input =~ m/^(.*)\n/) {
111 die "unable to read $subject - $!\n" if !defined($count);
117 my $listtxt = shift || '';
119 return split (/\0/, $listtxt) if $listtxt =~ m/\0/;
121 $listtxt =~ s/[,;]/ /g;
122 $listtxt =~ s/^\s+//;
124 my @data = split (/\s+/, $listtxt);