globau

#!/usr/bin/perl
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

use strict;
use warnings;

use HTTP::Cookies;

globau

#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

# See https://bugzilla.mozilla.org/show_bug.cgi?id=793784

use strict;
use warnings;

globau

#!/bin/bash
pushd `dirname $0` >/dev/null

if [ "$1" == "" ]; then
    echo "syntax: $0 {url to technicpack jar}"
    echo "eg. $0 http://launcher.technicpack.net/launcher/415/TechnicLauncher.jar"
    exit
fi

if [ -e techniclauncher.app ]; then

globau

#!/usr/bin/perl

# very rough proof-of-concept for integration of markdown into bugzilla
# glob@mozilla.com

use strict;
use warnings;

use Bugzilla;
use Bugzilla::Bug;

globau

#!/usr/bin/perl
use strict;
use warnings;
binmode(STDOUT, ':utf8');

use Email::MIME;
use Email::Send;
use Email::Simple;
use Email::Simple::Header;
use Encode;

globau

options.timeout = 120
options.cache = false
options.subscribe = true

glob = IMAP {
    server = 'localhost',
    username = 'byron@glob.com.au',
    password = '-'
}

globau

#!/usr/bin/perl

#
# starts the dropbox deamon
# then stops when when it has finished syncing
#

use strict;
use warnings;

globau

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use 5.10.0;
$| = 1;

# opens editusers.cgi for the specified email addresses.  this avoids the need
# to search for the email address to find the user_id, then click to edit, and
# is most useful when editing multiple users.
#

globau

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

# steps for pushing a bmo update
# 1. execute this script, which
#    - updates the repository
#    - determines changes on the master branch but not on production
# 2. use the first url and text to create a push bug

globau

#!/usr/bin/perl -w
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

use strict;
use warnings;

use FindBin qw($RealBin);
use File::Basename;