Skip to content

Instantly share code, notes, and snippets.

use "commands";
use "keycode";
keyCommandMap =
[
(87, 2, 4),
(188, 8, 5),
(190, 8, 6),
(109, 8, 11),
(107, 8, 12),
(38, 8, 17),
#!/usr/bin/perl
# imagotrigger@gmail.com - create a SDRTrunk playlist V3 xml from all talkgroups on radioreference.com
# see: https://www.radioreference.com/apps/db/
# the only variable you need is "sid" or System ID from the RR database.
# adjust the tail of your XML as necesssary...
# provide your own ignore.txt list if you wish othewise everything is set to record on the same priority!
my $sid = 3508; #change me!
@ImagoTrigger
ImagoTrigger / nph_convert.pl
Last active April 3, 2017 02:11
Serves up some XML for markers
use strict;
use Storable;
use CGI qw(:standard -nph);
no warnings 'utf8';
$| = 1;
sub safe_encode
{
my $str = shift;
$str =~ s{
@ImagoTrigger
ImagoTrigger / all.pl
Created April 3, 2017 01:20
Scrape away
use strict;
my @corps =(
"emminneapolis",
"ematlantaeast",
"ematlantawest",
"emaustin" ,
"embaltimore" ,
"emchicago" ,
"enviro-master",
"emcincinnati" ,
@ImagoTrigger
ImagoTrigger / scrape.pl
Last active April 3, 2017 01:18
RouteStar data scraper
use strict;
use LWP::UserAgent::Determined;
use Geo::Coder::Google;
use Geo::Coder::MapQuest;
use Geo::Coder::Bing;
use Storable;
use File::Copy;
use Try::Tiny;
use Data::Dumper;
use common::sense;
use DBI;
our $dbh = DBI->connect('dbi:Pg:dbname=discourse', 'discourse', undef) or die "$!";
our $inst = $dbh->prepare(q{INSERT INTO topics (title, last_posted_at, created_at, updated_at, views, posts_count, user_id, last_post_user_id, reply_count, featured_user1_id,
featured_user2_id, featured_user3_id, avg_time, deleted_at, highest_post_number, image_url, off_topic_count, like_count, incoming_link_count, bookmark_count, star_count,
category_id, visible, moderator_posts_count, closed, archived, bumped_at, has_summary, vote_count, archetype, featured_user4_id, notify_moderators_count, spam_count,
illegal_count, inappropriate_count, pinned_at, score, percent_rank, notify_user_count, subtype, slug, auto_close_at, auto_close_user_id, auto_close_started_at,
deleted_by_id, participant_count, word_count, excerpt, pinned_globally) VALUES
=====================================================================
== E:\_GAMEZ\Steam2\steamapps\common\Arma 3\arma3.exe
== "E:\_GAMEZ\Steam2\steamapps\common\Arma 3\arma3.exe" -showscripterrors -skipintro -noesrb -nointro -malloc=system -nofilepatching -skipintro -noesrb -skipesrb -skipintro -nointro -nopause -maxmem=3000
Exe timestamp: 2013/08/29 04:38:12
Current time: 2013/08/31 02:59:13
Type: Public Beta
Branch: Development
Version: 0.77.109586
@ImagoTrigger
ImagoTrigger / gist:6368138
Created August 28, 2013 16:37
arma3 still does it
NAT Negotiation completed
Unknown entity: '& !window.flyoutMenusRefreshable) window.onload = initFlyouts'
Unknown entity: '& _W.jQuery)
//-->
</script>
</head>
<body class=' no-header-page wsite-theme-dark wsite-page-roster'>
<div id="nav-wrap">
<div id="page">
<div id="topnav">
PORT FORWARDING (ArmA3) (Firewalls)
ArmA3 uses the same default ports as ArmA2 with the addition of 2 steam ports. So if you intend running A2 and A3 servers on the same machine, you need to edit the ports used
Default ports are all UDP and as follows
2302 (Arma3 Game port)
2303 (Server reporting)
2305 (Von)
8766 (Steam port)
27016 (Steam query port)
C:\Users\Imago\Documents\Arma 3\missions\omfg.Altis>perl missionsqm.pl
$VAR1 = [
'C_man_1;',
'Logic;',
'O_recon_JTAC_F;',
'B_soldier_repair_F;',
'B_Soldier_SL_F;',
'B_Helipilot_F;',
'C_man_polo_5_F;',
'C_man_polo_2_F;',