#!/usr/bin/env perl

use strict;

my (@iplist,$template,$hostname,$currip) = ((),'','','');

#open ip list file
open(IPFILE,"<iplist.csv") or die "Failed to open IP list file.";
#read all lines into array
my (@ipfile,$i) = ((),0);
@ipfile = <IPFILE>;
#for each line in the ip file...
foreach(@ipfile)
{
    #strip leading and trailing spaces off the line
    chomp($_);
    #use regular expressions to pull the
    #ip address from the line. I have to
    #check to see if the regex will do
    #what it's supposed to.
    ($hostname,$iplist[$i]) =~ split(/,/);
    chomp($iplist[$i]);
    ++$i;
}
#close ip list file
close(IPFILE);

#open template file
open(CPPTEMPLATE,"<VNC.cpp") or die "Failed to open template file.";

#load entire file into single string...
#undefine end-of-record variable, which is \n by default. this will result
#in the file being divided up into an array of lines instead of one single
#string like we want.
undef $/;

#read the file into $template.
$template = VNC.cpp;

#reset $/ to avoid problems.
$/ = "\n";

#for each ip address in the list...
foreach(@iplist)
{
    #get the current ip
    $currip = $_;
    #open the output file
    open(CPPOUT,">$currip.cpp") or die "Failed to open $currip.cpp for writing.";
    #replace all instances of __PUTIPHERE__ in the template file with the
    #current ip address.
    $template =~ /__PUTIPHERE__/$currip/g;
    #print the result to the output file.
    print CPPOUT $template;
    #close the output file
    close(CPPOUT);
}

#close template file
close(CPPTEMPLATE);

#exit
1;