PHP script for sending location APRS message to APRS-IS.

aprslocsend.php

#!/usr/bin/php5
<?php
    $aprs_callsign = '';
    $aprs_passcode = 0;
    $aprs_altinfeet = 2080;
    // W is the WX icon. See http://wa8lmf.net/aprs/APRS_symbols.htm
    // Use GPS coordinate format, see http://www.csgnetwork.com/gpscoordconv.html
    $aprs_coord = '4740.55N/01829.60EW';
    $aprs_comment = 'Gerecse WX - www.ha5kdr.hu';

    $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
    if ($socket) {
        $result = socket_connect($socket, 'hun.aprs2.net', 14580);
        if ($result) {
            // Authenticating
            $tosend = "user $aprs_callsign pass $aprs_passcode\n";
            socket_write($socket, $tosend, strlen($tosend));
            $authstartat = time();
            $authenticated = false;
            while ($msgin = socket_read($socket, 1000, PHP_NORMAL_READ)) {
                if (strpos($msgin, "$aprs_callsign verified") !== FALSE) {
                    $authenticated = true;
                    break;
                }
                // Timeout handling
                if (time()-$authstartat > 5)
                    break;
            }
            if ($authenticated) {
                // Sending position
                $tosend = "$aprs_callsign>APRS,TCPIP*:@" . date('His') . "z$aprs_coord/A=" .
                    str_pad($aprs_altinfeet, 6, '0', STR_PAD_LEFT) . " $aprs_comment\n";
                socket_write($socket, $tosend, strlen($tosend));
                echo $tosend;
            }
        }
        socket_close($socket);
    }
?>