use strict;
use warnings;
use LWP::Simple;

print "\n\nEnter String for Production or Test System URL
 (e.g PU for Production or TEST Test System):\n";
chomp (my $input = <STDIN>);
$input = uc $input;
my $srv_url= 'http://Usr:pwd@my-home-page';
if ($input eq "TEST")
   {
    $srv_url = 'http://Usr2:pwd2@my-home-page';
   }

my $srv_file = "srv_site.html";
my $content = getstore($srv_url,$srv_file);

open(SRV_HTML,"<$srv_file") or die $!;
while (my $strings = <SRV_HTML>)
{
   if ($strings =~ /href.*workstationid\&value\=([^"]+)".*href.*ipc2\&value\=([0-9\.\:]+)"/i)
   {
      my ($w,$i) = ($1,$2);
      my $srv_list = "http://Usr:pwd@my-home-page=$i";
      &md_files($w,$i,$srv_list);            
   }
}
close SRV_HTML;

sub md_files
   {
   my ($w,$i,$srv_list) = @_;
       my @w1 = $w;
       for my $w1(@w1)
          {
           my $w1 = './home/'.$w1.'.txt';
           open(my $fh, ">$w1") or die $!;
           for ($srv_list)
              {
                my $content = get($srv_list);
                print $fh $content,"\n";
                close $fh;
                &con_cli($fh,$content,$w1,$w);   
              }
          }
    }

sub con_cli
   {
    my ($fh,$content,$w1,$w) = @_;
    my @w2 = $w1;
    my $cli_str;
    for my $cli(@w2)
       {
        open(CLI_HTML,"<$cli") or die $!;
        while ($cli_str = <CLI_HTML>)
             {
              if($cli_str =~ s/<tr><td>CLIENTS=(.+)<\/td><\/tr>/$1/){
              my @cli_str = split '&nbsp;', $cli_str;
              for $cli(@cli_str)
                 {
                  my @wks = split 'pixxadm', $cli;
                  print "$w => @wks\n";
                 }
              }
          }
       }  
    }
close CLI_HTML;