Current Path : /proc/3/task/3/cwd/scripts/

Upload File :

Current File : //proc/3/task/3/cwd/scripts/generate_google_drive_credentials

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - generate_google_drive_credentials         Copyright 2017 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package scripts::generate_google_drive_credentials;

use strict;
use warnings;

use Cpanel::Transport::Files::GoogleDrive::AuthHandler ();

my $code  = $ENV{'GOOGLE_AUTH_CODE'};
my $state = $ENV{'GOOGLE_AUTH_STATE'};

if ( !$code ) {

    print "Usage:  $0\n";
    print "Authorization code is passed in via environment variable:  GOOGLE_AUTH_CODE\n";
    print "Authorization state is passed in via environment variable:  GOOGLE_AUTH_STATE\n";
    exit 1;
}

my ( $rc, $message ) = Cpanel::Transport::Files::GoogleDrive::AuthHandler::generate_credential_file( $code, $state );

if ($rc) {
    print "Credentials successfully generated\n";
}
else {
    print "Google returned with the following error:  $message\n";
}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez