#!/usr/bin/perl -w
use strict;
if ($ARGV[0])
{
 system("clear");
 open (FILE,$ARGV[0]) || die ("Ficheiro nao existe!\n\n");
 print ("Ficheiro aberto com sucesso!\n\n");
 my @array1 = <FILE>;
 close(FILE);
 my $i=0;
 my $ipaddrserver;
 for($i;$i<$#array1;$i++)
 {
  if ($array1[$i] =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/g)
  {
   chomp($array1[$i]);
   $ipaddrserver = $array1[$i];
   system("showmount -e $array1[$i] > partilhas.txt");
   open(FILE,"partilhas.txt");
   my @array2 = <FILE>;
   close(FILE);
   my $linha2;
   my $nrlinhas = @array2;
   if ($nrlinhas eq 1)
   {
    print "Nao existem pastas partilhadas no servidor $array1[$i].\n\n";
   }
   elsif ($nrlinhas eq 0)
   {
    print "Servidor $array1[$i] nao responde.\n\n";
   }
   else
   {
    foreach $linha2 (@array2)
    {
     my @temp = split(/ /,$linha2);
     if ($temp[0] =~ /^\//)
     {
      for($i;$i<=$#array1;$i++)
      {
       if ($array1[$i] =~ /^\//)
       {
    chomp($array1[$i]);
    if (! -d "$array1[$i]")
    {
     system ("mkdir $array1[$i]");
    }
    system("mount -t nfs -v $ipaddrserver:$temp[0] $array1[$i]");
    print("\n");
       }
       elsif ($array1[$i] =~ /^\#/)
       {
        last;
       }
      }
     }
    }
   }
  }
  else
  {
   $i++;
  }
 }
}
else
{
system("clear");
die ("ERRO!\nTem de inserir o nome do ficheiro\nExemplo:\n\n\t sudo ./partilhacliente.pl <nome do ficheiro>\n\n\n");
}