#!/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 $found = -1;
  while (my $line = <AF_DEFS>) {
    chomp $line;
    push @lines, $line;
    $found = $i if $line =~ /^  source_if_is\s+$new_defs\b/;
    ++$i;
  }
  close AF_DEFS;
  return if $found == -1;
  
  splice @lines, $found, 1;
  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();