33 lines
527 B
Perl
33 lines
527 B
Perl
package paste;
|
|
|
|
use strict;
|
|
use vars qw/$VERSION/;
|
|
|
|
$VERSION = "1.0";
|
|
|
|
sub shorten {
|
|
if (defined($env{HTTP_LINK}) {
|
|
|
|
} else {
|
|
if (defined($env{'QUERY_STRING'}) && $env{'QUERY_STRING'} < 8) {
|
|
unless (open (L, "data/links.txt")) {
|
|
return('500', 'text/plain', "Bad permission\n");
|
|
}
|
|
|
|
while (my $str = <L>) {
|
|
|
|
}
|
|
|
|
return('302', 'text/plain', "$link\n");
|
|
} else {
|
|
return ('200', 'text/plain', "What?\n");
|
|
}
|
|
}
|
|
|
|
return ('200', 'text/plain', "$msg\n");
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|