tardisx

#!/usr/bin/env perl

# Generate a list of mastodon instances by scraping the timeline and finding toots from
# other federated instances.

# Mojolicious non-blocking HTTP FTW!

# Now with 100% more self-modifying!

use strict;

tardisx

Keybase proof

I hereby claim:

• I am tardisx on github.
• I am tardisx (https://keybase.io/tardisx) on keybase.
• I have a public key ASCmGYh7R25QZnM33NdS8AmO5yPsnqeKUmctON9vQJjtcQo

To claim this, I am signing this object:

tardisx

#!/usr/bin/env perl

use Mojolicious::Lite;
use Mojo::Pg;
use Mojo::Pg::Migrations;
use Text::Markdown qw/markdown/;

my $wiki_link = qr{\b[A-Z][a-z]+[A-Z][A-Za-z]+\b};

helper pg => sub { state $pg = Mojo::Pg->new('postgresql://localhost/wiki') };

tardisx

#!/usr/bin/env perl6

use v6;

my $files_path = ($*PROGRAM_NAME.IO.dirname.IO ~ '/../files').IO;
chdir $files_path || die "could not chdir to $files_path";

sub MAIN ($dir = '.') {
  my @todo = $dir.IO;
  my @files;

tardisx

#!/usr/bin/env perl

=pod

Using Mojolicious and L<MCE> for forked independant workers,
communicating via L<MCE::Queue>.

Run this with C<./mce_mojolicious.pl daemon>, then visit C<http://localhost:3000>.

There are 4 queues: