- $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
-
- # Check if the current character is a dot and if it is then
- # set the last dot found number to the current seek number.
-
- if ($presmodule_char eq "."){
-
- # Put the seek value as the last dot found number.
-
- $presmodule_dot = $presmodule_seek;
-
- }
-
- # Increment the seek counter.
-
- $presmodule_seek++;
-
- } until ($presmodule_seek eq $presmodule_length);
-
- # Reset the seek counter as it is going to be used again.
-
- $presmodule_seek = 0;
-
- # Get the friendly name of the Perl module by the processing the file
- # name to the last dot the previous 'do' tried to find.
-
- do {
-
- # Get the character the seek counter is currently set at.
-
- $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
-
- # Append the character to the friendly name of the presentation module.
-
- $presmodule_friendly = $presmodule_friendly . $presmodule_char;
-
- # Increment the seek counter.
-
- $presmodule_seek++;
-
- } until ($presmodule_seek eq $presmodule_dot);
-
- # Append the option to tbe list of available presentation modules.
-
- $presmodule_list{$presmodule_count}{Filename} = $presmodule_friendly;
-
- # Reset the following values.
-
- $presmodule_seek = 0;
- $presmodule_length = 0;
- $presmodule_char = "";
- $presmodule_friendly = "";