sebboh
/
tilde.club
forked from team/tilde.club
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Function to list html connections between tilde accounts.

This commit is contained in:
Paul Ford 2014-10-03 21:31:54 +00:00
parent d437ac5f79
commit 6e27ed1290
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
pages/list-html-connections/ack2list.pl Executable file
View File

@ -0,0 +1,32 @@
#!/usr/bin/perl -w
use strict;
my %h = {};
while (<STDIN>) {
chomp;
my ($file, $line, $tilde) = split /:/;
$tilde =~ s/\///;
$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>
<body>
<h1>Tilde.club connections</h1>
};
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\">";
for my $y (sort keys %{$h{$x}}) {
my $user = $y;
$user =~ m/(\~\w+)/;
print "<a name=\"$user\" href=\"$user\">$1</a> ";
}
print "</td></tr>\n"
};
print "</table>";
print qq{</body></html>};

1
pages/list-html-connections/social.sh Executable file
View File

@ -0,0 +1 @@
ack --html "\/~\w+" /home -o 2>/dev/null|grep -v feed|grep -v anthonydpaul |perl ack2list.pl > public_html/social.html