dotfiles

My personal shell configs and stuff
git clone git://git.alex.balgavy.eu/dotfiles.git
Log | Files | Refs | Submodules | README | LICENSE

rotmgmule (680B)

      1 #!/usr/bin/env perl
      2 use strict;
      3 use warnings;
      4 use Term::Choose "choose";
      5 use MIME::Base64;
      6 
      7 my $exaltpath = "$ENV{HOME}/RealmOfTheMadGod/Production/RotMGExalt.app";
      8 my $accountfile = "$ENV{HOME}/.local/share/rotmgmule/accounts.tsv";
      9 
     10 open(accfile_h, "<", $accountfile) or die "Couldn't open the file $accountfile, $!";
     11 
     12 my %accounts;
     13 while(my $line = <accfile_h>) {
     14   chomp $line;
     15   my ($k, $v) = split("\t", $line);
     16   $accounts{$k} = $v;
     17 }
     18 close(accfile_h);
     19 
     20 my $choice = choose([keys %accounts], { layout => 3 });
     21 system("open", "-n", $exaltpath, "--args", "'data:{platform:Deca,password:@{[encode_base64($accounts{$choice}, '')]},guid:@{[encode_base64($choice,'')]},env:4}'");