#!/usr/bin/env perl

use strict;

my $dest=$ARGV[0] or die "need destination file\n";
my $bak="$dest.bootcdbak";

open(IN, $dest) or die "opening $dest: $!";
my @line=<IN>;
close(IN);

foreach(@line) { if(/bootcd\./) {die "Aborting, because it is likely that file is already modified\n"} }

system("cp", "-a", $dest, $bak);

# now insert our lines
splice(@line,1,0,"/etc/bootcd.init\n");
push(@line,"/etc/bootcd.final\n");

# and write it out
open(OUT, "> $dest") or die "opening $dest: $!";
foreach(@line) {print OUT $_; }
