フレッツ
|
ルーター - 無線
|
有線

#!/usr/bin/perl
###
$userId='Google ID';
$client_id='クライアントID';
$client_secret='クライアント シークレット';
$refresh_token='refresh_token';

$Folder='フォルダID';

$Type{'gz'}='application/gzip';
###
###
use LWP::UserAgent;
use IO::Socket::SSL;
use JSON;
###
my $res=&HttpRequest('POST',"https://www.googleapis.com/oauth2/v3/token","client_id=$client_id&client_secret=$client_secret&refresh_token=$refresh_token&grant_type=refresh_token");
our ($access_token)=$res=~/"access_token": "([^"]+)"/;
die if(!$access_token);

foreach(@ARGV){
    my ($dir,$name)=$_=~/^(.*?)\/?([^\/]+)$/;
    my ($ext)=$name=~/\.([^\.]+)$/;
    my $type=$Type{$ext}||'application/octet-stream';
    my $old=JSON::from_json(&HttpRequest('GET',"https://www.googleapis.com/drive/v2/files/$Folder/children?q=@{[&UrlEncode('title=\''.$name.'\'')]}"));
    my $new=JSON::from_json(&FileUpload($dir,$name,$type));
    if($new->{'id'}){
        foreach(@{$old->{'items'}}){
            &HttpRequest('DELETE',"https://www.googleapis.com/drive/v2/files/$_->{'id'}");
        }
    }
    sleep(1);
}
###
sub HttpRequest{
    my $method=shift;
    my $url=shift;
    my $body=shift;
    my $ua=LWP::UserAgent->new;
    my $req;
    if($method eq 'GET' || $method eq 'DELETE'){
        $req=HTTP::Request->new($method=>$url);
    }else{
        $req=HTTP::Request->new(POST=>$url);
        $req->content_type('application/x-www-form-urlencoded');
        $req->header(Content_length=>0) if(!$body);
        $req->content($body);
    }
    $req->header(Authorization=>"Bearer $access_token") if($access_token);
    my $res=$ua->request($req);
    return($res->content);
}
###
sub FileUpload{
    my $dir=shift||'.';
    my $name=shift;
    my $type="Content-Type: ".shift."\r\n\r\n";
    my $boundary=$name.time;
    my($head,$json,$len);
    $json="Content-Type: application/json; charset=UTF-8\r\n\r\n{'title':'$name','parents':[{'id':'$Folder'}]}\r\n";
    $len=length($json)+length($type)+(-s("$dir/$name"))+((length($boundary)+4)*3)+4;
    $head.="POST /upload/drive/v2/files?uploadType=multipart HTTP/1.1\r\n";
    $head.="Host: www.googleapis.com\r\n";
    $head.="Authorization: Bearer $access_token\r\n";
    $head.="Content-Type: multipart/related; boundary=\"$boundary\"\r\n";
    $head.="Content-Length: $len\r\n\r\n";

    my $sock=IO::Socket::SSL->new('www.googleapis.com:443');
    $sock->autoflush(1);
    print $sock $head;
    print $sock "--$boundary\r\n";
    print $sock $json;
    print $sock "--$boundary\r\n";
    print $sock $type;
    open(FILE,"$dir/$name");
    while(<FILE>){
        print $sock $_;
    }
    close(FILE);
    print $sock "\r\n--$boundary--\r\n";
    my($line,$len,$res);
    $line=$sock->getline;
    return if(!$line=~/^HTTP\S*200/);
    while(($line=$sock->getline) ne "\r\n"){
        $len=$1 if($line=~/^Content-Length: (\d+)/);
    }
    $sock->read($res,$len);
    $sock->close;
    return($res);
}
###
sub UrlEncode{
    my $str=shift;
    $str=~s/([^\w\-\.\~])/'%'.uc(unpack('H2',$1))/eg;
    return($str);
}
###

https://accounts.google.com/o/oauth2/auth?scope=https://www.googleapis.com/auth/drive&response_type=code&redirect_uri=urn:ietf:wg:oauth:2.0:oob&client_id=[クライアント ID]

curl -d redirect_uri=urn:ietf:wg:oauth:2.0:oob -d client_id=[クライアント ID] -d client_secret=[クライアント シークレット] -d grant_type=authorization_code -d code=[ブラウザで取得したコード] https://accounts.google.com/o/oauth2/token

#!/usr/bin/perl
###
$userId='Google ID';
$client_id='クライアントID';
$client_secret='クライアント シークレット';
$refresh_token='refresh_token';

$Folder='フォルダID';

$Type{'gz'}='application/gzip';
###
###
use LWP::UserAgent;
use JSON;
###
my $res=&HttpRequest('POST',"https://www.googleapis.com/oauth2/v3/token","client_id=$client_id&client_secret=$client_secret&refresh_token=$refresh_token&grant_type=refresh_token");
our ($access_token)=$res=~/"access_token": "([^"]+)"/;
die if(!$access_token);

foreach(@ARGV){
    my ($dir,$name)=$_=~/^(.*?)\/?([^\/]+)$/;
    my ($ext)=$name=~/\.([^\.]+)$/;
    my $type=$Type{$ext}||'application/octet-stream';
    my $old=JSON::from_json(&HttpRequest('GET',"https://www.googleapis.com/drive/v2/files?q=@{[&UrlEncode('\''.$Folder.'\' in parents and title=\''.$name.'\'')]}"));
    my $new=JSON::from_json(&FileUpload($dir,$name,$type));
    if($new->{'id'}){
        foreach(@{$old->{'items'}}){
            &HttpRequest('DELETE',"https://www.googleapis.com/drive/v2/files/$_->{'id'}");
        }
    }
    sleep(1);
}
###
sub HttpRequest{
    my $method=shift;
    my $url=shift;
    my $body=shift;
    my $ua=LWP::UserAgent->new;
    my $req;
    if($method eq 'GET' || $method eq 'DELETE'){
        $req=HTTP::Request->new($method=>$url);
    }else{
        $req=HTTP::Request->new(POST=>$url);
        $req->content_type('application/x-www-form-urlencoded');
        $req->header(Content_length=>0) if(!$body);
        $req->content($body);
    }
    $req->header(Authorization=>"OAuth $access_token") if($access_token);
    my $res=$ua->request($req);
    return($res->content);
}
###
sub FileUpload{
    my $dir=shift;
    my $name=shift;
    my $type=shift;
    my($file,$count,$body);
    open(FILE,"$dir/$name");
    while(<FILE>){
        $file.=$_;
    }
    close(FILE);
    while($file=~/\-\-$name$count/){
        $count++;
    }
    $body="--$name$count\nContent-Type: application/json; charset=UTF-8\n\n{'title':'$name','parents':[{'id':'$Folder'}]}\n";
    $body.="--$name$count\nContent-Type: $type\n\n".$file."\n--$name$count--\n";
    my $ua=LWP::UserAgent->new;
    my $req=HTTP::Request->new(POST=>"https://www.googleapis.com/upload/drive/v2/files?uploadType=multipart");
    $req->content_type("multipart/related; boundary=\"$name$count\"");
    $req->content_length(length($body));
    $req->content($body);
    $req->header(Authorization=>"OAuth $access_token");
    my $res=$ua->request($req);
    return($res->content);
}
###
sub UrlEncode{
    my $str=shift;
    $str=~s/([^\w\-\.\~])/'%'.uc(unpack('H2',$1))/eg;
    return($str);
}
###