proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-08-14 07:29:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

avoid unnecessarry delay by using usleep

Browse Source
This commit is contained in:
Dietmar Maurer 2013-12-09 13:15:07 +01:00
parent 19cec2309d
commit eb7047f674
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
data/PVE/Tools.pm
View File

@ -17,6 +17,7 @@ use Encode;
use Digest::SHA;
use Text::ParseWords;
use String::ShellQuote;
use Time::HiRes qw(usleep gettimeofday tv_interval);
our @EXPORT_OK = qw(
$IPV6RE
@ -627,13 +628,16 @@ sub extract_param {
return $res;
}
# Note: we use this to wait until vncterm is ready
# Note: we use this to wait until vncterm/spiceterm is ready
sub wait_for_vnc_port {
my ($port, $timeout) = @_;
$timeout = 5 if !$timeout;
my $sleeptime = 0;
my $starttime = [gettimeofday];
my $elapsed;
for (my $i = 0; $i < $timeout; $i++) {
while (($elapsed = tv_interval($starttime)) < $timeout) {
if (my $fh = IO::File->new ("/proc/net/tcp", "r")) {
while (defined (my $line = <$fh>)) {
if ($line =~ m/^\s*\d+:\s+([0-9A-Fa-f]{8}):([0-9A-Fa-f]{4})\s/) {
@ -645,7 +649,8 @@ sub wait_for_vnc_port {
}
close($fh);
}
sleep(1);
$sleeptime += 100000 if $sleeptime < 1000000;
usleep($sleeptime);
}
return undef;