Hi, I’m Sophie! I tried to find you on LinkedIn but couldn’t, so I’m reaching out here. I help businesses book meetings, drive traffic, and generate user sign ups through targeted outreach using my extensive private network, built over 12+ years, with access to over 100 million contacts. We’ll have a quick call to set a clear goal for your business, and I’ll personally work to make sure we reach it. You choose the result you want, whether that’s booked meetings, website traffic, user sign ups, or another measurable outcome, and if I fall short by even one, I’ll refund your money in full. Schedule a time with me here: https://calendly.com/sendproud/30min

QSR Pro Restaurant Industry Intelligence https://qsr.pro

hello world

#!/bin/bash

PLS=http://provisioning.streamtheworld.com/pls/wbapAmAAC.pls

URLS=`/usr/bin/wget -q -O - "$PLS"`

Rush=/mnt/sda1/MP3/Rush/$(/bin/date +%Y%m%d)_Rush.m4a

end=`date +%Y%m%d`

end+="135730"

 

/usr/bin/touch /mnt/sda1/rush

rm /mnt/sda1/rush

 

for url in $URLS ; do

 

        http=`echo "$url" | /bin/grep -Po "(?<=[=])http.*(?=\r)"`

 

        if ! [ -z "$http" ]; then

               

                /usr/bin/wget -q -O - "$http" >> $Rush &

                /bin/sleep 2m

       

                while [ "$(date +%Y%m%d%H%M%S)" -le "${end}" ] && ! [ -z `/usr/bin/pgrep -f "$http"` ]; do

                        /bin/sleep 1m

                done

 

                if ! [ "$(date +%Y%m%d%H%M%S)" -le "$((end))" ]; then

                        /bin/kill `/usr/bin/pgrep -f "$http"`

                        break

                fi

               

        fi

 

done

 

Hi Anna,

 

I accidentally stumbled upon this domain which seeing what kind of things people host on .fyi tld, and its really interesting to read about how this pastebin came to be.

 

Just wanted to pop in, say hi, and that i hope that your internet situation has been fixed now.

 

If you'd like, we can connect on linkedin (zeeshandossani)

 

Zeeshan

Posting this to my pastebin because I can type it up on my desktop with my regular keyboard instead of an email on my phone.  The kids do the texting so fast, I've never been able to do that.

 

Finished up the work weekend tonight on mobile data.  I've been tracking my shift usage this week and it's about 250-300MB for a 12 hour shift.  That's not too bad.and manageable on mobile data in the meantime.

 

I'm purposely keeping my usage very minimal because mobile data is costly.  NO YOUTUBE at all, which I miss.  I follow a few food youtubers and I always like to see what they're cooking, making, tasting, experimenting with.

 

Speaking of food youtubers, I recently ordered popcorn kernels, coconut oil, and flavacol on Amazon.  Flavacol is this weird orange butter salt powder that movie theaters use to pop the popcorn in, that gives it the distinctive taste.  It comes in an old fashioned milk carton package.  So I've been enjoying making popcorn in a pan on the stove with flavacol like the youtubers.  It's taken me a few tries, but I'm starting to perfect the technique.  It all moves very fast once the oil heats up and the test kernels pop.

 

I have TinyTinyRSS on my staff VPS.  If  you don't know what an RSS feed aggregator is, basically I have a service on my server that fetches news feeds from a lot of different sources and I can view news articles in my browser like an email inbox.  There's an option when I log in to "limit bandwidth usage" so it doesn't load images.  So I'm able to keep up with my regular news with very little mobile bandwidth usage, my server is doing the heavy lifting fetching RSS feeds.

 

If this goes on much longer and it's not looking like the trees will be cleared soon, I can change my phone plan to 10GB data for $20/month.  It lets you renew early, so I'd probably just do that if I needed to top up.  With my current usage, I'm thinking it would be like $40/month if I had to do this long term.

 

Working with OLPC and the XO where every MB of storage and data usage was costly and precious really trained me to manage this.  Not to mention working webhosting support.

 

I'll try calling 311 on Tuesday after the holiday weekend and see if there's an update on when they're gonna clear the trees.  It's not my yard, I can't call a service and pay for it myself even if I wanted to.  Which would run hundreds of dollars.

 

Maybe tomorrow I'll pretend I don't have any internet at all to save bandwidth and work on doing chores.  Goodness knows I need to fold laundry, do dishes, and break down boxes.

 

