#!/usr/bin/perl -wT
use strict;
use IO::Socket;
use POSIX qw(setsid);
use vars qw( $pid $server $client $read_tmp @numbers $number $msg $dat
+e $cnt );
umask 0177;
$| = 1;

# Do not allow this server to be run as root.
if( $< != 0 ) {
        die "You must run this as root.\n";
}

$pid = fork();
if( $pid ) {
        exit;
} else {
        setsid or die "Could not start new session.\n";

        $server = IO::Socket::INET->new( Type        => SOCK_STREAM,
                                         LocalPort   => "5001",
                                         Proto       => "tcp",
                                         Reuse       => "1",
                                         Listen      => "20",
                                         Blocking    => "0"
                                       )
           or die "Could not bind to port 5001.\n";

        #print "Daemon now running in the background using PID [" . $$
+ . "].\n";
        write_pid();
        $cnt = 0;
}

while( $client = $server->accept() ) {
        $client->autoflush(1);
        while( defined( $client->recv( $read_tmp, 1024 ) ) ) {
                 chomp $read_tmp;

                 # Check the data we're being given for malicious char
+acters.
                 if( $read_tmp =~ /quit/ ) {
                        server_exit( "501 Exiting normally." );
                 }
                 if( $read_tmp =~ /^send ([0-9,]+) (.+)$/i ) {
                        @numbers = split( ",", $1 );
                        $msg = $2;

                        foreach $number ( @numbers ) {
                                # Get the epoch...
                                $date = time;
                                # Increment the counter...
                                $cnt++;

                                open( SMS, "> /var/spool/sms/OTHER/sms
+.$date.$cnt" ) || die "Couldn't open SMS file: $!\n";
                                print SMS << "end";
To: $number

$msg
end
                                close( SMS );
                        }
                        print $client "Message sent.\n";
                 } else {
                        server_exit( "504 Invalid characters used in s
+erver query." );
                 }
        }
}

sub server_exit {
        my( $errmsg ) = @_;
        if( defined( $msg ) && defined( $client ) ) {
                print $client "$errmsg\n";
        }
        close( $client );
}

sub write_pid {
        my( $pid ) = $$;
        open( PID, "> /var/run/sms_server.pid" ) || die "Could not ope
+n PIDFILE.\n";
        print PID $$ . "\n";
        close( PID );
}
[download]