led.inc ??? morse code ??
-
Hello fellow Netgate community members,
can you please help? I was searching for /dev/led on GitHub to see the open source code and found this instead.. My question is...
How does one activate the morse code led program??
<?php /* * led.inc * * part of pfSense (https://www.pfsense.org) * Copyright (c) 2009-2013 BSD Perimeter * Copyright (c) 2013-2016 Electric Sheep Fencing * Copyright (c) 2014-2024 Rubicon Communications, LLC (Netgate) * All rights reserved. * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. */ $led_root = "/dev/led/led"; /* * Send the control string to an LED */ function led_ctl($led, $str) { global $led_root; if (led_exists($led)) { exec("/bin/echo " . escapeshellarg($str) . " > {$led_root}{$led}"); return true; } return false; } /* * Blink an LED at set speed from 1-9 (1=Very Fast, 9=Very Slow) */ function led_blink($led, $speed = 0) { switch ($speed) { case "reallyfast": case "veryfast": $speed = 1; break; case "fast": $speed = 3; break; case "medium": $speed = 5; break; case "slow": $speed = 7; break; case "reallyslow": case "veryslow": $speed = 9; break; } if (is_numeric($speed) && ($speed > 0) && ($speed < 10)) { return led_ctl($led, "f{$speed}"); } return false; } /* * Blink an LED in a specific pattern * Letters A-J are on from 1/10s to 1s * Letters a-j are off from 1/10s to 1s */ function led_pattern($led, $pattern, $repeat = true) { /* End with a . to stop after one iteration. */ $end = $repeat ? "" : "."; return led_ctl($led, "s{$pattern}{$end}"); } /* * Encode a text message into morse code, and send it to an LED */ function led_morse($led, $message) { return led_ctl($led, "m" . str_to_morse($message)); } /* * Blink digits out on LED at 1/10s intervals * e.g 1=1 blink, 8=8 blinks * 0 is 10 pulses. * One second pause between digits. */ function led_digit($led, $digitstring) { $i = 0; $dstring = "d"; while ($i < strlen($digitstring)) { $thisdigit = substr($digitstring, $i++, 1); if (is_numeric($thisdigit)) { $dstring .= $thisdigit; } } led_ctl($led, $dstring); } /* * Turn an LED on */ function led_on($led) { led_ctl($led, "1"); } /* * Turn an LED off */ function led_off($led) { led_ctl($led, "0"); } /* * Find the number of LEDs present on the system. */ function led_count() { global $led_root; $count = 0; $leds = array(); if (is_dir(dirname($led_root))) { $leds = glob("{$led_root}*"); $count = count($leds); } return $count; } /* * Test to see if a given LED exists. */ function led_exists($led) { global $led_root; if (!is_numeric($led)) { return false; } return file_exists("{$led_root}{$led}"); } /* * Sweep across three LEDs in a K.I.T.T.-like way. */ function led_kitt() { if (led_count() != 3) { /* Wrong LED count for this to work, skip. */ return; } led_pattern(1, 'AaaaaA'); led_pattern(2, 'aAaaAa'); led_pattern(3, 'aaAAaa'); } /* * Custom pattern for assigning interfaces */ function led_assigninterfaces() { if (led_count() != 3) { /* Wrong LED count for this to work, skip. */ return; } led_pattern(1, 'AaaAaaaaaaaaaaaa'); led_pattern(2, 'aaaaaAaaAaaaaaaa'); led_pattern(3, 'aaaaaaaaaaAaaAaa'); } /* * Return the three LEDs to a standard setup (1=on, 2 and 3 = off) */ function led_normalize() { if (led_count() != 3) { /* Wrong LED count for this to work, skip. */ return; } led_on(1); led_off(2); led_off(3); } /* * Shut off ALL LEDs. */ function led_alloff() { if (led_count() != 3) { /* Wrong LED count for this to work, skip. */ return; } led_off(1); led_off(2); led_off(3); } /* * Translate a string to morse code. Characters not known to have a * valid morse code representation will be ignored. */ function str_to_morse($string) { $i = 0; $morsestring = ""; while ($i < strlen($string)) { $morsestring .= char_to_morse(substr($string, $i++, 1)) . " "; } return $morsestring . "\n"; } /* * Translate a single character to morse code. Characters not known * to have a valid morse code representation will be ignored. */ function char_to_morse($char) { switch (strtoupper($char)) { case "A": return ".-"; break; case "B": return "-..."; break; case "C": return "-.-."; break; case "D": return "-.."; break; case "E": return "."; break; case "F": return "..-."; break; case "G": return "--."; break; case "H": return "...."; break; case "I": return ".."; break; case "J": return ".---"; break; case "K": return "-.-"; break; case "L": return ".-.."; break; case "M": return "--"; break; case "N": return "-."; break; case "O": return "---"; break; case "P": return ".--."; break; case "Q": return "--.-"; break; case "R": return ".-."; break; case "S": return "..."; break; case "T": return "-"; break; case "U": return "..-"; break; case "V": return "...-"; break; case "W": return ".--"; break; case "X": return "-..-"; break; case "Y": return "-.--"; break; case "Z": return "--.."; break; case "0": return "-----"; break; case "1": return ".----"; break; case "2": return "..---"; break; case "3": return "...--"; break; case "4": return "....-"; break; case "5": return "....."; break; case "6": return "-...."; break; case "7": return "--..."; break; case "8": return "---.."; break; case "9": return "----."; break; case ".": return ".-.-.-"; break; case ",": return "--..--"; break; case "?": return "..--.."; break; case "'": return ".----."; break; case "!": return "-.-.--"; break; case "/": return "-..-."; break; case "(": return "-.--."; break; case ")": return "-.--.-"; break; case "&": return ".-..."; break; case ":": return "---..."; break; case ";": return "-.-.-."; break; case "=": return "-...-"; break; case "+": return ".-.-."; break; case "-": return "-....-"; break; case "_": return "..--.-"; break; case "$": return "...-..-"; break; case "@": return ".--.-."; break; case '"': return ".-..-."; break; default: return ""; break; } } ?> -
I know that there is some smartphone applications that you can send morse code messages with and read them via the flash and the camera this could work the same way right?
-
Can't you use the serial connector and hookup some LCD or whatever display on it ?
But you made me thinking.
Here, where I live, I might as well be the only one being able able to 'read' morse, as I had to learn it when I was 'selected' for my dutch royal navy services.
Why would you need blinking lights ? -
@Gertjan this is in the pfSense code. My idea exactly ...Why??? How???
Smartphones have an application that auto reads the light based morse code. I know that I have played with it sending messages with the flash and reading them with another phone. I have no idea why this would be included on pfsense... Maybe you remote in and send morse code to the firewall and the admin can see the code with his phone... I have no idea... I thought it was cool code. I wonder how to activate it, it is in the code built with pfsense. :)
-
Depending on the hardware you use, there might be a possibility to manipulate the state of a led, or all the leds, yourself.
The forum mentions this a lot, with code examples.Be aware that pfSense will set the state of the leds whenever it wants, in parallel with your script. The final 'flashy' result might just a led that is flashing, with looks lie morse, but isn't.
-
@Gertjan I made this cool guide for customizing them if you want to check it out
https://forum.netgate.com/topic/186169/netgate-2100-customization-of-leds-guide/
