mirror of https://github.com/BOINC/boinc.git
21 lines
324 B
Perl
21 lines
324 B
Perl
#!/usr/bin/perl -w
|
|
|
|
# $Id:$
|
|
|
|
# An authentication test script
|
|
|
|
|
|
require "./boinc_authentication.pl";
|
|
|
|
my $project_url='http://xxxx.org/LUNA';
|
|
my $email='yyyy@gmail.com';
|
|
my $password='zzzzz';
|
|
|
|
|
|
print lookup_email($project_url,$email);
|
|
print "\n\n";
|
|
|
|
print lookup_email_password($project_url,$email,$password);
|
|
print "\n\n";
|
|
|