#!/usr/bin/perl -w
 # 
 # load_docs.pl 
 # 
 # Summary: Loads html files into a mozilla instance. 
 #  If mozilla is not loaded 
 #       then fork an instance first.  
 # 
 # Caveat:  This script requires mozilla. 
 # 
# Message-ID: <4399FFEA.9040406@ispmonsters.com> 
# Date: Fri, 09 Dec 2005 14:06:34 -0800 
# From: "J.A.H." <heblack@ispmonsters.com> 
# Subject: Script to load docs in mozilla. 
# 
# Hello. This script helps set up your programming 
# environment so that... documentation is automatically 
# loaded into mozilla. That way less time 
# is spent getting ready each time. It is my first useful 
# Perl script. So  if you know Perl maybe you could 
# show me something about Perl. Thanks! 

 use strict; my $pid;

my @docs = qw(
  file:///home/Notes.txt
  file:///usr/non-portage/fox-1.4.25/share/doc/doc.html
  file:///usr/non-portage/fox-1.4.25/share/doc/ref/index.html
  http://www.google.com
            );
 # Look for instance of mozilla. 
 `mozilla -remote "ping()"`;

 if ( $? ) {
 # Error, mozilla is not running.            
    if (!defined($pid = fork())) { # Undef branch of fork:        
       die "Cannot fork: $!";
    } elsif ($pid == 0) {          # Child branch of fork:        
       `mozilla`;                  # Start new instance....  
    } else {                       # Parent branch of fork:         
       do {
          # Must ensure the child 
          # instance is loaded. Is 
          # there a system way to  
          # wait without relying  
          # on the -remote ping()  
          # feature... Without  
          # waiting there is a  
          # problem executing the  
          # sub to load the  
          # documentation.                       
          `mozilla -remote "ping()"`;
          sleep 1;
       } while ( $? );
                     # Bugfix!!? we can -remote "ping()"  
       sleep 1;  # but we can not   -remote openFile  
                     # after that ... unless there is another 
                     # sleep here for some reason. 
       load_docs();
       $pid=waitpid($pid, 0);
  # Wait for the pseudo-process containing the 
  # new mozilla instance to end.            
    }
 } else { load_docs(); }

 sub load_docs {
    my $element;
    foreach (0..$#docs){
      if ( $_ == 0 ) {
         if ( $docs[$_] =~ /~file:\/\// ) {
            `mozilla -remote "openFile($docs[$_])"` ; }
         else {
            `mozilla -remote "openURL($docs[$_])"` ;  }
      }
      else {
         if ( $docs[$_] =~ /~file:\/\// ) {
            `mozilla -remote "openFile($docs[$_], new-tab)"` ; }
         else {
            `mozilla -remote "openURL($docs[$_], new-tab)"` ; }
      }
   }
 }

__END__