JohnMertz

Installing a BootC image on OVH

OVH does not provide any OS versions which natively use bootable container images, however it is possible to replace an existing OS.

WARNING

This will overwrite the system which it is installed on. It is recommended to do this on a brand new VPS or one that you have absolutely no use for.

Install a fresh VPS

JohnMertz

#!/usr/bin/perl

use strict;
use warnings;
use POSIX ":sys_wait_h";
STDOUT->flush();

use File::Which qw( which );

foreach ( qw| convert scanimage | ) {

JohnMertz

#!/usr/bin/perl

use strict;
use warnings;

# Dependencies
use LWP::UserAgent; # Usually pre-installed, available on CPAN
use XML::Hash::XS;  # CPAN or libxml-hash-xs-perl on Debian

# Feeds that should be used if no arguments are provided

JohnMertz

#!/usr/bin/perl

########################################################################
# Dependencies
########################################################################
#
# Depends on JSON::XS and Proc::ProcessTable
#
# Debian:
# apt install libjson-xs-perl libproc-processtable-perl

JohnMertz

#!/usr/bin/perl

# Accompanying SystemD Unit file compatible with these locations/user: https://gist.github.com/JohnMertz/c6bb4a9298dd3dc53b8030ff50466226
#
# Expects the following minecraft directories:
# ./                    The PWD is taken dynamically. In the SystemD unit, it is /var/lib/minecraft
# current               The latest version. This will be the executable directory.
# 1.16.2                Directories will be created for every old version
# update_minecraft.pl   This script
#

JohnMertz

[Unit]
Description=Minecraft
After=network.target

[Service]
Type=simple
User=minecraft
Group=minecraft
WorkingDirectory=/var/lib/minecraft/current
ExecStart=java -jar -Xmx2G -Xms1G server.jar --nogui

JohnMertz

#!/usr/bin/perl

use strict;
use warnings;

use Net::Ping;

my $file = "/tmp/amihome";
my $host = "192.168.2.127";

JohnMertz

#!/usr/bin/perl

# TODO: at the moment, words are only broken up by 0 and 1. Should search for smaller sequential words. For example:
# 6908378 finds: mytest
# but 1698378 does not

use strict;
use warnings;

# Default Debian ispell dictionary

JohnMertz

#!/usr/bin/perl

use warnings;
use strict;

use Data::Dump qw | dump |;
use LWP::UserAgent;
use JSON::XS;

my $ua = LWP::UserAgent->new();

JohnMertz

#!/usr/bin/perl

# Not proud of this one. It had multi-battery supported shunted on when I got a new laptop and Waybay output taped on too. Could use to be cleanud up a lot, but it does the job.
my $output;
my $bar = 0;

if ($ARGV[0] eq '-h' || $ARGV[0] eq '--help') {
    print'
pow.pl - Power Status Script