Subversion Repositories DevTools

#! perl

########################################################################

# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.

#

# Module name   : jats.sh

# Module type   : Makefile system

# Compiler(s)   : n\a

# Environment(s): jats

#

# Description   : Process a hijacked file(s)

#                 Check it in on a branch

#

# Usage:

#

# Version   Who      Date        Description

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

#use Data::Dumper;

use Getopt::Long;

use Pod::Usage;                         # required for help support

use Win32::Shortcut;

my $opt_verbose = 0;                    # Verbosity

my $opt_help = 0;

my $opt_manual;

my $VERSION = "1.0.0";

#

#   Globals

#

my $svnDir = 'C:\Program Files\TortoiseSVN\bin';

my $svnExe = $svnDir . '\TortoiseProc.exe';

#-------------------------------------------------------------------------------

# Function        : Main Entry

#

# Description     : This small program will process hijacked files in a

#                   static view. It will create a branch for the file and then

#                   check the file in on the branch

#

#

# Inputs          : None

#

# Returns         : Even less.

#

my $result = GetOptions (

                "help+"     => \$opt_help,          # flag, multiple use allowed

                "manual"    => \$opt_manual,        # flag

                "verbose+"  => \$opt_verbose,       # flag

                );

#

#   Process help and manual options

#

pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result);

pod2usage(-verbose => 1)  if ($opt_help == 2 );

pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));

createSpecials();

#

#   Process files one by one

#

foreach  ( glob ('//auawsasvn001/d$/Repositories/*') )

{

    next unless ( -d $_ );

    process_file( $_ );

}

exit;

#-------------------------------------------------------------------------------

# Function        : process_file

#

# Description     : 

#

# Inputs          : 

#

# Returns         : 

#

sub process_file

{

    my ($fpath) = @_;

    my $reponame = $fpath;

    $reponame =~ s~.*/~~;

    my $svnCmd = '/command:repobrowser /path:https://auawsasvn001.vix.local/svn/';

print "Shortcut: $reponame\n";

    my $link = Win32::Shortcut->new();

	$link->{'File'} = $reponame . '.lnk';

	$link->{'Path'} = $svnExe;

	$link->{'Arguments'} = $svnCmd . $reponame;

	$link->{'Description'} = $reponame . ' Repository';

	$link->{'ShowCmd'} = 1;

	$link->{'IconLocation'} = $svnExe;

	$link->{'IconNumber'} = '1';

	$link->{'WorkingDirectory'} = $svnDir;

	my $rv = $link->Save();

    unless ( defined $rv )

    {

        print "Error creating $link->{'File'}\n";

    }

}

#-------------------------------------------------------------------------------

# Function        : createSpecial

#

# Description     : 

#

# Inputs          : 

#

# Returns         : 

#

sub createSpecials

{

    my $link = Win32::Shortcut->new();

	$link->{'File'} = 'TortoiseSVN Config' . '.lnk';

	$link->{'Path'} = 'C:\Users\dpurdie\AppData\Roaming\Subversion\config';

	#$link->{'Arguments'} = '';

	$link->{'Description'} = 'Edit Tortoise SVN Config';

	$link->{'ShowCmd'} = 1;

	#$link->{'IconLocation'} = $svnExe;

	#$link->{'IconNumber'} = '1';

	$link->{'WorkingDirectory'} = 'C:\Users\dpurdie\AppData\Roaming\Subversion';

	my $rv = $link->Save();

    unless ( defined $rv )

    {

        print "Error creating $link->{'File'}\n";

    }

    $link = Win32::Shortcut->new();

	$link->{'File'} = 'TortoiseSVN Settings' . '.lnk';

	$link->{'Path'} = $svnExe;

	$link->{'Arguments'} = '/command:settings';

	$link->{'Description'} = 'TortoiseSVN Settings';

	$link->{'ShowCmd'} = 1;

	$link->{'IconLocation'} = $svnExe;

	$link->{'IconNumber'} = '1';

	$link->{'WorkingDirectory'} = $svnDir;

	$rv = $link->Save();

    unless ( defined $rv )

    {

        print "Error creating $link->{'File'}\n";

    }

    $link = Win32::Shortcut->new();

	$link->{'File'} = 'TortoiseSVN' . '.lnk';

	$link->{'Path'} = $svnExe;

	$link->{'Arguments'} = '/command:repobrowser';

	$link->{'Description'} = 'TortoiseSVN Repo Browser';

	$link->{'ShowCmd'} = 1;

	$link->{'IconLocation'} = $svnExe;

	$link->{'IconNumber'} = '1';

	$link->{'WorkingDirectory'} = $svnDir;

	$rv = $link->Save();

    unless ( defined $rv )

    {

        print "Error creating $link->{'File'}\n";

    }

}

#-------------------------------------------------------------------------------

#   Documentation

#

=pod

=head1 NAME

xxxxx - Save a hijacked file on a private branch

=head1 SYNOPSIS

  xxxxxx [options] files...

 Options:

    -help               - brief help message

    -help -help         - Detailed help message

    -man                - Full documentation

    -verbose            - Verbose operation

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits.

=item B<-help -help>

Print a detailed help message with an explanation for each option.

=item B<-man>

Prints the manual page and exits.

=item B<-verbose>

Increases program output. This option may be specified mutiple times

=back

=head1 DESCRIPTION

This small program will process hijacked files in a static view. It will create

a branch for the file and then check the file in on the branch

=cut