Compare commits
4 Commits
config_has
...
master
Author | SHA1 | Date |
---|---|---|
qorg11 | 8cf0922070 | |
qorg11 | 1ce7380466 | |
qorg11 | 34363928cc | |
Dustin Van Tate Testa | d23a85bac6 |
|
@ -29,7 +29,7 @@ sudo apt updates
|
||||||
sudo apt install lainsafecli
|
sudo apt install lainsafecli
|
||||||
~~~
|
~~~
|
||||||
#### Arch
|
#### Arch
|
||||||
TODO
|
[AUR - `lainsafecli`](https://aur.archlinux.org/packages/lainsafecli/)
|
||||||
|
|
||||||
### lainsafecli configuration
|
### lainsafecli configuration
|
||||||
|
|
||||||
|
@ -88,4 +88,4 @@ Thanks!
|
||||||
|
|
||||||
[Liberapay](https://liberapay.com/qorg11)
|
[Liberapay](https://liberapay.com/qorg11)
|
||||||
|
|
||||||
Bitcoin: bc1q22lkmm6p0k4acpmlwpy3gyw8m9edv9y3legazw
|
Bitcoin: bc1qghl6f27dpgktynpvkrxte2s3gm9pcv8vlwuzum
|
||||||
|
|
14
lainsafecli
14
lainsafecli
|
@ -28,14 +28,13 @@ my $help;
|
||||||
my $DEFAULT_SERVER;
|
my $DEFAULT_SERVER;
|
||||||
my $file;
|
my $file;
|
||||||
my $DISPLAY_ASCII;
|
my $DISPLAY_ASCII;
|
||||||
|
my $STORE_LINKS;
|
||||||
# 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
|
||||||
|
|
||||||
my $ASCII_ART = <<'EOF';
|
my $ASCII_ART = <<'EOF';
|
||||||
|
|
||||||
|
|
||||||
_..-- ----- --.._
|
_..-- ----- --.._
|
||||||
,-'' `-.
|
,-'' `-.
|
||||||
, \
|
, \
|
||||||
|
@ -116,3 +115,10 @@ if($req->{_content} =~ /instance/) # If someone knows how to do it another way,
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
print $DEFAULT_SERVER . "/" . $req->{_content} . "\n";
|
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;
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue