Initial commit

image-dl.psgi

@@ -0,0 +1,66 @@
+use 5.018;
+use strict;
+use warnings;
+use utf8;
+use open qw(:std :utf8);
+use lib qw(./vendor_perl/lib/perl5);
+use URI::URL;
+use LWP::Simple qw(mirror);
+use Coro::LWP;
+
+open (my $ch, '<', './config') || die "No config.\n";
+my $savedir = readline $ch;
+close $ch;
+chomp $savedir;
+$savedir = (split (/\s*=\s*/, $savedir, 2))[1];
+
+my $app = sub {
+	my $env = shift;
+
+	my $msg = "Your Opinion is very important for us, please stand by.\n";
+	my $status = '404';
+	my $content = 'text/plain';
+
+	if ($env->{PATH_INFO} eq "/image_dl") {
+		my $str = $env->{HTTP_URL};
+
+		unless ((substr ($str, 0, 7) eq 'http://') || (substr ($str, 0, 8) eq 'https://')) {
+			$msg = "Incorrect URL\n";
+			return [ '400', [ 'Content-Type' => $content, 'Content-Length' => length ($msg) ], [ $msg ], ];
+		}
+
+		unless (-d $savedir) {
+			mkdir ($savedir) or do {
+				$msg = "Unable to make $savedir: $!\n";
+				return [ '500', [ 'Content-Type' => $content, 'Content-Length' => length ($msg) ], [ $msg ], ];
+			}
+		}
+
+		my $fname = $str;
+		$fname =~ s/[^\w!., -#]/_/xmsg;
+
+		if (lc ($str) =~ /\.(gif|jpe?g|png|webm|mp4)$/xms) {
+			my $savepath = sprintf '%s/%s', $savedir, $fname;
+
+			unless (-f $savepath) {
+				my $urlobj = url $str;
+				mirror ($urlobj->as_string, $savepath);
+			}
+		}
+
+		$msg = "Done\n";
+		$status = '200';
+	}
+
+
+	return [
+		$status,
+		[ 'Content-Type' => $content, 'Content-Length' => length ($msg) ],
+		[ $msg ],
+	];
+};
+
+
+__END__
+
+# vim: ft=perl noet ai ts=4 sw=4 sts=4: