[TeamTalk 199]: [735] trunk/TeamTalk: 1) create-source-image.pl and ManageSSRepo. pm are no longer needed since repository is not longer SourceSafe.
tk@edam.speech.cs.cmu.edu
tk at edam.speech.cs.cmu.edu
Tue Sep 4 14:39:17 EDT 2007
An HTML attachment was scrubbed...
URL: http://mailman.srv.cs.cmu.edu/pipermail/teamtalk-developers/attachments/20070904/d2debb3d/attachment.html
-------------- next part --------------
Deleted: trunk/TeamTalk/ManageSSRepo.pm
===================================================================
--- trunk/TeamTalk/ManageSSRepo.pm 2007-09-04 18:30:46 UTC (rev 734)
+++ trunk/TeamTalk/ManageSSRepo.pm 2007-09-04 18:39:17 UTC (rev 735)
@@ -1,76 +0,0 @@
-#!/bin/perl
-
-#makes a source image of everything in this directory and names it with the arg
-
-#WARNING: may not re-entrant
-# todo:
-# convert to OLE, see http://search.cpan.org/src/BPRUDENT/VSS-1.0.4/lib/VSS.pm
-# add comments
-
-package ManageSSRepo;
-
-use IPC::Open3;
-use strict;
-
-my $BANNER = "ManageSSRepo Tool.$/" .
- "Thomas Harris <tkharris\@cs.cmu.edu>";
-
-sub new {
- my ($class, $self) = @_;
- bless($self, $class);
- $self->{'SSREPO'} = $ENV{'SSDIR'} if !$self->{'SSREPO'};
- die "Environment variable SSDIR must point to a SourceSafe repository."
- unless $self->{'SSREPO'};
- $self->{'SSHOME'} = $ENV{'SS_HOME'} if !$self->{'SSHOME'};
- die "Environment variable SS_HOME must point to where SS.EXE is located."
- unless $self->{'SSHOME'};
- $ENV{'SSDIR'} = $self->{'SSREPO'};
- $self->{'SSCMD'} = $self->{'SSHOME'} =~ /^\"/? $self->{'SSHOME'}: "\"$self->{'SSHOME'}\"";
- $self->{'SSCMD'} =~ s/\"$/\\ss.exe\"/;
-
- if($self->{'LOGDATE'}) {
- my ($blah, $blah, $blah, $mday, $mon, $year) = localtime;
- $self->{'LOGDATE'} = sprintf('%d-%d-%d~%s', $mon+1, $mday, $year+1900, $self->{'LOGDATE'});
- }
-
- print STDERR "$BANNER$/$/".
- "SourceSafe repository: $self->{'SSREPO'}$/" .
- "SourceSafe directory : $self->{'SSHOME'}$/";
- print STDERR "SSCMD = $self->{SSCMD}$/" if $self->{'DEBUG'};
-
- return $self;
-}
-
-sub getSSProject {
- my $self = shift;
- my ($project, $wfile) = @_;
-
- my @dirs = split /\\/, $wfile;
- for(my $i=0; $i<$#dirs; $i++) {
- mkdir join('\\', @dirs[0..$i]);
- }
- if($dirs[$#dirs] =~ /\./) { #poor man's isRegularFile()
- $wfile = join('\\', @dirs[0..$#dirs-1]);
- } else {
- mkdir $wfile;
- }
- my $cmd = "$self->{'SSCMD'} Get \$/$project -GTM -W -I- -GL\"$wfile\" -R";
- print STDERR $cmd, $/ if $self->{'DEBUG'};
- my $out = `$cmd`;
- print STDERR $out, $/ if $self->{'DEBUG'};
-
- if($self->{'LOGDATE'}) {
- my $cmd = "$self->{'SSCMD'} history \$/$project -I- -R -Vd$self->{'LOGDATE'}";
- local(*HIS_IN, *HIS_OUT, *HIS_ERR);
- my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd);
- close(HIS_IN);
- my @outlines = <HIS_OUT>;
- my @errlines = <HIS_ERR>;
- print @outlines if grep /Version \d/, @outlines;
- close(HIS_OUT);
- close(HIS_ERR);
- waitpid($childpid, 0);
- }
-}
-
-1;
Deleted: trunk/TeamTalk/create-source-image.pl
===================================================================
--- trunk/TeamTalk/create-source-image.pl 2007-09-04 18:30:46 UTC (rev 734)
+++ trunk/TeamTalk/create-source-image.pl 2007-09-04 18:39:17 UTC (rev 735)
@@ -1,90 +0,0 @@
-#!/bin/perl
-
-#makes a source image of everything in this directory and names it with the arg
-
-use ManageSSRepo;
-use File::Find;
-use File::Path;
-use File::Copy;
-use File::Spec;
-use strict;
-
-my $LOGDATE = shift; #log changes since logdate
-die "Please set the environment variable 'SS_HOME' to the location of VSS.$/".
- "i.e. set SS_HOME=C:\\Program Files\\Microsoft Visual Studio\\VSS\\win32." if !$ENV{'SS_HOME'};
-
-my $DEBUG = 1;
-my $SSREPO = '\\\\bar\\communicator\\CommSrcArch';
-#my $SSHOME = '/cygdrive/c\\Program Files\\Microsoft Visual Studio\\VSS\\win32';
-my ($blah, $blah, $blah, $mday, $mon, $year) = localtime;
-my $timestr = sprintf('%4d-%s-%02d', $year+1900, ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon], $mday);
-my $TARGET = "TeamTalk";
-my %SSPROJ;
-foreach ('Helios3', 'Kalliope', 'NlgServer2', 'Phoenix2', 'ProcessMonitor', 'Ravenclaw') {
- $SSPROJ{"CommonAgents-2005/$_"} = "$TARGET\\Agents\\$_";
-}
-foreach ('Audio_Server', 'Sphinx_Engine') {
- $SSPROJ{"CommonAgents-2005/MultiDecoder/$_"} = "$TARGET\\Agents\\MultiDecoder\\$_";
-}
-
-my $ssmanager = ManageSSRepo->new({'SSREPO' => $SSREPO, 'DEBUG' => 1, 'LOGDATE' => $LOGDATE});
-
-#get each project
-foreach (keys %SSPROJ) {
- $ssmanager->getSSProject($_, $SSPROJ{$_});
-}
-
-#also copy a couple externals
-
-
-#create some useful empty directories
-for('bin', 'bin/x86-nt', 'logs', 'ExternalLibraries', 'ExternalLibraries/Galaxy', 'ExternalLibraries/sphinx2') {
- mkdir "$TARGET/$_";
-}
-
-sub printstat {
- my $serve = shift;
- my $size = 100;
- my $i;
- my $len = length($serve);
- if ($len > $size) {
- print STDERR "\r~", substr($serve, $len-$size+1);
- } else {
- print STDERR "\r", $serve;
- for($i = $len; $i<$size; $i++) {
- print STDERR ' ';
- }
- }
-}
-
-#write to zip
-open(FILES, "|zip ${TARGET}-supplement.zip -q@");
-my $CANONTARGET = File::Spec->rel2abs($TARGET);
-print STDERR "copying...$/";
-find({wanted => sub {
- if ($_ ne '.' && $_ ne '..') {
- if (-d) {
- mkdir File::Spec->catdir($CANONTARGET, $File::Find::name);
- } else {
- printstat $File::Find::name;
- copy($_, File::Spec->catdir($CANONTARGET, $File::Find::dir)) || die "Can't copy $_ to ", File::Spec->catdir($CANONTARGET, $File::Find::dir), $/;
- }
- }
-}, preprocess => sub {grep(!/\.pch$/, grep (!/\.obj$/, @_));}}, 'ExternalLibraries/Galaxy', 'ExternalLibraries/sphinx2');
-print STDERR $/;
-print STDERR "zipping...$/";
-find({wanted => sub {
- if ($_ ne '.' && $_ ne '..') {
- #printstat $File::Find::name;
- print FILES $File::Find::name, $/;
- }
-}
- }, $TARGET);
-#print STDERR $/;
-close FILES;
-
-#clean-up
-print STDERR "cleaning up...$/";
-rmtree $TARGET, 0, 0;
-
-
Deleted: trunk/TeamTalk/developer-install-guide.txt
===================================================================
--- trunk/TeamTalk/developer-install-guide.txt 2007-09-04 18:30:46 UTC (rev 734)
+++ trunk/TeamTalk/developer-install-guide.txt 2007-09-04 18:39:17 UTC (rev 735)
@@ -1,34 +0,0 @@
-1. Only runs on windows
-
-2. You'll need
-
-msvc++ .net,
-activestate perl,
-msvss 6.0, install as custom, unselect create ss db and unselect
-network client setup. In order to connect to the sourcesafe db, you
-have to mount \\bar\communicator to a drive or directory. Select
-\\bar\communicator\CommSrcArch\srcsafe.ini as your database.
-
-3. get ravenclaw distribution You can get it at:
- \\gs3089.sp.cs.cmu.edu\RavenClawDistribution
-
-from J...
-works but for some it doesn't
-open.. lemme know if this is the case.
-
-If it does open, copy ConvertProj.zip to your pc, unzip it to a temp
-folder, and then follow the install instructions inside install.txt. Let me
-know if anything goes wrong asap!
-
-J
-
-You should name your project 'zap2'. I think there are name dependancies.
-
-4. set the SourceSafe zap2 working directory to whatever\zap2
-
-5. get the latest zap2 recursive, overwrite everything
-
-6. open whatever\zap2\agents\zap2dm\zap2dm.sln
-
-7. batch build
-
More information about the TeamTalk-developers
mailing list