#!/usr/bin/perl
# cpanel - mainipcheck                            Copyright(c) 2010 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::DIp::MainIP   ();
use Cpanel::LoadFile      ();

my $mainip    = Cpanel::DIp::MainIP::getmainserverip();
my $oldmainip = Cpanel::LoadFile::loadfile('/var/cpanel/mainip');
chomp $oldmainip;
chomp $mainip;

if ( !$oldmainip ) {
    open( my $mainip_fh, '>', '/var/cpanel/mainip' );
    print {$mainip_fh} $mainip;
    close($mainip_fh);
    $oldmainip = $mainip;
}

if ( $oldmainip ne $mainip ) {
    require Cpanel::Config::Users;
    print "Warning: mainip has changed from $oldmainip to $mainip.\n";

    my @users = Cpanel::Config::Users::getcpusers();
    foreach my $user (@users) {
        print "Updating SPF records for $user...";
        system '/usr/local/cpanel/bin/spf_updater', $user;
        print "Done\n";
    }

    open( my $mainip_fh, '>', '/var/cpanel/mainip' );
    print {$mainip_fh} $mainip;
    close($mainip_fh);
}