From 3e042e19f9bf73f7311b354c058d86693e7a0fa2 Mon Sep 17 00:00:00 2001
From: WTMike24 <michael@dismyserver.net>
Date: Mon, 15 Aug 2022 23:18:56 +0000
Subject: [PATCH] Cleaned up comments

---
 perl/vping | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/perl/vping b/perl/vping
index 77d38f5..3227559 100644
--- a/perl/vping
+++ b/perl/vping
@@ -12,8 +12,6 @@ $dns=$ARGV[0];
 my $regex="";
 
 if ($^O == "linux") {
- #$regex='([0-9]+ bytes) from ([a-z\.-]+) \(([0-9\.]+)\).*seq=([0-9]+).*time=([0-9\. ms]+)'
- #$regex='(?<bytes>[0-9]+ bytes) from (?<rhost>[a-z\.-]+) \((?<rip>[0-9\.]+)\).*seq=(?<rseq>[0-9]+).*time=(?<rms>[0-9\. ms]+)';
  $regex=qr/(?<bytes>[0-9]+ bytes) from (?<rhost>[a-z\.-]+) \((?<rip>[0-9\.]+)\).*seq=(?<rseq>[0-9]+).*time=(?<rms>[0-9\.]+) ms/;
  $dedjex=qr/no answer yet for icmp_seq=(?<rseq>[0-9]+)/
 } elsif ($^O == "MSWin32") {
@@ -24,8 +22,6 @@ open(my $PING, "ping -O $dns|") or die "Cannot execute $!";
 
 while (my $line = <$PING>) {
  if ($line =~ $regex) {
-  #print "$4 - $5 - $2 ($3)\n";
-  #print "$+{rseq} - $+{rms} - $+{rhost} ($+{rip})\n";
   if    ($+{rms} > 100) {print color("bright_red");}
   elsif ($+{rms} > 50)  {print color("bright_yellow");}
   printf "% 3s - % 4s ms - %s (%s)\n", $+{rseq}, $+{rms}, $+{rhost}, $+{rip};