logo

blog

My website can't be that messy, right? git clone https://hacktivis.me/git/blog.git

notes_index.pm (1791B)

    

  1. #!/usr/bin/env perl
  2. # Copyright 2023 Haelwenn (lanodan) Monnier <contact+blog@hacktivis.me>
  3. # SPDX-License-Identifier: MIT
  5. # Gentoo: dev-perl/URI
  6. # Alpine: perl-uri
  7. # https://repology.org/project/perl:uri/versions
  8. use URI::Escape;
  10. print '<!DOCTYPE html>
  11. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  12. 	<head>
  13. <!--#include file="/templates/head.shtml" -->
  14. 		<title>Index of /notes/</title>
  15. 		<link rel="stylesheet" href="/css/sorttable.css?serial=2020091801"/>
  16. 	</head>
  17. 	<body>
  18. <!--#include file="/templates/en/nav.shtml" -->
  19. 		<main>
  20. 		<table class="sortable">
  21. 			<thead>
  22. 				<tr><th class="sorttable_sorted">Name</th><th>Size</th><th>Last Modified</th></tr>
  23. 			</thead>
  24. 			<tbody>
  25. ';
  27. chdir('./notes/');
  29. my $lstree =
  30. `git ls-tree -r -z --format="%(objecttype)%x01%(objectsize:padded)%x01%(path)" HEAD`;
  32. my @list = split( /\x00/, $lstree );
  34. foreach (@list) {
  35. 	my ( $objtype, $size, $raw ) = split( /\x01/, $_, 3 );
  36. 	$objtype == "blob" or die "${raw}: objtype is ${objtype}, not blob";
  38. 	if ( $raw =~ /^index\.(s|x)html$/ ) {
  39. 		next;
  40. 	}
  41. 	if ( $raw =~ /\.(br|gz)$/ ) {
  42. 		next;
  43. 	}
  45. 	# try_files $uri $uri.shtml $uri.html $uri.xhtml $uri/ =404;
  46. 	my $fn = $raw;
  47. 	$fn =~ s@\.(s|x)?html$@@;
  49. 	my $escaped = uri_escape_utf8($fn);
  50. 	$escaped =~ s@%2F@/@;
  52. 	my $now = `git log -1 --format="format:%ai" -- "$raw"`;
  54. 	$size =~ s/^ *//;
  56. 	# thousand separation
  57. 	my $size_pp = $size;
  58. 	while ( $size_pp =~ s/(\d+)(\d{3})/$1 $2/ ) { }
  60. 	printf
  61. "				<tr><td><a href=\"%s\">%s</a></td><td data-value=\"%s\" data-type=\"int\">%s B</td><td>%s</td></tr>\n",
  62. 	  $escaped, $fn, $size, $size_pp, $now;
  63. }
  65. print '			</tbody>
  66. 			</table>
  67. 		</main>
  68. <!--#include file="/templates/en/footer.shtml" -->
  69. 		<script src="/javascript/sorttable.js?serial=2023030902"></script>
  70. 	</body>
  71. </html>
  72. ';