eleksir/yadproxy
0
Fork 0
Code Activity

Add perlcritic stuff :)

Browse Source
This commit is contained in:
eleksir
2021-05-30 14:30:00 +03:00
parent 0c147086c0
commit e655c11e0b
13 changed files with 127 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/YadProxy.pm
View File

@@ -96,9 +96,9 @@ sub DirList {
$index_of = '/' . $index_of;
}
push @output, "<html>";
push @output, '<html>';
push @output, sprintf '<head><title>Index of %s/</title></head>', $index_of;
push @output, "<body>";
push @output, '<body>';
push @output, sprintf '<h1>Index of %s/</h1><hr><pre><a href="../">../</a>', $index_of;
# попробуем отловить все каталоги, начинающиеся с запрошенного пути
@@ -187,8 +187,8 @@ sub DirList {
}
}
push @output, "</pre><hr></body>";
push @output, "</html>";
push @output, '</pre><hr></body>';
push @output, '</html>';
return ('200', 'text/html', join "\n", @output);
}