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

--file not needed anymore, cleaned up code in lainsafecli and upload.cgi

Browse source
This commit is contained in:
qorg11 2020-04-22 02:49:13 +02:00
parent 3a54151592
commit 1b8373f03e
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
http/upload.cgi
View file

@ -15,8 +15,6 @@
# along with lainsafe. If not, see <https://www.gnu.org/licenses/>. # along with lainsafe. If not, see <https://www.gnu.org/licenses/>.
use CGI; use CGI;
use Digest::MD5 qw(md5_hex);
my $q = CGI->new; my $q = CGI->new;
print $q->header(); print $q->header();

18
lainsafecli
View file

@ -20,8 +20,6 @@
use Getopt::Long; use Getopt::Long;
use LWP::UserAgent; use LWP::UserAgent;
use Data::Dumper;
use Try::Tiny;
use strict; use strict;
use warnings; use warnings;
@ -66,7 +64,7 @@ EOF
sub help sub help
{ {
print "lainsafecli, a command line interface for lainsafe.\n"; print "lainsafecli, a command line interface for lainsafe.\n";
print "USAGE: lainsafecli [--server] --file=FILE\n\n"; print "USAGE: lainsafecli [--server] FILE\n\n";
print "if --server not given, $DEFAULT_SERVER is used.\n"; print "if --server not given, $DEFAULT_SERVER is used.\n";
exit; exit;
@ -75,15 +73,23 @@ sub help
## PROGRAM ## PROGRAM
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
GetOptions ("server=s" => \$DEFAULT_SERVER, GetOptions ("server=s" => \$DEFAULT_SERVER,
"file=s" => \$file, "help|" => \$help);
"help" => \$help);
&help if ($help); if($help || not defined $ARGV[0])
{
&help;
}
# check if file is given # check if file is given
$file = $ARGV[@ARGV-1];
die "File does not exist\n" if !-e $file;
die "Give a file\n" unless defined $file; die "Give a file\n" unless defined $file;
my $url_to_upload = $DEFAULT_SERVER . "/upload.cgi"; my $url_to_upload = $DEFAULT_SERVER . "/upload.cgi";
my $req; my $req;