edu/muxsa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

muxsa-al2fc honors ~/.muxsarc

Browse Source
This commit is contained in:
Sebastian Kiesel 2023-03-11 13:15:08 +01:00
parent 6d01dec307
commit 7bf2082b2b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
bin/muxsa-al2fc
View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
use warnings;
use strict;
use File::Slurp;
# muxsa-al2fc
#
@ -35,10 +36,21 @@ use strict;
# OTHER DEALINGS IN THE SOFTWARE.
############################################################################
# get MUXSA_KVM2PNG_SLIDE_PREFIX from ~/.muxsarc, environment var overrides
my %muxsarc;
if( -r (my $rc=$ENV{"HOME"}.'/.muxsarc') ){
%muxsarc = read_file($rc) =~ /^(\w+)=(?:"|')?(.*?)(?:"|')?$/mg;
}
my $slide_prefix = $muxsarc{'MUXSA_KVM2PNG_SLIDE_PREFIX'}//"";
if( $ENV{'MUXSA_KVM2PNG_SLIDE_PREFIX'} ){
$slide_prefix = $ENV{'MUXSA_KVM2PNG_SLIDE_PREFIX'};
}
############################################################################
sub printf_file {
my $slide_prefix = $ENV{'MUXSA_KVM2PNG_SLIDE_PREFIX'}//"";
if( $_[0] =~ /^[0-9]+$/ ){
printf("file '%s%04i.png'\n", $slide_prefix, $_[0]);
}