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

Added $LINK_STORE so the user can choose where to store the upload

Browse source 
links. Closes #9
This commit is contained in:
qorg11 2020-08-07 19:27:57 +02:00
parent 95ab4caca1
commit 97e5c795e7
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
TODO.MD
View file

@ -1,2 +1,2 @@
* set $MAX_SIZE variable in upload.cgi [x] set $MAX_SIZE variable in upload.cgi
* echo links in .cache/lainsafelinks in lainsafecli [x] echo links in .cache/lainsafelinks in lainsafecli

4
lainsafecli
View file

@ -29,10 +29,12 @@ my $DEFAULT_SERVER;
my $file; my $file;
my $DISPLAY_ASCII; my $DISPLAY_ASCII;
my $STORE_LINKS; my $STORE_LINKS;
my $LINKS_FILE;
# Default options, if no specified. # Default options, if no specified.
$DEFAULT_SERVER = "https://lainsafe.delegao.moe"; $DEFAULT_SERVER = "https://lainsafe.delegao.moe";
$DISPLAY_ASCII = 1; # 0 if you don't want the ascii $DISPLAY_ASCII = 1; # 0 if you don't want the ascii
$STORE_LINKS = 1; # 0 if you don't want to keep track of your upload $STORE_LINKS = 1; # 0 if you don't want to keep track of your upload
$LINKS_FILE = "$ENV{HOME}/.lainsafelinks";
my $ASCII_ART = <<'EOF'; my $ASCII_ART = <<'EOF';
_..-- ----- --.._ _..-- ----- --.._
@ -116,7 +118,7 @@ print $DEFAULT_SERVER . "/" . $req->{_content} . "\n";
if($STORE_LINKS) if($STORE_LINKS)
{ {
open FILE,'>>',"$ENV{HOME}/.cache/lainsafelinks" or die $!; open FILE,'>>',$LINKS_FILE or die $!;
print FILE $DEFAULT_SERVER . "/" . $req->{_content} . " $file" ."\n"; print FILE $DEFAULT_SERVER . "/" . $req->{_content} . " $file" ."\n";
close FILE; close FILE;
} }