diff options
author | agentcobra | 2018-10-24 20:42:43 +0200 |
---|---|---|
committer | agentcobra | 2018-10-27 10:57:51 +0200 |
commit | d78ea9e9a480138b0ff8c4a63f459a7c19b5b120 (patch) | |
tree | f04b5bec7ca527480486c58b02195a1f9020aff5 /report.pl | |
parent | 0843d0eb21b507e9a374a0d0e59d8e5f453231ae (diff) | |
download | aur-d78ea9e9a480138b0ff8c4a63f459a7c19b5b120.tar.gz |
new launcher (0.8.62-BETA)
Diffstat (limited to 'report.pl')
-rw-r--r-- | report.pl | 106 |
1 files changed, 0 insertions, 106 deletions
diff --git a/report.pl b/report.pl deleted file mode 100644 index cb7db3318357..000000000000 --- a/report.pl +++ /dev/null @@ -1,106 +0,0 @@ -#!/usr/bin/perl - -# Autheur: Nicolas Guilloux -# Website: https://nicolasguilloux.eu/ -# Email: novares.x@gmail.com - -use strict; -use warnings; - - -# Send to Hostbin -# -# @parem String Content -# -# @return String URL -sub share { - open(my $fh, '>', '/var/tmp/report_shadow'); - print $fh $_[0]; - close $fh; - - my $url = `curl -sf --data-binary "@/var/tmp/report_shadow" https://nicolasguilloux.eu/hostbin`; - - system('rm /var/tmp/report_shadow'); - - return $url; -} - -# ------- Check AppImage ------- # -my $path = '/opt/Shadow Beta'; -my $isAppImg = 0; - -if( $#ARGV > -1 ) { - if( $ARGV[0] eq '--appimage' ) { - $path = './opt/Shadow Beta'; - $isAppImg = 1; - } -} - - -my $return = "Shadow Report"; - -if( $isAppImg ) { $return .= " (AppImage)"; } - -$return .= "\n"; - -# -------- AppImage version -------- # -if( -f 'shadow-appimage-version' ) { - - # Local version - open(my $fh, '<:encoding(UTF-8)', 'shadow-appimage-version') - or die "Could not open file 'shadow-appimage-version' $!"; - my $localVersion = <$fh>; - chomp $localVersion; - - $return .= "AppImage $localVersion \n"; -} - -# -------- Distribution information -------- # -$return .= "\n-------------------------------------\n\n"; -$return .= `cat /etc/*-release`; -$return .= `uname -mrs`; -$return .= "\n-------------------------------------\n\n"; - -# -------- Environment -------- # -$return .= 'Environment server: ' . `echo \$XDG_SESSION_TYPE`; -if( index(`groups \$USER`, 'input') == -1 ) { - $return .= '/!\ The user is not in the "input" group.'; -} else { - $return .= 'The user is in the "input" group.'; -} - -# -------- Missing libraries -------- # -$return .= "\n\n-------------------------------------\n"; -$return .= " Missing libraries\n"; -$return .= "-------------------------------------\n"; - -$return .= `ldd -v "$path/shadow-beta" | grep "not found"`; -$return .= `ldd -v "$path/resources/app.asar.unpacked/native/linux/ClientSDL" | grep "not found"`; - -# -------- VA-API check -------- # -$return .= "\n-------------------------------------\n"; -$return .= " Vainfo\n"; -$return .= "-------------------------------------\n"; - -if( -f '/usr/bin/vainfo' ) { - $return .= `vainfo`; - -} else { - $return .= "'vainfo' is not installed."; -} - -# -------- Logs -------- # -$return .= "\n-------------------------------------\n"; -$return .= " Logs\n"; -$return .= "-------------------------------------\n"; - -if( -f $ENV{"HOME"} . '/.cache/blade/shadow/shadow.log' ){ - my @logs = split(/template_digit/, `cat ~/.cache/blade/shadow/shadow.log`); - $return .= 'template_digit' . $logs[-1]; - -} else { - $return .= 'Logs not found.'; -} - -# -------- Send to Hostbin -------- # -print share($return) . "\n"; |