Goodies Zero-click Info Plugins

See the contribution page for a general overview on contributing to DuckDuckGo.

This repository is for contributing Perl-based Zero-click Info plugins. Each goodie plugin reacts to a set of queries and produces instant answers at the top of search results, e.g. calculations or throwing dice.

We maintain a list of requested goodie plugins, which are colored yellow on the Trello board, but whatever you want to attempt is welcome!

Contributing

First off, thank you!

Process

1. Develop your plugin using the Structure below in either a fork or a branch (if a collaborator).

2. Test your plugin via Testing procedure below.

3. Submit a pull request.

Feel free to ask questions!

Structure

Each goodie has its own directory. Some of the directories are in use on the live system, and some are still in development.

Each directory has a structure like this:

# Perl file that can be directly inserted into the live system.
# This file is included, so does not need a shebang 
# or a use warnings/strict line.
goodie.pl 

# List of test queries, one per line.
queries.txt

# OPTIONAL: helper files as needed
goodie.txt
goodie.html

Testing

Please, please test your goodie via the goodie-test.pl script in the top level directory before making a pull request. We developed this script to make sure integration goes smoothly.

# Test a particular query.
# Replace goodie with the name of your directory.
# Replace query with your query.
./goodie-test.pl goodie query

# Test the queries in queries.txt
# Replace goodie with the name of your directory.
./goodie-test.pl -t goodie

goodie.pl

Within the goodie.pl file, a few things are happening, and here is an overview that references live examples, which you can review:

1. There are some variables that are used in the system that operate outside the goodie, but which the goodie uses. Every goodie will use:

# This is the instant answer that gets printed out.
my $answer_results = '';

# This is a name (lowercase, no spaces) that gets 
# passed through to the API that should be defined 
# if $answer_results is set.
my $answer_type = '';

# This is defined external to the goodie and tells you 
# whether there is other Zero-click Info, and if so, 
# what type is it (C for category page, etc.).
my $type = '';

In addition, you may want to use:

# This is used to indicate whether the results get cached or not. 
# If the goodie is supposed to provide some kind of random output 
# that changes per page view, then you will want to set this to 0.
my $is_memcached = 1;

Finally, you will want to use a form of the query:

# This is the most common form in use. 
# It is a lower case version of the query 
# with an initial ! and ending ? removed.
my $q_check_lc = 'example query';

# This is the raw query.
my $q = 'Example query';

# This is a lower case version of the query 
# with sanitized spaces and special characters removed.
my $q_internal = 'example query';

2. The goodie needs to know when to be called. This involves some kind of conditional statement that first involves the $type variable.

# If there is no Zero-click.
if (!$type) {

}


# If there is no other goodie. 
# Will kill other Zero-click Info, e.g. Wikipedia. 
if ($type ne 'E') {

}

Secondly you want to segment the query space to queries related to that goodie. guid uses a hash to do so.

# Uses a hash to segment the query space.
my %guid = (
    'guid' => 0,
    'uuid' => 1,
    'globally unique identifier' => 0,
    'universally unique identifier' => 1,
    'rfc 4122' => 0,
    );

if ($type ne 'E' && exists $guid{$q_check_lc}) {

}

binary uses a regular expression.

if (!$type && $q_check_lc =~ m/^binary (.*)$/i) {

}

For regular expressions, we need to watch out for false positives and speed. You can do this easily by adding a lot of queries to queries.txt

3. Once inside the conditional, the goodie formulates the answer. This could vary slightly depending on input, but results in setting the $answer_results variable. Here's what abc looks like.

if (!$type && $q_check =~ m/^\!?\s*[A-Za-z]+(\s+or\s+[A-Za-z]+)+\s*$/ ) {
    my @choices = split(/\s+or\s+/, $q_check);
    my $choice = int(rand(@choices));

    $answer_results = $choices[$choice];
    $answer_results .= ' (random)';
    $answer_type = 'rand';
}

Notes

And here are some other things to keep in mind:

1. If you need a helper file, name it goodie.txt or goodie.html as needed. If you need to read in that file to be used over and over again, do it outside the conditional. For example passphrase reads in a list at the top.

my %passphrase = ();
open(IN, '<passphrase/goodie.txt');
while (my $line = <IN>) {
    chomp($line);
    my @res = split(/ /, $line);
    $passphrase{$res[0]} = $res[1];
    
}
close(IN);

Whereas if you need to read in a file for output, do it inside the conditional. For example, public_dns reads in a list inside.

    open(IN,"<public_dns/goodie.html");
    while (my $line = <IN>) {
    $answer_results .= $line;
    }
    close(IN);

2. If it is possible that the conditional gets called, but $answer_results still may not be set, then wrap $answer_type (and possibly other variables) in a separate conditional like in private_network.

    if ($answer_results) {
       $answer_type = 'network';
       $type = 'E';
    }

3. Goodies should only display results when they are better than algorithmic results.

4. It generally helps to give a bit of context around the answer_results, e.g. '(random password)' after a random password or 'Answer:' before.