Below is the source code for a CGI used to access RealPlayer videos stored locally on CD from links on a Web site. This program requires LDML 3.0+ (Lasso Web Data Engine, http://www.blueworld.com). To download this source code, save the contents of this link.
<html>
[if: (form_param: setsize == 320) || (form_param: setsize == 640) || (form_param: setsize == 800) || (form_param: setsize == 1024)]
<!-- new image size chosen -->
[cookie_set: video_width=(form_param: setsize), path='/bacro/']
[var_set: width=form_param: setsize]
[else: if: cookie: video_width == '']
<!-- use default video image size -->
[var_set: width=320]
[else]
<!-- use image size from cookie -->
[var_set: width=cookie: video_width]
[/if]
[var_set: height= (math_round: (math_mult: var: width,0.75),1)]
<!-- resolve volume name / drive letter reference -->
[var_set: file = token_value: file]
[if: (string_findPosition: find='win',(client_type)) != '-1']
<!-- client platform is windows -->
[var_set: win = 1]
[if: (form_param: drive) != '']
<!-- store drive letter in cookie for future use -->
[cookie_set: bacro_drive_letter=(form_param: drive), path='/bacro/',expires=10000000]
[var_set: drive = form_param: drive]
[var_set: volume = (string_concatenate: encoderaw,'file:///',(form_param: 'drive'),'|/')]
[else: if: (cookie: bacro_drive_letter) != '']
<!-- use drive letter from cookie -->
[var_set: volume = (string_concatenate: encoderaw,'file:///',(cookie: 'bacro_drive_letter'),'|/')]
[var_set: drive = cookie: bacro_drive_letter]
[else]
<!-- ask user for drive letter -->
<body bgcolor="#aaaaaa">
<center>
<table cellspacing=0 cellpadding=0 border=0 height="100%" width="75%">
<tr><td valign=middle>
<table cellspacing=0 cellpadding=6 border=1 bgcolor="#ffffff">
<tr><td align=center bgcolor="#cccccc">
<font face="geneva,helvetica" size="2"><b>CD-ROM DRIVE LETTER SELECTION</b></font>
</td></tr>
<tr><td align=left>
<font face="geneva,helvetica" size="2">
<form method="post" name="changedrive" action="link.las">
<input type="hidden" name="-token.file" value="[token_value: file]">
<p><b>In order to view the videos stored on CD, select the drive letter of your CD-ROM drive:<br>
<center>
<select name="drive" onchange="document.changedrive.submit()">
<option value="" checked>Select here
<option>A <option>B <option>C <option>D <option>E <option>F <option>G <option>H <option>I <option>J <option>K <option>L <option>M <option>N <option>O <option>P <option>Q <option>R <option>S <option>T <option>U <option>V <option>W <option>X <option>Y <option>Z
</select>
</center>
<br>If you're unsure, try D or E or double-click the "My Computer" icon on the desktop and look for the CD-ROM icon.</b>
</form>
<p><font color="#660000"><b>If this page is displayed for every link, make sure that your Web browser is set to accept cookies. (In Netscape Navigator, look in Edit / Preferences / Advanced.)</b></font>
</font>
</td></tr></table>
</td></tr></table>
</center>
</body>
</html>
[lasso_abort]
[/if]
[else]
<!-- client platform is non-windows (assume macintosh) -->
[var_set: win = 0]
[if: token_value: volume == '']
[var_set: volume = 'file:///BACROCD/']
[else]
[var_set: volume = (string_concatenate: 'file:///', (token_value: volume),'/')]
[/if]
[var_set: file = token_value: file]
[/if]
<!-- generate page to open the requested file -->
<body bgcolor="#aaaaaa">
<center>
<table cellspacing=0 cellpadding=0 border=0 height="100%">
<tr><td valign=middle>
<table cellspacing=0 cellpadding=2 border=1 bgcolor="#cccccc"><tr><td>
<table cellspacing=0 cellpadding=0 width=[var: width] align=center bgcolor="#cccccc">
<tr><td>
<embed src="[var: volume][var: file]" type="audio/x-pn-realaudio-plugin" HEIGHT=[var: height] WIDTH=[var: width] controls=imagewindow CONSOLE=rgctl AUTOGOTOURL=TRUE autostart=TRUE nojava=true nologo=true>
</td></tr>
<tr><td>
<embed src="[var: volume][var: file]" type="audio/x-pn-realaudio-plugin" HEIGHT=100 WIDTH=[var: width] controls=all CONSOLE=rgctl AUTOGOTOURL=TRUE nojava=true nologo=true>
</td></tr>
<tr><td>
[if: var: win != 1]
<font face="geneva,helvetica" size="2">
<p><b><font color="#660000">If the video does not begin to play automatically, please verify that your CD-ROM is properly loaded.</font></b>
</font>
[else]
</td></tr>
<form method="post" name="changedrive" action="link.las">
<input type="hidden" name="-token.file" value="[token_value: file]">
<tr><td>
<font face="geneva,helvetica" size="2">
<p><b><font color="#660000">If the video does not begin to play automatically, try another CD-ROM drive letter:
<select name="drive" onchange="document.changedrive.submit()">
<option [if: (var: drive)=='A')]selected[/if]>A
<option [if: (var: drive)=='B')]selected[/if]>B
<option [if: (var: drive)=='C')]selected[/if]>C
<option [if: (var: drive)=='D')]selected[/if]>D
<option [if: (var: drive)=='E')]selected[/if]>E
<option [if: (var: drive)=='F')]selected[/if]>F
<option [if: (var: drive)=='G')]selected[/if]>G
<option [if: (var: drive)=='H')]selected[/if]>H
<option [if: (var: drive)=='I')]selected[/if]>I
<option [if: (var: drive)=='J')]selected[/if]>J
<option [if: (var: drive)=='K')]selected[/if]>K
<option [if: (var: drive)=='L')]selected[/if]>L
<option [if: (var: drive)=='M')]selected[/if]>M
<option [if: (var: drive)=='N')]selected[/if]>N
<option [if: (var: drive)=='O')]selected[/if]>O
<option [if: (var: drive)=='P')]selected[/if]>P
<option [if: (var: drive)=='Q')]selected[/if]>Q
<option [if: (var: drive)=='R')]selected[/if]>R
<option [if: (var: drive)=='S')]selected[/if]>S
<option [if: (var: drive)=='T')]selected[/if]>T
<option [if: (var: drive)=='U')]selected[/if]>U
<option [if: (var: drive)=='V')]selected[/if]>V
<option [if: (var: drive)=='W')]selected[/if]>W
<option [if: (var: drive)=='X')]selected[/if]>X
<option [if: (var: drive)=='Y')]selected[/if]>Y
<option [if: (var: drive)=='Z')]selected[/if]>Z
</select>
</font></b>
</td></tr>
</form>
<tr><td>
[/if]
<font face="geneva,helvetica" size="2">
<hr>
<center>
<b>Video image size (best quality is 320 x 240)</b>
<table border=1 cellspacing=0 cellpadding=2 bgcolor="#ff0000" align=center>
<tr>
<td bgcolor="#[if: var: width==320]ffffaa[else]aaaaaa[/if]"> <font face="geneva,helvetica" size="2"><a href="link.las?-token.file=[token_value: file]&setsize=320"><font color="#000099"><b>320 x 240</b></font></a></font> </td>
<td bgcolor="#[if: var: width==640]ffffaa[else]aaaaaa[/if]"> <font face="geneva,helvetica" size="2"><a href="link.las?-token.file=[token_value: file]&setsize=640"><font color="#000099"><b>640 x 480</b></font></a></font> </td>
<td bgcolor="#[if: var: width==800]ffffaa[else]aaaaaa[/if]"> <font face="geneva,helvetica" size="2"><a href="link.las?-token.file=[token_value: file]&setsize=800"><font color="#000099"><b>800 x 600</b></font></a></font> </td>
<td bgcolor="#[if: var: width==1024]ffffaa[else]aaaaaa[/if]"> <font face="geneva,helvetica" size="2"><a href="link.las?-token.file=[token_value: file]&setsize=1024"><b><font color="#000099">1024 x 768</b></font></a></font> </td>
</tr>
</table>
</center>
<font size=1>
<p>Changes to the image size will stay in effect until you quit your Web browser, assuming that cookies are enabled in your Web browser (in Netscape Navigator, look in Edit / Preferences / Advanced).
</font>
</font>
</td></tr>
</table>
</td></tr></table>
</td></tr></table>
</center>
</body>
</html>