#!/usr/bin/perl
my $prefix = "/tmp";
my $af_defs = "$prefix/etc/osso-af-init/af-defines.sh";
my $new_defs = 'ssl.defs';
  
sub rewrite_af_defines {
  my @lines = ();
  open AF_DEFS, '<', $af_defs;
  my $i = 0;
  my $x = -1;
  while (my $line = <AF_DEFS>) {
    chomp $line;
    push @lines, $line;
    ++$i;
    if ($line =~ /^  source_if_is\s+$new_defs\b/) {
      close AF_DEFS;
      return;
    }
    $x = $i if $line =~ /^  source_if_is /;
  }
  close AF_DEFS;
  
  splice @lines, $x, 0, "  source_if_is $new_defs";
  open AF_DEFS, '>', "$af_defs.new";
  foreach my $line (@lines) {
    print AF_DEFS "$line\n";
  }
  close AF_DEFS;
  rename $af_defs, "$af_defs.jabber";
  rename "$af_defs.new", $af_defs; 
}

rewrite_af_defines();