#!c:\perl\bin\perl.exe # ensure all fatals go to browser during debugging and set-up use CGI::Carp 'fatalsToBrowser'; require 'c:\webserver\osarr.org\www\cgi-bin\cgi-lib.pl'; &ReadParse; $mailprog = 'c:\winnt\system32\blat.exe'; print &PrintHeader; #checking for mailprog unless (-e $mailprog) { print <<"PrintTag"; Cannot find $mailprog. There must be a typo. PrintTag exit(0); } #create confirmation web page print <<"PrintTag"; OSARR

Thank You for registering for a class offered by OSARR.

You are registered for $in{'class'}.

You will be receiving a confirmation email from OSARR shortly.

OSARR PrintTag #send email to registrant open (MAIL, "|$mailprog -t") || die "Can't open mail program\n"; print MAIL "To: $in{'email'}\n"; print MAIL "Reply-To: $in{'myemail'}\n"; print MAIL "From: $in{'myemail'}\n"; print MAIL "Subject: OSARR Class Registration.\n\n"; print MAIL << "PrintTag"; Dear $in{'fname'} $in{'lname'}, Thank you for registering for the OSARR class - $in{'class'}. If you have any questions, please call OSARR at (401) 295-5757. Sincerely, OSARR PrintTag close (MAIL); #send email to OSARR open (MAIL, "|$mailprog -t") || die "Can't open mail program\n"; print MAIL "To: $in{'myemail'}\n"; print MAIL "Reply-To: $in{'myemail'}\n"; print MAIL "From: $in{'myemail'}\n"; print MAIL "Subject: OSARR class registration.\n\n"; print MAIL << "PrintTag"; $in{'fname'} $in{'lname'} from $in{'agency'} signed up for $in{'class'}. PrintTag close (MAIL); #check to see if file is in use if (-e "lock.fil") { print &PrintHeader; print <<"PrintTag"; File in Use

Some one else is accessing the database right now. Please try again later.

PrintTag exit(0); } open (LOCKFILE, ">lock.fil"); #Store data #open database open (LOGFILE,">>c:\webserver\osarr.org\www\cgi-bin\data\indsignups.txt") || die "Can't find database\n"; #add new data print LOGFILE "$in{'class'}|$in{'fname'}|$in{'lname'}|$in{'address1'}|$in{'address2'}|$in{'city'}|$in{'state'}|$in{'zip'}|$in{'phone'}|$in{'email'}|$in{'agency'}\n"; close (LOGFILE); close (LOCKFILE); unlink ("lock.fil"); #end program ##

##





 
OSARR 











    
     



     
     
  


     
      
	  
	  
   		
      		   
           Who We 
            Are
   		
   		
      		  
           Member Agencies
   		
		
   		
      		  
           Training 
            & Events
   		

      		  
           Workforce 
            Development
   		

      		  
           What's New
   		

      		  
           Useful 
            Links
   		
		
             Member Information
   		

      		  
           Board 
            Information






OSARR


1130 Ten Rod Road, C-104

North Kingstown, RI 02852


Phone: (401) 295-5757

Fax: (401) 295-5462


Email:info@osarr.org



Directions









   		
	
     



    
	
	
		
             
              Individual Registration Form
          




              
			    

                Please select Training Class:
                
                

                

			  First Name:   Last Name: 
				

Home Address: 
				

                           
				              
                

				
City:   State:
				Zip Code: 


                
				Contact Phone #: 


				Agency Name: 



                Email: