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
use strict;
my %h = {};
my %h;
while (<STDIN>) {
chomp;
my ($file, $line, $tilde) = split /:/;
@ -8,8 +8,8 @@ while (<STDIN>) {
$file =~ s/\/home\//\/~/;
$file =~ s/public_html\///;
$h{$tilde}{$file}++;
}
print qq{<html><head><title>Tilde.Club Connections</title>
<link rel="stylesheet" type="text/css" href="css/social.css">
</head>
@ -19,14 +19,15 @@ print qq{<html><head><title>Tilde.Club Connections</title>
print "<table>";
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}}) {
my $user = $y;
$user =~ m/(\~\w+)/;
print "<a name=\"$user\" href=\"$user\">$1</a> ";
my $user = $y;
if ($user =~ /~(\w+)/) {
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 qq{</body></html>};