No subject

Bob Olson olson at
Mon Aug 23 07:06:10 CDT 1999

Received: from ( [])
	by (8.9.3/8.9.3) with SMTP id GAA72316
	for <ag-tech at>; Mon, 23 Aug 1999 06:53:30 -0500
Received: from lurk ( []) by (8.6.10/8.6.10)  with ESMTP
	id GAA13257 for <ag-tech at>; Mon, 23 Aug 1999 06:54:44 -0500
Message-Id: < at localhost>
X-Sender: olson at localhost
X-Mailer: QUALCOMM Windows Eudora Pro Version 
Date: Mon, 23 Aug 1999 06:53:05 -0500
To: ag-tech at
From: Robert Olson <olson at>
Subject: Perl script to build batch files for slides
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed

This makes setting up presentations a bit easier. Given a set of powerpoint 
files, it builds a set of batch files with the same name that fire up the 
dppt client with that file. Assumes local copies of the powerpoint, and a 
config.bat modified as below (to not set the server, so the startup batch 
file can do so). Script assumes the same server for each, so you need to 
edit any that aren't (like rick's talk likely is today, unless we just use 
uky control for it). Also note the slide directory path.

set dppt=c:\dppt2
set CLASSPATH=%dppt%\ag.jar;%dppt%\jsdt.jar;%dppt%\jsdt-client-socket.jar
set PORT=5001
set URL=jsdt://%SERVER%:%PORT%/socket/Session/AG
set JAVA=jview


$server = "";
$slide_dir = "c:\\dppt2\\uky";

for $ppt (<*.ppt>)
     print "$ppt\n";

     ($bat = $ppt) =~ s/\.ppt/.bat/;

     open(B, ">$bat") or die;
     print B "call config\n";
     print B "set SERVER=$server\n";
     print B "%JAVA% ag.presentationClient -win %URL% $slide_dir\\$ppt\n";


More information about the ag-tech mailing list