#!/usr/bin/perl

use warnings;
use strict;
require '/var/ipfire/general-functions.pl';

my %settings = ();

$settings{'virtualIP'} = "10.99.99.93/24";
$settings{'interface'} = "red0";

sub manageIP {
    my ($action, %settings) = @_;

    # Initialize variables
    my @loxicmd_options;
    my $command = 'loxicmd';

    my $ip = $settings{'virtualIP'};
    my $interface = $settings{'interface'};

    push(@loxicmd_options, $action, "ip", $ip, $interface);

    # Execute the command
    my $result = &General::system($command, @loxicmd_options);

    # Check for errors
    if ($result != 0) {
        print "Error: Failed to execute loxicmd command.\n";
        # You might want to add more detailed error handling here
    }
}

sub CreateIP {
    my (%settings) = @_;
    manageIP("create", %settings);
}

sub DeleteIP {
    my (%settings) = @_;
    manageIP("delete", %settings);
}

&CreateIP(%settings);