qorg11
/
lainsafe
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: qorg11:master
Branches Tags
qorg11:master
qorg11:config_hash
qorg11:0.4
qorg11:v0.3
..
compare: qorg11:config_hash
Branches Tags
qorg11:master
qorg11:config_hash
qorg11:0.4
qorg11:v0.3

No commits in common. "master" and "config_hash" have entirely different histories.
master ... config_has

2 changed files with 6 additions and 12 deletions
Show Stats Expand all files Collapse all files

4
README.MD
View File

@ -29,7 +29,7 @@ sudo apt updates
sudo apt install lainsafecli
~~~
#### Arch
[AUR - `lainsafecli`](https://aur.archlinux.org/packages/lainsafecli/)
TODO
### lainsafecli configuration
@ -88,4 +88,4 @@ Thanks!
[Liberapay](https://liberapay.com/qorg11)
Bitcoin: bc1qghl6f27dpgktynpvkrxte2s3gm9pcv8vlwuzum
Bitcoin: bc1q22lkmm6p0k4acpmlwpy3gyw8m9edv9y3legazw

14
lainsafecli
View File

@ -28,13 +28,14 @@ my $help;
my $DEFAULT_SERVER;
my $file;
my $DISPLAY_ASCII;
my $STORE_LINKS;
# Default options, if no specified.
$DEFAULT_SERVER = "https://lainsafe.delegao.moe";
$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
my $ASCII_ART = <<'EOF';
_..-- ----- --.._
,-'' `-.
, \
@ -115,10 +116,3 @@ if($req->{_content} =~ /instance/) # If someone knows how to do it another way,
exit;
}
print $DEFAULT_SERVER . "/" . $req->{_content} . "\n";
if($STORE_LINKS)
{
open FILE,'>>',"$ENV{HOME}/.cache/lainsafelinks" or die $!;
print FILE $DEFAULT_SERVER . "/" . $req->{_content} . " $file" ."\n";
close FILE;
}