Email Detail

HTTP 200 OK
Allow: GET, HEAD, OPTIONS
Content-Type: application/json
Vary: Accept

{
    "url": "https://mailman.amsat.org/hyperkitty/api/list/[email protected]/email/QX2CYQY2STNDYMYVPVDJI427JPFKI6FT/",
    "mailinglist": "https://mailman.amsat.org/hyperkitty/api/list/[email protected]/",
    "message_id": "[email protected]",
    "message_id_hash": "QX2CYQY2STNDYMYVPVDJI427JPFKI6FT",
    "thread": "https://mailman.amsat.org/hyperkitty/api/list/[email protected]/thread/QX2CYQY2STNDYMYVPVDJI427JPFKI6FT/",
    "sender": {
        "address": "vk4tec (a) people.net.au",
        "mailman_id": null,
        "emails": null
    },
    "sender_name": "Andrew Rich",
    "subject": "[amsat-bb]  Automated station using PERL",
    "date": "2008-01-02T01:03:37Z",
    "parent": null,
    "children": [
        "https://mailman.amsat.org/hyperkitty/api/list/[email protected]/email/FUDPXRC3W5QZEISTEJ45U65JEJWP7FZM/"
    ],
    "votes": {
        "likes": 0,
        "dislikes": 0,
        "status": "neutral"
    },
    "content": "I have made a script that asks predict where GO-32 is.\n\nIt runs once a second.\n\nIt works out if it has to turn off the battery charger and engage the radio.\n\nThe script also uses a file to simulate rotator position (till I get the\nhardware setup).\n\nIt makes a diciscion to turn on and off any of 8 relays, hanging off the\nparrallel port. (Power ON/OFF , Rotator CW/CCW)\n\nI figured I have to have some sort of computer controlling the rotators, so\npush the process control back to the PC instead of the outboard controller.\n\nIn this case, any old A/D would do for the rotator sense.\n\nNext after that will be frequency control.\n\nThat is the beauty of LINUX, it is a one stop shop.\n\n\n--------------------------------------------------------------\nsat_controller.pl ----------------------------------------------------------\n-----------------------\n\n#!/usr/bin/perl\n#\n# sat_controller.pl\n#\n# Andrew Rich VK4TEC - January 2008;\n#\n# Turn on and off power to rack and control a rotator\n#\nuse Socket;\nmy $port = 1210;\nmy ($predict_server, $satellite);\nwhile ()\n{\nopen (sat,\"/maint/scripts/sat_pwr_control.sat\");\nwhile (<sat>)\n{\nchop;\n$satellite = $_;\n}\nclose (sat);\n#\n# Ask predict where the satellite is\n#\n$predict_server = \"localhost\";\nmy ($d1, $d2, $d3, $d4, $rawserver) = gethostbyname($predict_server);\nmy $serveraddr = pack(\"Sna4x8\", 2, $port, $rawserver);\nmy $prototype = getprotobyname('udp');\nsocket(SOCKET,2,SOCK_DGRAM,$prototype) || die(\"No Socket\\n\");\n$| = 1;  # no buffering\n$SIG{ALRM} = \\&time_out;\n#alarm(10);  # Force exit if no response from server\nprint \"Satellite: $satellite\\n\";\nsend(SOCKET, \"GET_SAT $satellite\\0\" , 0 , $serveraddr) or die(\"UDP send\nfailed $!\\n\");\nmy $server_response = '';  # required by recv function\nrecv(SOCKET, $server_response, 100, 0) or die \"UDP recv failed $!\\n\";\nmy ($name, $lon, $lat, $az, $el, $aos_seconds, $foot) = split /\\n/,\n$server_response;\nmy $aos_time_date = gmtime($aos_seconds);\nclose(SOCKET);\nprint \"Azimuth: $az\\n\";\nprint \"Elevation: $el\\n\";\n#\n# Work out if we need to power up the rack\n#\nif ($el =~ m/-/)\n{\n#system (\"/maint/scripts/lptout 128\");\nprint \"Power Relay: OFF\\n\";\n}\nelse\n{\n#system (\"/maint/scripts/lptout 64\");\nprint \"Power Relay: ON\\n\";\n}\n#\n# Turn a rotator\n#\nopen (rot_pos_file , \"/maint/scripts/sat_controller.pos\");\nwhile (<rot_pos_file>)\n{\n$rotpos = $_;\n}\nclose (rot_pos);\nprint \"ROT_POS: $rotpos\\n\";\n$diff = $rotpos - $az;\nprint \"DIFF: $diff\\n\";\nif ($diff > 5)\n{\nif ($diff =~ m/-/)\n{\nsystem (\"/maint/scripts/lptout 1\");\nprint \"MOTOR: CW\\n\";\n$rotpos = $rotpos +5;\nopen (rot_pos , \"> /maint/scripts/sat_controller.pos\");\nprint rot_pos $rotpos;\nclose (rot_pos_file);\n}\nelse\n{\nsystem (\"/maint/scripts/lptout 2\");\nprint \"MOTOR: CCW\\n\";\n$rotpos = $rotpos -5;\nopen (rot_pos_file , \"> /maint/scripts/sat_controller.pos\");\nprint rot_pos_file $rotpos;\nclose (rot_pos_file);\n}\n}\nsleep 1;\nsystem (\"/maint/scripts/lptout 0\");\nprint \"\\n\";\nsleep 1;\n}\nsub time_out\n{\ndie \"Server not responding for satellite $satellite\\n\";\n}\n\n\n----------------------------------------------------------------------------\nAndrew Rich VK4TEC\[email protected]\nhttp://www.tech-software.net\n\n\n",
    "attachments": []
}