aboutsummarylogtreecommitdiffstats
path: root/report.pl
diff options
context:
space:
mode:
authoragentcobra2018-10-24 20:42:43 +0200
committeragentcobra2018-10-27 10:57:51 +0200
commitd78ea9e9a480138b0ff8c4a63f459a7c19b5b120 (patch)
treef04b5bec7ca527480486c58b02195a1f9020aff5 /report.pl
parent0843d0eb21b507e9a374a0d0e59d8e5f453231ae (diff)
downloadaur-d78ea9e9a480138b0ff8c4a63f459a7c19b5b120.tar.gz
new launcher (0.8.62-BETA)
Diffstat (limited to 'report.pl')
-rw-r--r--report.pl106
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";