|
Lines 102-108
sub get_md5 {
Link Here
|
| 102 |
=cut |
102 |
=cut |
| 103 |
|
103 |
|
| 104 |
sub execute_version { |
104 |
sub execute_version { |
| 105 |
my ( $version ) = @_; |
105 |
my ( $version, $args ) = @_; |
| 106 |
my $report; |
106 |
my $report; |
| 107 |
|
107 |
|
| 108 |
my $filepath; |
108 |
my $filepath; |
|
Lines 118-133
sub execute_version {
Link Here
|
| 118 |
my $filename = $version . $extension; |
118 |
my $filename = $version . $extension; |
| 119 |
|
119 |
|
| 120 |
my $md5 = get_md5 $filepath; |
120 |
my $md5 = get_md5 $filepath; |
| 121 |
my $r = md5_already_exists( $md5 ); |
121 |
unless ( $args->{force} ) { |
| 122 |
if ( scalar @$r ) { |
122 |
my $r = md5_already_exists( $md5 ); |
| 123 |
my $p = @$r[0]; |
123 |
if ( scalar @$r ) { |
| 124 |
$report->{$version} = { |
124 |
my $p = @$r[0]; |
| 125 |
error => "ALREADY_EXISTS", |
125 |
$report->{$version} = { |
| 126 |
filepath => $filepath, |
126 |
error => "ALREADY_EXISTS", |
| 127 |
old_version => @$r[0]->{version}, |
127 |
filepath => $filepath, |
| 128 |
md5 => @$r[0]->{md5}, |
128 |
old_version => @$r[0]->{version}, |
| 129 |
}; |
129 |
md5 => @$r[0]->{md5}, |
| 130 |
return $report; |
130 |
}; |
|
|
131 |
return $report; |
| 132 |
} |
| 131 |
} |
133 |
} |
| 132 |
|
134 |
|
| 133 |
my $queries; |
135 |
my $queries; |