Redirecter script

2023-12-01 11:28:02 +01:00 · 2023-12-01 11:28:02 +01:00 · 0284e598b1
parent a9ce76125b
commit 0284e598b1
1 changed files with 21 additions and 0 deletions
--- a/perl/redirect.pl
+++ b/perl/redirect.pl
@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use File::Slurp;
+use warnings;
+use strict;
+
+# Configuración
+my $archivo = "links.txt";
+
+my @links = read_file($archivo);
+# No voy a molestarme en añadirle la dependencia de CGI para esta tontería
+print "Content-type: text/html\n\n";
+
+print <<EOF;
+<html>
+	<head>
+<meta http-equiv="refresh" content="0; url=$links[int(rand(@links))]" />
+  </head>
+EOF
+
+print "<img src=\"https://okdiario.com/img/2019/10/14/mejores-frases-de-amador-rivas.jpg\" alt=\"SALIMOS DEL GORRONAL CON ESTA!!!!!\">";