nabe-abk

#!/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;
################################################################################

nabe-abk

#!/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;

nabe-abk

/*
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>

nabe-abk

/*
 * gifcat library
 *
 *[TAB=8], [EUC-JP]
 *
 *	Copyright(C)2005 nabe@abk
 *	Last update : 2005/05/30
 * ************************************************** *
 *  This program lisenced under MIT
 * ************************************************** *

nabe-abk

################################################################################
# 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;

nabe-abk

#!/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;

nabe-abk

#!/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;
################################################################################