I have no shortage of locally stored entertainment.  Besides my library of 4K ebooks, I have hundreds of GB of music, podcasts, movies, some TV shows.

 

And then I'm not completely isolated.  I'm very worried about my neighbor Marcia.  She has no other connection to the outside world besides that  phone line that's currently trapped under thousands of pounds of tree debris.

 

Anyone can post on my pastebin, just note that anyone can see it.  So nothing that wouldn't be on a postcard.  Or messages in a bottle.

Posting this to my pastebin because I can type it up on my desktop with my regular keyboard instead of an email on my phone.  The kids do the texting so fast, I've never been able to do that.

 

Finished up the work weekend tonight on mobile data.  I've been tracking my shift usage this week and it's about 250-300MB for a 12 hour shift.  That's not too bad.and manageable on mobile data in the meantime.

 

I'm purposely keeping my usage very minimal because mobile data is costly.  NO YOUTUBE at all, which I miss.  I follow a few food youtubers and I always like to see what they're cooking, making, tasting, experimenting with.

 

Speaking of food youtubers, I recently ordered popcorn kernels, coconut oil, and flavacol on Amazon.  Flavacol is this weird orange butter salt powder that movie theaters use to pop the popcorn in, that gives it the distinctive taste.  It comes in an old fashioned milk carton package.  So I've been enjoying making popcorn in a pan on the stove with flavacol like the youtubers.  It's taken me a few tries, but I'm starting to perfect the technique.  It all moves very fast once the oil heats up and the test kernels pop.

 

I have TinyTinyRSS on my staff VPS.  If  you don't know what an RSS feed aggregator is, basically I have a service on my server that fetches news feeds from a lot of different sources and I can view news articles in my browser like an email inbox.  There's an option when I log in to "limit bandwidth usage" so it doesn't load images.  So I'm able to keep up with my regular news with very little mobile bandwidth usage, my server is doing the heavy lifting fetching RSS feeds.

 

If this goes on much longer and it's not looking like the trees will be cleared soon, I can change my phone plan to 10GB data for $20/month.  It lets you renew early, so I'd probably just do that if I needed to top up.  With my current usage, I'm thinking it would be like $40/month if I had to do this long term.

 

Working with OLPC and the XO where every MB of storage and data usage was costly and precious really trained me to manage this.  Not to mention working webhosting support.

 

I'll try calling 311 on Tuesday after the holiday weekend and see if there's an update on when they're gonna clear the trees.  It's not my yard, I can't call a service and pay for it myself even if I wanted to.  Which would run hundreds of dollars.

 

Maybe tomorrow I'll pretend I don't have any internet at all to save bandwidth and work on doing chores.  Goodness knows I need to fold laundry, do dishes, and break down boxes.

 

I have no shortage of locally stored entertainment.  Besides my library of 4K ebooks, I have hundreds of GB of music, podcasts, movies, some TV shows.

 

And then I'm not completely isolated.  I'm very worried about my neighbor Marcia.  She has no other connection to the outside world besides that  phone line that's currently trapped under thousands of pounds of tree debris.

 

Anyone can post on my pastebin, just note that anyone can see it.  So nothing that wouldn't be on a postcard.  Or messages in a bottle.

AT&T showed up this morning for my appt and the tech said he couldn't do anything because of the downed tree blocking everything.

 

Sunday, the city and Alabama power moved the tree debris to clear the alley into the side lot and ignored they piled all that on top of everyone's phone lines.  All they wanted to do was restore power and clear the way for cars.

 

All these AT&T service appts have been for nothing.

 

Joy's appt was right after mine, she was really pissed off about the entire state of things.  She walked with the AT&T tech up the alley to survey the situtation and learned that WE will be responsible for calling the city to remove the tree debris before AT&T can come back out to fix things.

 

I filed a report on the Birmingham 311 app with a picture of our downed phone lines for "emergency tree removal."  Joy and Lindsay are both filing reports with 311.

 

Marsha literally can't do anything because she has no phone at all.  Joy went by her house earlier today with no response, so I followed up this evening and told her what was going on.

 

Marsha said, "Don't be shy about bringing me up as an elderly widow who lives alone and recently had a stroke with no 911 access until this is fixed" and I told her, Marsha, we are already factoring your situation into our reports about this to get it to a higher priority.

 

I don't know the person who lives in the house next to the alley where the tree is down, if it's a rental or not.  But they can't just hold 4 other households hostage with no phone or internet while we wait for the tree debris to be cleared.

 

