Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Perl, Visual Studios, and Source Safe

by zakb (Pilgrim)
on May 29, 2002 at 15:41 UTC ( #170117=note: print w/replies, xml ) Need Help??


in reply to Perl, Visual Studios, and Source Safe

Microsoft Visual SourceSafe does have an OLE module (certainly as of v6.0c) - you may have to specify you want to install it when you install Sourcesafe, I can't remember.

You then need to read up on Win32::OLE, and the difficult to find VSS automation documentation.

Following this, you'll need something like this to load the VSS library:

my $vss = Win32::OLE->new('SourceSafe.0') || die "Can't create VSS obj +ect\n"; $vss->Open($vssINI, $vssUser, $vssPass); die "Error Opening VSS db: " . Win32::OLE->LastError() if Win32::OLE-> +LastError() != 0;

(where $vssINI is the full path and filename of the INI file of the SourceSafe database you want to open.)

Subsequently, you can use the various objects and methods in the VSS docs to manipulate VSS resources. The VSS OLE interface isn't the most pleasant to work with, but it does work (mostly)...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://170117]
help
Chatterbox?
[marto]: List EXE_FILES installed by CPAN so a couple of people suggest that your code looks obfuscated. I'd have to ageree, from the perspective of those who can't follow all of that one liner, it doesn't read well
Veltro is a weirdo, obsessed with whitespace
[marto]: to use the word "obsession" when so few people have said so little about it is grasping at staws
marto wishes tye was around, he's so much better at this sort of thing
usemodperl likes tye!
usemodperl tye  too
[choroba]: Re^3: LiBXML: New markup while preserving earlier tags? would benefit from a couple of test cases
usemodperl meant tye 
usemodperl pokes Veltro with line noise
usemodperl will try to make better shapes with his line noise, like a camel, or boobs, then it will be called "clever" :-)

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2018-06-24 16:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (126 votes). Check out past polls.

    Notices?