scmbug.pm

codestriker is a develop useful tool to review code on web user interface.

###############################################################################
# Codestriker: Copyright (c) 2001,2002,2003 David Sitsky.  All rights reserved.
# [e-mail]
#
# This program is free software; you can redistribute it and modify it under
# the terms of the GPL.

# ScmBug repository access package.

package Codestriker::Repository::ScmBug;

use strict;

use Codestriker::Repository;
@Codestriker::Repository::ScmBug::ISA = ("Codestriker::Repository");

# Optional dependencies for people who don't require ScmBug functionality.
eval("use Scmbug::ActivityUtilities");

# Create a connection to the ScmBug daemon, and maintain a reference to the
# delegate repository.
sub new {
    my ($type, $hostname, $port, $repository) = @_;

    my $self = Codestriker::Repository->new("scmbug: ${hostname}:${port} " . $repository->toString());
    $self->{repository} = $repository;
    $self->{scmbug} = Scmbug::ActivityUtilities->new($hostname, $port);

    bless $self, $type;
}


# Retrieve the data corresponding to $filename and $revision.  Store each line
# into $content_array_ref.
sub retrieve ($$$\$) {
    my ($self, $filename, $revision, $content_array_ref) = @_;

    $self->{repository}->retrieve($filename, $revision, $content_array_ref);
}

# Retrieve the "root" of this repository.
sub getRoot ($) {
    my ($self) = @_;
    return $self->{repository}->{repository_url};
}

# Return a URL which views the specified file and revision.
sub getViewUrl ($$$) {
    my ($self, $filename, $revision) = @_;

    return $self->{repository}->getViewUrl($filename, $revision);
}

# Return a string representation of this repository.
sub toString ($) {
    my ($self) = @_;
    return $self->{repository}->toString();
}

# The getDiff operation, pull out a change set based on the bug IDs.
sub getDiff {
    my ($self, $bugids, $stdout_fh, $stderr_fh, $default_to_head) = @_;

    # Remove spaces from the comma-separated list of bug ids so that
    # "123, 456" is transformed to "123,456" which is the form
    # Scmbug::ActivityUtilities expects.
    $bugids =~ s/ //g;
    my $affected_files_list = $self->{scmbug}->get_affected_files($bugids);
    
    my @reducedChangesets = ();

    # Tidy up the returned data, joining any changes done one after another
    # this will produce a much more readable topic
    foreach my $changeset ( @{ $affected_files_list } ) {

        # Don't diff just directory property changes
        if ( $changeset->{file} =~ /\/$/ ) {
            next;
        }
        
        my $foundfile = 0;

        foreach my $existingChangeSet ( @reducedChangesets ) {
            if ($changeset->{file} eq $existingChangeSet->{file}) {
                $foundfile = 1;
            	# File matches now update the old and new revision
                if ($changeset->{old} eq $existingChangeSet->{new}) {
		    $existingChangeSet->{new} = $changeset->{new};
                } elsif($changeset->{new} eq $existingChangeSet->{old}) {
                    $existingChangeSet->{old} = $changeset->{old};
                }
            }
        }
        
        if ($foundfile == 0) {
            push @reducedChangesets, $changeset;
        }
    }

    foreach my $changeset ( @reducedChangesets ) {        

        # Call the delgate repository object for retrieving the actual
        # content.
	my $old_rev;
	my $new_rev;

	if ($changeset->{old} == 0) {
	    # File has been added.
	    $old_rev = '';
	    $new_rev = $changeset->{new};
	} elsif ($changeset->{new} == 0) {
	    # File has been removed.
	    $old_rev = $changeset->{old};
	    $new_rev = $Codestriker::REMOVED_REVISION;
	} else {
	    # File has been modified;
	    $old_rev = $changeset->{old};
	    $new_rev = $changeset->{new};
	}

        my $ret = $self->{repository}->getDiff($old_rev, $new_rev,
                                               $changeset->{file},
                                               $stdout_fh,
                                               $stderr_fh,
                                               $default_to_head);
        return $ret if $ret != $Codestriker::OK;
    }

    return $Codestriker::OK;
}


1;