This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################ | |
# Nonblocking io for perl/socket (PDS) | |
################################################################################ | |
sub set_block { | |
my $sock = shift; | |
return &set_nonblock($sock, 1); | |
} | |
sub set_nonblock { | |
my $sock = shift; | |
my $block = shift; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
* gifcat library | |
* | |
*[TAB=8], [EUC-JP] | |
* | |
* Copyright(C)2005 nabe@abk | |
* Last update : 2005/05/30 | |
* ************************************************** * | |
* This program lisenced under MIT | |
* ************************************************** * |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
UFS2 text undelete | |
Lisence: GPL (C)2004/12/10 nabe@abk | |
Sorry, Comment is ja_JP.eucJP. | |
*/ | |
#include <stdio.h> | |
#include <stdlib.h> | |
#include <string.h> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
################################################################################ | |
# DLNA multicast relay (C)2015/11/13 nabe@abk / GPLv2 or later | |
################################################################################ | |
use strict; | |
use Socket; | |
use IO::Select; | |
use IO::Interface::Simple; | |
use IO::Socket::Multicast; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
################################################################################ | |
# IP camera relay (Webcam/VAPIX relay) (C)2015-2019 nabe@abk | |
################################################################################ | |
# This program is licensed under GPLv2 or later. | |
# | |
use strict; | |
use Socket qw(:all); | |
use Fcntl; | |
################################################################################ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
#----------------------------------------------------------------------------- | |
# Check SSL expiration | |
# (C)2019-2020 nabe / nabe@abk | |
#----------------------------------------------------------------------------- | |
# ./check_SSL_expiration.pl [-s] [notify_address] | |
# -s silent mode | |
#----------------------------------------------------------------------------- | |
use strict; | |
use Time::Local; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
################################################################################ | |
# SSDP discover Written by nabe@abk / This is PDS | |
################################################################################ | |
use strict; | |
use Socket; | |
my $CAST = '239.255.255.250'; | |
my $PORT = 1900; | |
################################################################################ |