Jka at 16:48, 16 August 2007

2007-08-16T16:48:53Z

New page

This was a quick script I whipped up in order to add user accounts to Bugzilla when we needed them. We had blocked account creation on the Bugzilla website from just anyone in order to block spammers.

<pre>
#!/usr/bin/perl

# We use strict, because that is a good thing. LWP::Simple is for connections
# to the web.

use strict;
use LWP::Simple;

my $email = $ARGV[0];
if (!$email) {
print "Usage: addbugzilla.pl <email>\n";
exit;
}

print "User's full name: ";
my $name = <STDIN>;

$name =~ s/ /\%20/g;

my $url = 'http://bugzilla.hpc.ufl.edu/createaccount.cgi?login=' .
$email . '&realname=' . $name;

my $content = get $url;

print $name . " has been added to Bugzilla.\n";
</pre>

Addbugzilla.pl - Revision history

Jka at 16:48, 16 August 2007