On Tue, Sep/11/2007 10:50:11AM, Jeff Squyres wrote: > Ethan -- > > Is this more appropriate for a Sun-specific .pm file? >
That's for an Install/ClusterTools plugin. I thought it made sense adjacent to "svn_checkout", though I *believe* Teamware could run on non-Sun platforms (it's a wrapper layer around SCCS). -Ethan > > On Sep 7, 2007, at 11:42 PM, emall...@osl.iu.edu wrote: > > > Author: emallove > > Date: 2007-09-07 23:42:10 EDT (Fri, 07 Sep 2007) > > New Revision: 999 > > URL: https://svn.open-mpi.org/trac/mtt/changeset/999 > > > > Log: > > Added `&MTT::Files::teamware_bringover()`. > > > > Text files modified: > > tmp/jms-new-parser/lib/MTT/Files.pm | 16 ++++++++++++++++ > > 1 files changed, 16 insertions(+), 0 deletions(-) > > > > Modified: tmp/jms-new-parser/lib/MTT/Files.pm > > ====================================================================== > > ======== > > --- tmp/jms-new-parser/lib/MTT/Files.pm (original) > > +++ tmp/jms-new-parser/lib/MTT/Files.pm 2007-09-07 23:42:10 EDT > > (Fri, 07 Sep 2007) > > @@ -301,6 +301,22 @@ > > return undef; > > } > > > > +# Do a (Sun) TeamWare bringover > > +sub teamware_bringover { > > + my ($file_list_program, $parent, $child, $path) = @_; > > + > > + my $str; > > + $str .= "bringover"; > > + $str .= " -p $parent"; > > + $str .= " -w $child"; > > + $str .= " $path"; > > + $str .= " -f $file_list_program\n"; > > + > > + my $ret = MTT::DoCommand::Cmd(1, $str); > > + > > + return $ret; > > +} > > + > > > > #--------------------------------------------------------------------- > > ----- > > > > # Copy and entire file tree > > _______________________________________________ > > mtt-svn mailing list > > mtt-...@open-mpi.org > > http://www.open-mpi.org/mailman/listinfo.cgi/mtt-svn > > > -- > Jeff Squyres > Cisco Systems > > _______________________________________________ > mtt-devel mailing list > mtt-de...@open-mpi.org > http://www.open-mpi.org/mailman/listinfo.cgi/mtt-devel