And of course now it's Memorial Day Weekend.

 

In the meantime, I went ahead and bought the $15 5GB data addon at Tello to get me through the work weekend and maybe beyond.

 

I posted a couple of pics of the tree and downed phone line at https://social.alabamaxo.org from the Mustard app on my phone but I can't even go to my website because there are so many pics on the homepage it'll use up too much data.

pastebin alternative  github.com

https://github.com/lorien/awesome-pastebin/blob/main/README.md

Chat started

Secretlab Concierge

Hi there! We noticed that you've been browsing for a while. Do you need any help picking an item?

Please provide us with your name and email address for us to contact you in the event we get disconnected. Thank you!

 

Anna

 

I'm 5'2" (157cm) 130 lbs (59kg) and my desk is 27" (68cm) tall.  I've been using a cheap Amazon basics office chair while WFH and the only good thing about it is that my feet can be fully on the floor.

 

When I worked in the office, they bought a bunch of regular sized Secretlabs Titan and DX Racer chairs for our workstations (most of my coworkers are big boys) and those were far too big for me.  My feet couldn't touch the floor and then the armrests hit me in the middle of my upper arm a few inches past my elbow.

 

I work 12 hour shifts as a webhosting support tech and I'd like to invest in a quality chair that's on my scale.  I've been looking at the Titan XXS, would that be a good fit for me?

 

Felipe joined the chat

Felipe

 

Hi Anna,

Thank you for contacting Secretlab.

avatar

Hi Felipe

 

Felipe

Due to the size of the chair and it being a collectible, some functions found on the TITAN Evo 2022 such as the full-metal 4D armrests with CloudSwap™ Replacement System, magnetic side covers and multi-tilt mechanism are not present on the TITAN XXS.

 

Instead of the Magnetic memory foam head pillow, the XXS comes with a 2020 head pillow with adjustable elastic straps.

 

As per your measurements, I believe the best chair fit for you would be the Titan 2022 Evo Small.

 

Anna

My main concern with a regular sized adult chair (even a smaller one) is that my feet need to be fully on the floor.  And the height recommendation is 5'6" on the small.

 

Felipe

Well, the distance on 2022 small from the floor to the seatbase on it's lowest/highest setting would be for 17.7"/20.5", would that meet your needs?

 

Anna

I just measured my current chair and it's 15" from the floor to the seatbase

 

Felipe

So the 2022 Small would be good for you right?

In that case you could definitely go with the XXS instead, although is a 1:2 scale model and many of the features present on 2022 are not on XXS as I mentioned

 

Anna

I don't need a lot of features, I don't think, and almost 18" would probably be too tall.  If you're not a short person, you probably don't understand how it is with fitting into furniture that's always too large.  What's the seatbase min/max on the XXS?

 

Felipe

The floor to seatbase on XXS would be:  

 

Min: 12.0"  

 

Max: 14.0"

 

Anna

Hmm, that's a bit lower than my current 15" but I think 17.7" would be too tall.  Thanks for the information, I'll consider this some more.  You've been very helpful, thank you.

 

Felipe

Anytime! Is my pleasure, having said that, is there anything else I may assist you with today?

 

Anna

I do have "womanly" hips, what's the seat width on the XXS?

 

Felipe

The width of the seatbase is for 10.6" (excluding the sides, like the wings)

 

Anna

Hmm, that's pretty small.  But I just raised my current chair to only 17" and this is way too tall for me

 

Felipe

The 17" would be the lowest setting on 2022 Small

Perhaps you would be better off with the XXS, as the minimum height for that one is for 12.0"

 

Anna

I'm wondering about my butt fitting into the seat, have you heard of regular adult women (not fat, just regular sized) fitting OK in the seat of an XXS?

 

Felipe

Not really, to be honest the XXS chair is not purchased very often due to it's size. I would be unable to advise :( I apologize for that

 

Ana

Sitting down, I'm taking up about 14" on the seat

 

Felipe

You could perhaps look for some reviews online on that chair

 

Anna

Yeah, I found a youtube video of a small child in the XXS and it was hard to tell

So I guess there's not another chair in another model that's between the small and the XXS?

The important thing is I can't go higher than 15" from the floor

 

Felipe

Outside XXS, the smallest chair we have would be the 2022 Small, we unfortunately don't have a size in between both size denominations, I apologize for the inconveniences

The only chair that can have you under 15" from the floor would be the XXS

 

