forgot wraper and report files

1 files changed, 106 insertions, 0 deletions

diff --git a/report.pl b/report.pl
new file mode 100644
index 000000000000..cb7db3318357
--- /dev/null
+++ b/report.pl
@@ -0,0 +1,106 @@
+#!/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";