cq/check_attachments

   1 #!cqperl
   2 use strict;
   3 use warnings;
   4 use CQPerlExt;
   5 use File::Spec;
   6
   7 our ($me, $SEPARATOR);
   8
   9 my ($abs_path, $lib_path);
  10
  11 BEGIN {
  12   # Extract relative path and basename from script name.
  13   $0 =~ /(.*)[\/\\](.*)/;
  14
  15   $abs_path   = (!defined $1) ? "." : File::Spec->rel2abs ($1);
  16   $me         = (!defined $2) ? $0  : $2;
  17   $me         =~ s/\.pl$//;
  18
  19   # Define the path SEPARATOR
  20   $SEPARATOR  = ($^O =~ /MSWin/) ? "\\" : "/";
  21
  22   # Setup paths
  23   $lib_path   = "$abs_path" . $SEPARATOR . ".." . $SEPARATOR . "lib";
  24
  25   # Add the appropriate path to our modules to @INC array.
  26   unshift (@INC, "$abs_path");
  27   unshift (@INC, "$lib_path");
  28 } # BEGIN
  29
  30 use PQA;
  31 use Display;
  32
  33 sub TotalAttachment {
  34   my $log       = shift;
  35   my $id        = shift;
  36   my $from      = shift;
  37
  38   my $attachments_size = 0;
  39
  40   my $from_attachment_fields    = $from->GetAttachmentFields;
  41
  42   for (my $i = 0; $i < $from_attachment_fields->Count; $i++) {
  43     my $from_attachment_field   = $from_attachment_fields->Item ($i);
  44     my $field_name              = $from_attachment_field->GetFieldName;
  45
  46     # Process attachments in this attachment field
  47     my $from_attachments        = $from_attachment_field->GetAttachments;
  48
  49     for (my $j = 0; $j < $from_attachments->Count; $j++) {
  50       my $from_attachment       = $from_attachments->Item ($j);
  51       my $description           = $from_attachment->GetDescription;
  52       my $filename              = $from_attachment->GetFileName;
  53       my $size                  = $from_attachment->GetFileSize;
  54
  55       next if $filename eq "history.txt";
  56       $log->msg ("$id,$filename,$size");
  57       $attachments_size += $size;
  58     } # for
  59   } # for
  60
  61   $log->msg ("$id,Total attachment size,$attachments_size") if $attachments_size ne 0;
  62
  63   return $attachments_size;
  64 } # TotalAttachment
  65
  66 my $log         = Logger->new (path => ".");
  67
  68 # Open databases
  69 my $record_name = "defect";
  70
  71 my $connection  = "2005.02.00";
  72 my $cont        = StartSession "Cont", $connection;
  73
  74 $connection     = "2003.06.00";
  75 my $teton       = StartSession "TO", $connection;
  76 my $prod        = StartSession "Prod", $connection;
  77
  78 my $result = GetAllDefectRecords $log, $cont, $record_name;
  79
  80 my $grand_total_old = 0;
  81 my $grand_total_new = 0;
  82
  83 while ($result->MoveNext == $CQPerlExt::CQ_SUCCESS) {
  84   # GetEntity by using $id
  85   my $id        = $result->GetColumnValue (1);
  86   my $from      = $cont->GetEntity ($record_name, $id);
  87
  88   my $new_size  = TotalAttachment $log, $id, $from;
  89
  90   my $old_id    = $from->GetFieldValue ("old_id")->GetValue;
  91
  92   my $to;
  93
  94   if ($old_id =~ /^TO/) {
  95     $to = $teton->GetEntity ($record_name, $old_id);
  96   } elsif ($old_id =~ /^Prod/) {
  97     $to = $prod->GetEntity ($record_name, $old_id);
  98   } else {
  99     error "Old_id is not set! $old_id";
 100   } # if
 101
 102   my $old_size  = TotalAttachment $log, $id, $to;
 103
 104   $grand_total_old += $old_size;
 105   $grand_total_new += $new_size;
 106
 107   if ($new_size gt $old_size) {
 108     display "$id:$new_size > $old_id:$old_size";
 109   } elsif ($new_size lt $old_size) {
 110     display "$id:$new_size < $old_id:$old_size";
 111 #  } else {
 112 #    display "$id:$new_size = $old_id:$old_size";
 113   } # if
 114
 115 } # while
 116
 117 display "Grand total (old): $grand_total_old";
 118 display "Grand total (new): $grand_total_new";
 119
 120 EndSession $cont;
 121 EndSession $teton;
 122 EndSession $prod;