Anna

Chat rated Good

OK, thanks, Felipe, I think that's it for now.  You've been very helpful with providing measurements.  Thumbs up!

sup

This is still a work in progress for pandemic bread, not for novices.  But this seemed to work well, I've been trying to get the proportions right.  The point is to not have any perishable ingredients, but still have a good dairy flavor and soft texture like from milk and butter.

 

The goal is a light, fine grained texture that's soft, yet sturdy enough for sandwiches (either rolls or loaf bread) or even pizza.  Easy to throw together if I'm feeling sad or overwhelmed.  And then it's not a big commitment of food stores, so if you somehow manage to ruin it, it's not a big waste.

 

Tangzhong is a method to make bread softer and fluffier.  Basically, cook a paste of flour and water in a little saucepan on the stove.

 

Tangzhong

    2 TBS dried whole milk powder

    1/2 c water

    3 TBS Flour

 

Whisk constantly over heat in a little saucepan till it's like pudding.  Set aside.

 

Sift all this together into your mixer bowl

 

    2 1/2 c Flour

    3 TBS dried whole milk powder

    2 TBS butter powder

    1 tsp salt

    2 TBS sugar

    3 tsp yeast

 

Whisk more water into the cooling Tangzhong saucepan till smooth

 

    3/4 c water

 

Dump the saucepan into the flour mixture and stir that around till moistened.  Let rest for 20 mins or so, that makes it easier to knead (even though my mixer does the work).

 

Knead with the dough hook for 10 mins or so, keep an eye on it.

 

It might be kind of goopy still, that's OK.

 

Cover and chill in the fridge overnight

 

What I like about this is it's a smaller recipe, it's not "start with dumping 7 cups of flour into a bowl."  And then the dough seems to mature over a few days.  So the rolls you bake on the first day will be different than the little loaf you bake on the third day.

 

Then tear off what you want to bake (I usually do a couple of little sandwich rolls at a time) over the next few days.

 

Bake at 375, I'm not gonna tell you about the second rise since this isn't for novices.

Happy Mother's Day, Mom!

 

I know you don't need "stuff," so I typed up a recipe I've been experimenting with.  If you'd like, we can make this when you visit.  I'm so looking forward to seeing you!  Hopefully it won't be too hot in Alabama yet.  It's been in the 70's this week, I've got my windows open.

 

=======================

I just put my "tamale pie casserole" into the Instant Pot to cook.  That's going to be shift food for tomorrow and Tuesday. I've made it a few times, getting ideas from some recipes I've found here and there.  But it's my own original creation, more or less.  Nutritious and filling, heats up great in the office microwave.  Easy to eat at my desk with a spoon while I'm working.

 

------

The masa is pretty easy.  Dump this into the KitchenAid mixer bowl

------

 

2 c. masa

2 c. chicken broth (use "Better than Broth" and strain the Ro-Tel for 2 cups liquid)

1.5 tsp baking powder

About 1/4-1/3 cup oil

 

Mix until fluffy, a few minutes.  Scrape down the sides of the bowl a few times.  It should look like really thick hummus.  Rest covered with plastic wrap in the fridge for an hour.

 

------

Black bean filling

------

 

About 1 cup dried black beans

3 c water

 

Cook beans in the Instant Pot for about 35 minutes, natural release.  I like to do "pot in pot" so I don't have to clean the inner pot.

 

Strain beans, reserving liquid.  Let cool a bit.

 

Mash most of the beans (probably reserve about 1/2 c or so, whatever looks right for the size of your casserole) with some salt and most of the can of the drained Ro-Tel.  Throw in some chopped onions if you have them on hand.  Pour in a bit of the reserved liquid if it doesn't look "right" (as in, smooshy enough).

 

------

Assembly

------

 

