view release on metacpan or  search on metacpan

lib/App/ggdrv/crecord.pm  view on Meta::CPAN

my $GFILE = $ENV{ GGDRV_API } // "~/.ggdrv2303v1" ;
print YELLOW << "EOB1" if ! $run ;
下記をコピペして実行せよ。そして、生成されたファイル(すぐ次の行)を直接編集して、EMAIL, CLIENT_ID, CLIENT_SECRET の3個の値を設定せよ。
コピペして実行する代わりに「$0 crecord --run 」を実行しても良い。その場合も生成された $GFILE を手動で3個の値を編集せよ。
これら3個の値は、console.cloud.google.com の (使っているプロジェクトの)「APIとサービス」の「認証情報」を見れば良いであろう。
EOB1

my $cmd = << "EOB1" ;
GGDRV_API=$GFILE
touch \$GGDRV_API 
chmod 600 \$GGDRV_API # 他のユーザーに書き込んだファイルは読めないようにするパーミッションの設定が必要だったと思われる。
cat > \$GGDRV_API << EOF
##
## このファイルは、キーとバリューの形式で情報を読み取るプログラムに使われる。
##  * キーとバリューの間は 半角空白、タブ文字、コロン(:)、イコール文字(=)とその組合せのみが許容される。
##  * バリューの文字列は、改行文字の直前までであることを想定している。
##  * コメントアウトの書式は想定されない。
##  * バリュー(値;左から2列目)を削除したい場合、その左側の1列(キー)を表す文字列は残すこと。後で再び何かのプログラムが書き込むことがあるからである。
##
##  初めてこのスクリプトを実行する前に、下記の項目を GCPのコンソールの「APIとサービス」の「認証情報」からひとつをクリックして、
##  IDとsecretをコピーして、下記にペーストすることになるであろう。