script/Vss2Svn/SvnRevHandler.pm

   1 package Vss2Svn::SvnRevHandler;
   2
   3 use warnings;
   4 use strict;
   5
   6 our(%gCfg);
   7
   8 $gCfg{revtimerange} = 3600;
   9
  10 ###############################################################################
  11 #  new
  12 ###############################################################################
  13 sub new {
  14     my($class) = @_;
  15
  16     my $svncache = Vss2Svn::DataCache->new('SvnRevision', 1);
  17
  18     if (!defined($svncache)) {
  19         print "\nERROR: Could not create cache 'SvnRevision'\n";
  20         return undef;
  21     }
  22
  23     my $self =
  24         {
  25          svncache => $svncache,
  26          revnum => undef,
  27         };
  28
  29     $self = bless($self, $class);
  30
  31     $self->_init();
  32     return $self;
  33
  34 }  #  End new
  35
  36 ###############################################################################
  37 #  _init
  38 ###############################################################################
  39 sub _init {
  40     my($self) = @_;
  41
  42     $self->{timestamp} = undef;
  43     $self->{author} = undef;
  44     $self->{comment} = undef;
  45     $self->{seen} = {};
  46
  47 }  #  End _init
  48
  49 ###############################################################################
  50 #  check
  51 ###############################################################################
  52 sub check {
  53     my($self, $data) = @_;
  54
  55     my($physname, $itemtype, $actiontype, $timestamp, $author, $comment) =
  56         @{ $data }{qw( physname itemtype actiontype timestamp author comment )};
  57     my($prevtimestamp, $prevauthor, $prevcomment) =
  58         @{ $self }{qw( timestamp author comment )};
  59
  60     # Any of the following cause a new SVN revision:
  61     #   * same file touched more than once
  62     #   * different author or comment
  63     #   * time range exceeds threshold num. of seconds (default 3600)
  64     #   * any action on a directory other than add
  65
  66     my $wasseen = $self->{seen}->{$physname};
  67
  68
  69     no warnings 'uninitialized';
  70     if(($author ne $prevauthor) || ($comment ne $prevcomment) || $wasseen ||
  71        ($timestamp - $prevtimestamp > $gCfg{revtimerange}) ||
  72        ($itemtype == 1 && $actiontype ne 'ADD') ||
  73        $self->{commitPending} ) {
  74
  75         $self->new_revision($data);
  76
  77         if ($self->{verbose}) {
  78             print "\n**** NEW SVN REVISION ($self->{revnum}): ",
  79                 join(',', $physname, $timestamp, $author, $comment), "\n";
  80         }
  81
  82     }
  83
  84     # Any of the following actions needs to be commited the next time:
  85     #  * any action on a directory other than add
  86     #  * the first initial creation of the $/ project
  87     $self->{commitPending} = ($itemtype == 1 && $actiontype ne 'ADD') || ($self->{revnum} == 0);
  88
  89     $self->{seen}->{$physname}++;
  90
  91     @{ $self }{qw( timestamp author comment)} =
  92         ($timestamp, $author, $comment);
  93
  94 }  #  End check
  95
  96 ###############################################################################
  97 #  new_revision
  98 ###############################################################################
  99 sub new_revision {
 100     my($self, $data) = @_;
 101
 102     $self->{svncache}->add( @{ $data }{qw(timestamp author comment)} );
 103     $self->{revnum} = $self->{svncache}->{pkey};
 104     $self->{seen} = {};
 105     $self->{commitPending} = undef;
 106
 107 }  #  End new_revision
 108
 109 ###############################################################################
 110 #  commit
 111 ###############################################################################
 112 sub commit {
 113     my($self) = @_;
 114
 115     $self->{svncache}->commit();
 116 }  #  End commit
 117
 118 ###############################################################################
 119 #  SetRevTimeRange
 120 ###############################################################################
 121 sub SetRevTimeRange {
 122     my($class, $range) = @_;
 123
 124     $gCfg{revtimerange} = $range;
 125 }  #  End SetRevTimeRange
 126
 127
 128 1;