No subject

[Bob Olson]

Received: from antares.mcs.anl.gov (antares.mcs.anl.gov [140.221.9.6])
	by mcs.anl.gov (8.9.3/8.9.3) with SMTP id GAA72316
	for <ag-tech at cliff.mcs.anl.gov>; Mon, 23 Aug 1999 06:53:30 -0500
Received: from lurk (putnam.mcs.anl.gov [140.221.9.117]) by antares.mcs.anl.gov (8.6.10/8.6.10)  with ESMTP
	id GAA13257 for <ag-tech at mcs.anl.gov>; Mon, 23 Aug 1999 06:54:44 -0500
Message-Id: <4.2.0.58.19990823064845.00b923c0 at localhost>
X-Sender: olson at localhost
X-Mailer: QUALCOMM Windows Eudora Pro Version 4.2.0.58 
Date: Mon, 23 Aug 1999 06:53:05 -0500
To: ag-tech at mcs.anl.gov
From: Robert Olson <olson at mcs.anl.gov>
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.

Config.bat:
---------------------------------------------------
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
---------------------------------------------------

build-ppt:

---------------------------------------------------
$server = "control.uky.edu";
$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";
     close(B);
}

---------------------------------------------------