diff --git a/src/BaselineOfGitLabHealth/BaselineOfGitLabHealth.class.st b/src/BaselineOfGitLabHealth/BaselineOfGitLabHealth.class.st index b6e83fa..cdaad70 100644 --- a/src/BaselineOfGitLabHealth/BaselineOfGitLabHealth.class.st +++ b/src/BaselineOfGitLabHealth/BaselineOfGitLabHealth.class.st @@ -38,11 +38,16 @@ BaselineOfGitLabHealth >> defineDependencies: spec [ spec baseline: 'MoreLogger' with: [ spec repository: 'github://badetitou/MoreLogger:main/src' ]. - spec + spec baseline: 'Voyage' with: [ spec loads: #('mongo'); - repository: 'github://pharo-nosql/voyage/mc' ] + repository: 'github://pharo-nosql/voyage/mc' ]. + spec + baseline: 'AWS' + with: [ + spec repository: 'github://newapplesho/aws-sdk-smalltalk/pharo-repository' + ] ] { #category : #baselines } diff --git a/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st b/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st index 301fdfd..ce2587b 100644 --- a/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st +++ b/src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st @@ -254,6 +254,24 @@ GitMetricExporter >> exportInDB: repository [ self analyses do: [ :analysis | analysis save ] ] +{ #category : #exporting } +GitMetricExporter >> exportInS3: bucketName accessKey: accessKey secretKey: secretKey region: region [ + | s3 bucket ston date | +AWSS3Config default + accessKeyId: accessKey; + secretKey: secretKey; + regionName: region. + + s3 := AWSS3 new. + bucket:= s3 bucketNamed: bucketName. + + ston := STON toString: analyses. + + date := (Date today asString) copyReplaceAll: ' 'asString with: '-'. + + bucket atKey:'analyses-', date, '.ston' putObject: ston. +] + { #category : #projects } GitMetricExporter >> findParticipationOfCommitAuthorNamed: username amongProjects: aCollectionOfProjects [