In a casserole that fits in the Instant Pot, use a spatula and/or your fingers to spread 2/3 of the masa on the bottom and sides. Spread about half of the bean mixture on the bottom.  Layer cheese (Velveeta if you're feeling naughty).  Top cheese with rest of Ro-Tel (with Velveeta, that makes a middle layer of queso). Spread the rest of the black bean mixture on top of that.  Cover with the rest of the masa, making sure the top "crust" is sealed. A wet spatula smooths it out nicely.

 

Cover with foil, making sure to crimp foil over the edge so that water can't get in and pool on top.

 

Pour a bit more than a cup of water in the bottom of the Instant Pot, to the top of the trivet.  Set in the casserole dish.

 

High pressure for 55 minutes.  Natural release.

 

It'd be easy to make this vegan, just substitute broth & cheese with vegan nonsense as you see fit.

 

You could very well bake this in the oven, but then the masa won't get the steamed tamale texture.

=======================

 

 

So, there's my recipe!  Nate joked that this isn't a "Jim" recipe since there's the vagary that's typical in our Southern Woman recipes.

 

You can certainly use canned black beans, I just happened to have time to make black beans in the Instant Pot.  Or substitute anything you happen to have on hand, since this is just a guideline.  I've done this with red enchilada sauce, too.

 

Talking with Mom a few minutes ago on the phone, she mentioned needing a recipe to take to a Boy Scouts thing, to feed about 10. You could certainly make this in a big casserole in the oven, scaling up the ingredients.  I'd suggest making sure to grease the casserole dish so that the masa doesn't stick if you bake it in the oven.  And then covering it for most of the baking time, probably about 350-375 for about 45 mins then uncovering for an additional 10 minutes if you want a crisp crust on the top of the masa.

 

Happy Mother's Day!

 

Love,

 

Anna

 

use strict;

use warnings;

use 5.014;

use utf8;

use Encode;

use Irssi;

use POSIX ();

 

our $VERSION = "1.6";

our %IRSSI = (

    authors     => 'David Leadbeater',

    contact     => 'dgl@dgl.cx',

    name        => 'urlinfo',

    description => 'Print short summaries about URLs from known services that are mentioned on IRC. (Including YouTube, etc.)',

    license     => 'WTFPL <http://dgl.cx/licence>',

    url         => 'http://dgl.cx/irssi',

);

 

# This is needed so it can still run standalone for testing.

BEGIN {

  Irssi->import(20140628) if __PACKAGE__ =~ /Irssi/; # This needs Irssi 0.8.17

}

 

BEGIN {

  eval {

    require HTML::TreeBuilder;

    require URI;

  } or do {

    print "\x{3}8You need to install HTML::TreeBuilder and URI";

    if (-f "/etc/debian_version") {

      print "Try running: \x{3}9sudo apt-get install libhtml-treebuilder-perl libwww-perl";

    }

    die $@;

  }

}

 

# ------- Settings

# /SET urlinfo_title_unknown ON|OFF

#   Show title of all unknown sites. (There is a timeout to prevent against

#   obvious resource exhaustion attacks, but remember this script has no

#   warranty.)

#

# /SET urlinfo_timeout 10

#   How many seconds after which to give up trying to fetch a URL

#

# /SET urlinfo_ignore_domains example\.org example\.com

#   Space separated list of regular expressions of domains to ignore

#

# /SET urlinfo_ignore_targets freenode #something efnet/#example

#   Space separated list of targets to ignore.

#

# /SET urlinfo_send_channels freenode #something efnet/#example

#   Space separated list of targets to post in the channel.

#

# /SET urlinfo_custom_domains my\.domain/thing irssi\.org=description

#   A limited way of configuring custom domains, if you need something more

#   complex edit SITES below.

#   Format: domain[/path[=from]]

 

# ------- Sites configuration

 

# This script aims to be data driven, this hash has "site_name => {site details}"

# site details is a hash reference which can contain:

#   cleanup: A regexp of text to remove from the resulting string

#   domain: A string (or regexp, with qr//) of the domain to match (www. is

#     removed automatically).

#   from: Where to read the info "title", "description" (meta description) or

#     a regexp to match the content (default "title")

#   example: Example of this URL

#   expected: What the example should return (see end for testing)

#   items: An array ref of additional hashes to allow multiple of these values

#     e.g.: items => [ { domain => "example.com" } ]

#   path: Path component (string or regexp)

#

my %SITES = (

  vimeo => {

    cleanup => qr/\s*on Vimeo$/,

    domain => "vimeo.com",

    path => qr{/\d+},

    example => "http://vimeo.com/80871338",

    expected => "Journey Part 1",

  },

  youtube => {

    cleanup => qr/\s*-\s*YouTube$/,

    items => [

      {

        domain => "youtu.be",

        example => "http://youtu.be/ghGoI7xVtSI",

        expected => "Rick Astley - Never Gonna Give You Up (Live 1987)",

      },

      {

        domain => "youtube.com",

        path => "/watch",

        example => "https://www.youtube.com/watch?v=ghGoI7xVtSI",

        expected => "Rick Astley - Never Gonna Give You Up (Live 1987)",

      },

    ],

  },

  metacpan => {

    cleanup => qr/\s*-\s*metacpan\.org$/,

    domain => "metacpan.org",

    path => qr{^/pod/},

    example => "https://metacpan.org/pod/release/DOY/Reply-0.34/lib/Reply.pm",

    from => "description",

    expected => "read, eval, print, loop, yay!",

  },

  pypi => {

    domain => "pypi.python.org",

    path => qr{^/pypi/},

    from => "description",

    example => "https://pypi.python.org/pypi/stanford-corenlp-python/3.3.6-0",

    expected => "A Stanford Core NLP wrapper (wordseer fork)",

  },

  gist => {

    cleanup => qr/\s*-\s*Gist is .*$/,

    domain => "gist.github.com",

    from => ["og:title", "description"],

    example => "https://gist.github.com/dgl/792206",

    expected => "An install script that installs a development version of perl (from ".

                "git) and keeps a particular set of modules installed. Sort of ".

                "perlbrew for blead, but not quite.",

  },

  github => {

    domain => "github.com",

    items => [

      { # issue, commit or pull

        cleanup => qr/\s*·.*$/,

        path => qr{^/[^/]+/[^/]+/(?:issues|commit|pull)/[a-f0-9]},

        example => "https://github.com/irssi/irssi/commit/669add",

        expected => "FS#155 hilight -tag",

      },

      { # user or project

        from => "og:description",

        path => qr{^/[^/]+(?:/[^/]+)?$},

        example => "https://github.com/irssi/irssi",

        expected => "irssi - The client of the future",

      },

    ],

  },

);

 

# ------- Site handling

 

sub expand {

  my @expanded_sites;

  for my $site(keys %SITES) {

    expand_site(\@expanded_sites, $site, $SITES{$site}, {});

  }

  return @expanded_sites;

}

 

# This essentially implements inheritance (via the "items" key), to reduce

# duplication.

sub expand_site {

  my($expanded_sites, $site, $site_data, $current) = @_;

  delete $current->{items};

  my $s = {

    name => $site,

    from => "title",

    %$current,

    %$site_data,

  };

  if (exists $s->{items}) {

    expand_site($expanded_sites, $site, $_, $s) for @{$s->{items}};

  } else {

    push @$expanded_sites, $s;

  }

}

 

sub _matcher {

  my($site, $item) = @_;

  return 1 unless defined $site;

  return 1 if ref $site eq 'ARRAY' && grep _matcher($_, $item), @$site;

  return 1 if ref $site && $site->isa("Regexp") && $item =~ $site;

  return $site eq $item;

}

 

sub get_site {

  my($sites, $url) = @_;

 

  my $uri = URI->new($url);

  $uri = URI->new("http://$url") unless $uri and $uri->scheme;

  return unless $uri and $uri->can("host") and $uri->host and $uri->scheme =~ /^https?$/;

 

  for my $site(@$sites) {

    my $match = 1;

    $match &&= _matcher($site->{domain}, $uri->host =~ s/^www\.//ri);

    $match &&= _matcher($site->{$_}, $uri->$_) for qw(scheme host path query fragment);

    return $site, $uri if $match;

  }

 

  if (Irssi::settings_get_bool("urlinfo_title_unknown")) {

    return { name => "unknown", from => "title" }, $uri;

  }

 

  return;

}

 

my %from = (

  title => sub {

    $_[0]->look_down(_tag => 'title')->as_trimmed_text;

  },

  description => sub {

    my $el = $_[0]->look_down(_tag => 'meta', name => 'description');

    $el && $el->attr('content');

  },

  'og:description' => sub {

    my $el = $_[0]->look_down(_tag => 'meta', property => 'og:description');

    $el && $el->attr('content');

  },

  'og:title' => sub {

    my $el = $_[0]->look_down(_tag => 'meta', property => 'og:title');

    $el && $el->attr('content');

  },

);

 

sub get_info {

  my($site, $uri) = @_;

  my $from = $site->{from};

  my $tree = HTML::TreeBuilder->new_from_url($uri);

  my $info;

  if (!ref $from || ref $from eq 'ARRAY') {

    $info = join ": ", grep defined, map $from{$_}->($tree), ref $from ? @$from : $from;

  } else {

    $info = join "", $tree->as_html =~ $from;

  }

  $info =~ s/$site->{cleanup}// if $site->{cleanup};

  $info =~ s/([\x00-\x19])/sprintf "\\x%x", ord $1/ger;

}

 

# ------- IRC message handling

 

# John Gruber's URL regexp (nicely handles people putting URLs in parens, etc)

my $URL_RE = qr{((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))};

 

my $pipe_in_progress;

my @sites;

my $timeout = 10;

 

sub msg {

  my($server, $text, $nick, undef, $target) = @_;

  # TODO: Add a queue / multiple pipe support?

  return if $pipe_in_progress;

 

  my $msg_time = time;

  my $tag = $server->{tag};

  $target = $target || $nick;

  $text = Irssi::strip_codes($text);

 

  if (my($url) = $text =~ $URL_RE) {

    my($site, $uri) = get_site(\@sites, $url);

    return unless $site;

    return if ignored($uri, $server, $target);

 

    fork_wrapper(sub { # Child

      my($fh) = @_;

      syswrite $fh, "  " . encode_utf8(get_info($site, $uri));

    },

    sub { # Parent

      my $in = decode_utf8($_[0]);

      if ($in =~ s/^- //) {

        print "\x{3}4urlinfo error:\x{3} $in";

        return;

      }

      $in =~ s/^  //;

      return unless $in;

 

      # Avoid reusing server just in case it is no longer valid

      my $server = Irssi::server_find_tag($tag);

      my $win = find_window($server, $target);

 

      my $view = $win->view;

      my $line = $view->get_lines;

      while ($line && ($line = $line->next)) {

        if ($line->{info}->{time} >= $msg_time) {

          if ($line->get_text(0) =~ /\Q$url/) {

            last;

          }

        }

      }

 

      my $timestamp = POSIX::strftime(

        Irssi::settings_get_str("timestamp_format"), localtime $msg_time);

      # I'm sure I shouldn't have to care about colours here...

      my $pad = length Irssi::strip_codes($timestamp);

 

      if (not(send2channel($server,$target,$url,$in))) {

        my $text = $win->format_get_text(__PACKAGE__, $server, $target,

          "urlinfo", " " x $pad, $in);

        $win->print_after($line, MSGLEVEL_NO_ACT|MSGLEVEL_CLIENTCRAP,

          $text, $msg_time);

        $view->redraw;

      }

    });

  }

}

 

sub send2channel {

  my ($server,$target,$url,$in) =@_;

  my @cl= split(" ",Irssi::settings_get_str('urlinfo_send_channels'));

  my $s=0;

 

  foreach ( @cl) {

    if ( $_ eq $target || $_ eq $server->{tag}."/".$target) {

      $s=1;

      $server->command("msg $target urlinfo: $in");

      last;

    }

  }

 

  return $s;

}

 

sub ignored {

  my($uri, $server, $target) = @_;

  my @ignored_domains = split / /, Irssi::settings_get_str('urlinfo_ignore_domains');

  my $domain = $uri->host =~ s/^www\.//r;

  return 1 if grep $domain =~ /^$_$/, @ignored_domains;

 

  my $chans = $server->isupport("chantypes") || '#&';

  my $chan_match = qr/^[$chans]/;

 

  for my $ignored_target (split / /, Irssi::settings_get_str('urlinfo_ignore_targets')) {

    my($mtag, $mtarget) = split m{/}, $ignored_target;

    if ($mtag =~ $chan_match) {

      $mtarget = $mtag;

      $mtag = "*";

    }

    return 1 if _match($mtag, $server->{tag}) &&

      (!$mtarget || _match($mtarget, $target));

  }

 

  return 0;

}

 

sub _match {

  my($pattern, $name) = @_;

  $pattern =~ s/\*/.*/g;

  $name =~ /^$pattern$/i;

}

 

sub find_window {

  my($server, $target) = @_;

  if (my $witem = $server->window_item_find($target)) {

    return $witem->window;

  } else {

    # Maybe they have a msgs window?

    my $win = Irssi::window_find_name("(msgs)");

    # Ultimate fallback

    $win = Irssi::window_find_refnum(1) unless $win;

    return $win;

  }

}

 

# Based on scriptassist.

sub fork_wrapper {

  my($child, $parent) = @_;

 

  pipe(my $rfh, my $wfh);

 

  my $pid = fork;

  $pipe_in_progress = 1;

 

  return unless defined $pid;

 

  if ($pid) {

    close $wfh;

    Irssi::pidwait_add($pid);

    my $pipetag;

    my @args = ($rfh, \$pipetag, $parent);

    $pipetag = Irssi::input_add(fileno($rfh), Irssi::INPUT_READ, \&pipe_input, \@args);

  } else {

    eval {

      local $SIG{ALRM} = sub { die "Timed out\n" };

      alarm $timeout;

      $child->($wfh);

    };

    alarm 0;

    syswrite $wfh, encode_utf8("- $@") if $@;

    POSIX::_exit(1);

  }

}

 

sub pipe_input {

  my ($rfh, $pipetag, $parent) = @{$_[0]};

  my $line = <$rfh>;

  close($rfh);

  Irssi::input_remove($$pipetag);

  $pipe_in_progress = 0;

  $parent->($line);

}

 

sub setup_changed {

  $timeout = Irssi::settings_get_int("urlinfo_timeout");

 

  @sites = expand();

  for my $site (split / /, Irssi::settings_get_str("urlinfo_custom_domains")) {

    next unless $site;

 

    my($re, $from) = split /=/, $site;

    $from ||= "title";

    my($domain, $path) = split m{/}, $re, 2;

    expand_site(\@sites, "custom", {

        domain => qr/^$domain$/,

        path => defined $path ? qr/^\/$path/ : undef,

        from => $from,

    }, {});

  }

}

 

# ------- Initialization

 

if (caller) {

  # Irssi specific initialization

  require Irssi::TextUI;

 

  Irssi::settings_add_str($IRSSI{name}, "urlinfo_custom_domains", "");

  Irssi::settings_add_str($IRSSI{name}, "urlinfo_ignore_domains", "");

  Irssi::settings_add_str($IRSSI{name}, "urlinfo_ignore_targets", "");

  Irssi::settings_add_str($IRSSI{name}, "urlinfo_send_channels", "");

  Irssi::settings_add_int($IRSSI{name}, "urlinfo_timeout", $timeout);

  Irssi::settings_add_bool($IRSSI{name}, "urlinfo_title_unknown", 0);

 

  Irssi::signal_add("message irc action" => \&msg);

  Irssi::signal_add("message private" => \&msg);

  Irssi::signal_add("message public" => \&msg);

 

  Irssi::signal_add_last("setup changed", \&setup_changed);

  setup_changed();

 

  Irssi::theme_register([

    'urlinfo' => '$0 %Kinfo:%n $1',

  ]);

 

} else {

  # Built in test. Run this script outside Irssi to use.

  @sites = expand();

  for my $site(@sites) {

    next unless $site->{example};

    my($found_site, $uri) = get_site(\@sites, $site->{example});

    if ($found_site != $site) {

      die "Got $found_site->{name}, expected $site->{name}";

    }

    say "Get $uri";

    my $result = get_info($site, $uri);

    say $result;

    die "Got $result, expected $site->{expected}" unless $result eq $site->{expected};

  }

  say "OK";

}

 

Hi Bootsy,

 

Wow, you're the first "real" person to find this.  I had a problem with Russian spammers a few months ago, that's the only activity other than my friends and me thus far.

 

Sorry for the belated reply, but I haven't checked my pastebin in a while.

 

Curious as to what kind of Google search it was.

 

Yes, we are a friend group.  Do you know about OLPC?  The One Laptop Per Child project from about a decade ago that kind of fizzled out?  The little green Linux laptops.

 

https://en.wikipedia.org/wiki/One_Laptop_per_Child

 

I live in Birmingham, AL, which was the largest US deployment.  I've been working with Linux since the turn of the century, so I volunteered to help.  As a part of that, I set up a "schoolserver" for testing and part of that was a chat server.  So, I invited folks to join and test with me.  A lot of the users were from the G1G1 (give one get one) program, so they joined from their XOs.

 

Over a decade later, I'm working in web hosting support and there's still a little core group of a few of us still on my chat server.  I moved it from hosting it on an old Dell "schoolserver" in my house to a Digital Ocean droplet.

 

Since it's relatively easy for me to host stuff nowadays, I throw up new things every now and then, this pastebin was one.  I happened to buy anna.fyi on a lark and thought it might be a good use for it for us to share things on a pastebin.  I asked around at work and Stikked had some recommendations.

 

I run the servers for our friend group.  I'm an English major, btw, lol.

 

It's good to hear from a real person on the internet!  You can email me at anna at schoolfield.org if you'd like to find out more about our little group.