svragv/sakisafe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ignore --tor flag if it is disabled

Browse source
This commit is contained in:
qorg11 2020-08-21 03:51:41 +02:00
parent a2c8f92c50
commit 9d3844bed5
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lainsafecli
View file

@ -16,8 +16,6 @@
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with lainsafe. If not, see <https://www.gnu.org/licenses/>. # along with lainsafe. If not, see <https://www.gnu.org/licenses/>.
use Getopt::Long; use Getopt::Long;
use LWP::UserAgent; use LWP::UserAgent;
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
@ -72,7 +70,7 @@ sub help
print "USAGE: lainsafecli [--tor] [--server] FILE\n\n"; print "USAGE: lainsafecli [--tor] [--server] FILE\n\n";
print "if --server not given, $DEFAULT_SERVER is used.\n"; print "if --server not given, $DEFAULT_SERVER is used.\n";
print "--tor is available\n" if $tor_enabled; print "--tor is available\n" if $tor_enabled;
print "--tor is unavailable\n" unless $tor_enabled; print "--tor is unavailable, flag is ignored\n" unless $tor_enabled;
exit; exit;
} }
@ -87,11 +85,12 @@ sub enable_tor
GetOptions ("server=s" => \$DEFAULT_SERVER, GetOptions ("server=s" => \$DEFAULT_SERVER,
"help|" => \$help, "help|" => \$help,
"tor"=> \$tor, "tor"=> \$tor,
"get-response"=>\$get_response "get-response"=>\$get_response
); );
&help if $help || not defined $ARGV[0]; &help if $help || not defined $ARGV[0];
&enable_tor if $tor; &enable_tor if $tor and $tor_enabled;
# check if file is given # check if file is given
@ -115,11 +114,11 @@ if (!$ua->get($url_to_upload)->is_success) {
$req = $ua->post($url_to_upload, $req = $ua->post($url_to_upload,
Content_Type => 'form-data', Content_Type => 'form-data',
Content => [ Content => [
"file" => [ $file ], "file" => [ $file ],
], ],
); );
print $ASCII_ART if $DISPLAY_ASCII; print $ASCII_ART if $DISPLAY_ASCII;