TildeClub
/
tilde.club
mirror of https://github.com/tildeclub/tilde.club.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update ack2list.pl 

fixed errors
This commit is contained in:
deepend-tildeclub 2023-07-24 23:43:51 -06:00 committed by GitHub
parent f6cae4ec4b
commit e3964f5eb6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pages/list-html-connections/ack2list.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use strict; use strict;
my %h = {}; my %h;
while (<STDIN>) { while (<STDIN>) {
chomp; chomp;
my ($file, $line, $tilde) = split /:/; my ($file, $line, $tilde) = split /:/;
@ -8,8 +8,8 @@ while (<STDIN>) {
$file =~ s/\/home\//\/~/; $file =~ s/\/home\//\/~/;
$file =~ s/public_html\///; $file =~ s/public_html\///;
$h{$tilde}{$file}++; $h{$tilde}{$file}++;
} }
print qq{<html><head><title>Tilde.Club Connections</title> print qq{<html><head><title>Tilde.Club Connections</title>
<link rel="stylesheet" type="text/css" href="css/social.css"> <link rel="stylesheet" type="text/css" href="css/social.css">
</head> </head>
@ -19,14 +19,15 @@ print qq{<html><head><title>Tilde.Club Connections</title>
print "<table>"; print "<table>";
for my $x (sort keys %h) { for my $x (sort keys %h) {
print "<tr><td class=\"user\"><a href=\"/$x\">$x</td><td class=\"linkedby\">is linked by</td><td class=\"linkers\">"; print "<tr><td class=\"user\"><a href=\"/$x\">$x</a></td><td class=\"linkedby\">is linked by</td><td class=\"linkers\">";
for my $y (sort keys %{$h{$x}}) { for my $y (sort keys %{$h{$x}}) {
my $user = $y; my $user = $y;
$user =~ m/(\~\w+)/; if ($user =~ /~(\w+)/) {
print "<a name=\"$user\" href=\"$user\">$1</a> "; my $username = "~$1"; # Add the tilde (~) before the username
print "<a href=\"/$username\">$username</a> ";
}
} }
print "</td></tr>\n" print "</td></tr>\n";
}; }
print "</table>"; print "</table>";
print qq{</body></html>}; print qq{</body></html>};