#!/usr/bin/perl -w

use IO::Socket;

my $version = "1";

# sert à l'automatisation des updates du côté serveur
if ($#ARGV ne "-1") {
	if ($ARGV[0] eq "v") {
		print "$version";
		exit;
	}
}


my($sock, $msg, $answer, $MAXLEN, $PORTNO);
# variables udp



$MAXLEN = 1024;
$PORTNO = 52000;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp')
    or die "socket: $@";

# boucle d'attente de messages
print "Awaiting UDP messages on port $PORTNO (udped version $version)\n";
while ($sock->recv($msg, $MAXLEN)) {
  print "$msg\n";
  $_ = $msg;
#  ($filename, $disk) = split; 
  ($filename) = split; 
  $file = "/etc/$filename";
  if ( -f "$file") {
    $answer = `/bin/cat $file`;
  } else {
    $answer = "ERROR : no $filename file available";
  }
  $sock->send($answer);

}
die "recv: $!";