ablakely

#!/usr/bin/perl

# conv2mapbin.pl - Convert Advance Map exports to map.bin for use
# with decompiled Pokemon games.
#
# Written by Aaron Blakely <[email protected]>

use strict;
use warnings;

ablakely

#!/usr/bin/perl -w

use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";
%IRSSI = (
	authors => "Aaron Blakely",
	contact => '[email protected]',
	name => 'neofetch for irssi',

ablakely

#!/usr/bin/perl -w

use strict;
use warnings;

sub osascript {
  my @tmp = map {("-e '", $_, "'")} split(/\n/, $_[0]);
  my $prog = "@tmp";

  return `osascript $prog`;

ablakely

--- a/neofetch
+++ b/neofetch
@@ -1230,7 +1230,14 @@
             if [[ $(kextstat | grep -F -e "FakeSMC" -e "VirtualSMC") != "" ]]; then
                 model="Hackintosh (SMBIOS: $(sysctl -n hw.model))"
             else
-                model=$(sysctl -n hw.model)
+		if [[ $osx_version =~ "10.4" || $osx_version =~ "10.5" ]]; then
+		    model="$(system_profiler SPHardwareDataType | grep Machine\ Name\:)"
+		    model=${model/Machine\ Name\:/}

ablakely

# Hexfetch - Hexchat Neofetch script
#
# Written by Aaron Blakely <[email protected]>
# Date: 6/22/22

use warnings;

HexChat::register("Hexfetch", "0.0.1", "Neofetch parser for neofetch sysinfo", "Neofetch parser for neofetch sysinfo");
HexChat::hook_command("neofetch", "do_neofetch");

ablakely

#!/usr/bin/perl -w

# camctrl.pl: AXIS 214 CGI Control Script
#
# USAGE: For use with motion-project.github.io generic tracking function
#   If it tracks something like trees,
#  the solution I found is to set the limits for ptz in the camera settings
# 
# Copyright 2020 (C) Ephasic Software
# Written by Aaron Blakely <[email protected]>

ablakely

#!/usr/bin/env node

/*
 * conv.js: Watches dir and automatically converts .mkv files to .mp4
 * Presets:
 *  - wait 3 mins after file creation to start ffmpeg conversion
 *  - wait 15 mins after ffmpeg conversion to delete the .mkv file
 *
 * NOTE:
 *  I wrote this script for use with http://motion-project.github.io,

ablakely

#!/usr/bin/perl -w

# fahstat.pl: Folding@Home Single User Statistic Script
# 
# Usage: ./fahstat.pl <user name>
# Written by Aaron Blakely <[email protected]>

use strict;
use warnings;

ablakely

#!/usr/bin/perl -w

# changebg.pl: Wallpaper rotation script for ElementaryOS
#
# Tested on
#  ElementaryOS v5.1.2
#
# Written by Aaron Blakely <[email protected]>
# Copyright 2020 (C) Ephasic Software

ablakely

@echo off

if "%~1"=="" call :printhelp  & exit /b 1
setlocal

if "%~2"=="" (set Icon=Information) else (set Icon=%2)
powershell -Command "[void] [System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms'); $objNotifyIcon=New-Object System.Windows.Forms.NotifyIcon; $objNotifyIcon.BalloonTipText='%~1'; $objNotifyIcon.Icon=[system.drawing.systemicons]::%Icon%; $objNotifyIcon.BalloonTipTitle='%~3'; $objNotifyIcon.BalloonTipIcon='None'; $objNotifyIcon.Visible=$True; $objNotifyIcon.ShowBalloonTip(5000);"

endlocal
goto :eof