#!/usr/bin/perl


#############################################
#   UpdateIP.pl - dyndns client
#
#   Jeff Israel
#
#   Licences under GPL
#


#use strict;
#use integer;

#Amount of signatur files -1
@num = 0..5;
# Directory of sig
$directory = "/mnt/backup/backup/";
#sig files
$sig[1] = "sig1.txt";
$sig[2] = "sig2.txt";
$sig[3] = "sig3.txt";
$sig[4] = "sig4.txt";
$sig[5] = "sig5.txt";
$sig[6] = "sig6.txt";

#sig file perminate
$sigperm = "sig.txt";


######################
# Randomize
$randnum = int(rand(@num))+1;
$sigloc = $directory . $sig[$randnum];
$sigpermloc = $directory . $sigperm;

####################
# Copy
open(cp,"|cp $sigloc $sigpermloc");
close(cp);
print "\ncp $sigloc $sigpermloc\n";