setupinfo.pl

Print setup info (Perl) Uses the session interface to retrieve information about the MiKTeX setup.

00001 use Win32::OLE;
00002 my $session = Win32::OLE->new('MiKTeX.Session')
00003   or die "MiKTeX is not properly installed.\n";
00004 my $setupInfo = $session->GetMiKTeXSetupInfo();
00005 print "MiKTeX: $setupInfo->{'version'}\n";
00006 if ($setupInfo->{'sharedSetup'}) {
00007   print "SharedSetup: yes\n";
00008 } else {
00009   print "SharedSetup: no\n";
00010 }
00011 print "BinDir: $setupInfo->{'binDirectory'}\n";
00012 for ($r = 0; $r < $setupInfo->{'numRoots'}; $r += 1) {
00013   my $rootDirectory = $session->GetRootDirectory($r);
00014   print "Root$r: $rootDirectory\n";
00015 }
00016 print "Install: $setupInfo->{'installRoot'}\n";
00017 print "UserData: $setupInfo->{'userDataRoot'}\n";
00018 print "UserConfig: $setupInfo->{'userConfigRoot'}\n";
00019 if ($setupInfo->{'sharedSetup'}) {
00020   print "CommonData: $setupInfo->{'commonDataRoot'}\n";
00021   print "CommonConfig: $setupInfo->{'commonConfigRoot'}\n";
00022 }

Generated on Fri Dec 14 18:27:43 2007 for MiKTeX by  doxygen 1.5.1-p1