rwdschedule 0.6 → 0.07

data/code/superant.com.schedule/archiveicsevent.rb

@@ -0,0 +1,14 @@
+ # this code is to archive  the event
+ def archiveicsevent
+  oldName =  $rwdschedule_directory + "/" + @a_viewicsevent +  ".ics"
+  newName =  $rwdschedule_directory + "/" + "archive" + "/" + @a_viewicsevent + ".ics"
+ begin 
+ File.move(oldName, newName)
+  @displayicsevent = "ics file archived" 
+  rescue
+  @displayicsevent = "ics archive error"
+  end
+  
+   end
+
+

data/code/superant.com.schedule/cleareventscreendisplay.rb

@@ -0,0 +1,19 @@
+   # this method clears the on screen variables
+   def cleareventscreendisplay
+ 
+        @a_eventfilename = ""
+      @a_eventyear = ""
+       @a_eventmonth  = ""
+        @a_eventday     = ""
+        @a_eventbeginhour = ""
+        @a_eventbeginminute  = ""
+          @a_eventendhour = ""
+        @a_eventendminute  = ""
+            @a_eventsummary = ""
+            @a_eventdescription = ""
+            @a_eventlocation  = ""
+  
+     
+
+
+  end

data/code/{gg0schedules → superant.com.schedule}/deleteeventrecord.rb

@@ -1,19 +1,19 @@
    # this method views an existing address record
-  def deleteeventrecord
- 
-    require 'fileutils'
-  
-      if @a_viewevent
-      $currenteventtext =  @a_viewevent
-      end
-              
-              
-    begin # exception trapped block
-      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
-      File.delete(fileName)
-      @eventfilechangeresult = "File Deleted!"
-     rescue 
-         @eventfilechangeresult = "File Deletion error"
-    end # exception rescue
-
-  end
+  def deleteeventrecord
+ 
+    require 'fileutils'
+  
+      if @a_viewevent
+      $currenteventtext =  @a_viewevent
+      end
+              
+              
+    begin # exception trapped block
+      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+      File.delete(fileName)
+      @eventfilechangeresult = "File Deleted!"
+     rescue 
+         @eventfilechangeresult = "File Deletion error"
+    end # exception rescue
+
+  end

data/code/superant.com.schedule/deleteicseventrecord.rb

@@ -0,0 +1,19 @@
+   # this method deletes a file
+  def deleteicseventrecord
+ 
+    require 'fileutils'
+  
+      if @a_viewicsevent
+      $currenticseventtext =  @a_viewicsevent
+      end
+              
+              
+    begin # exception trapped block
+      fileName = $rwdschedule_directory + "/" + $currenticseventtext + ".ics"
+      File.delete(fileName)
+      @eventicsfilechangeresult = "#{$currenticseventtext} File Deleted!"
+     rescue 
+         @eventicsfilechangeresult = "File Deletion error"
+    end # exception rescue
+
+  end

data/code/superant.com.schedule/deleterwdscheduleupdatefiles.rb

@@ -0,0 +1,20 @@
+# this code is to delete update files
+def  deleterwdscheduleupdatefiles
+ # exception begin
+ begin 
+   fileListarray      = Dir.new($rwdschedule_updatedirectory).entries.sort.delete_if { |x| ! (x =~ /sch$/) }
+           #loop through and get the files names
+           
+         fileListarray.each do |x|
+               filetodelete = File.join($rwdschedule_updatedirectory,x)
+               if File.exist?(filetodelete)
+                 File.delete(filetodelete)
+               end
+          end
+          @rwdscheduleftpdisplay = "update files deleted"
+  rescue 
+  @rwdscheduleftpdisplay = "error opening schedule update directory"
+  end # end of error function
+ end
+
+

data/code/superant.com.schedule/downloadrwdschedulefiles.rb

@@ -0,0 +1,37 @@
+def downloadrwdschedulefiles
+ require 'net/ftp'
+ BasicSocket.do_not_reverse_lookup = true 
+ @rwdscheduleftpdisplays = ""
+  begin
+ ftp = Net::FTP::new($rwdschedule_ftpsite)
+ @rwdscheduleftpdisplay  = "files downloaded" + "\n" 
+ ftp.debug_mode = false
+ ftp.login($rwdschedule_ftplogin, $rwdschedule_ftppassword)
+ ftp.chdir($rwdschedule_ftpdirectory)
+ print "I'm in the directory ", ftp.pwd(), "\n"
+ schfiles = ftp.nlst($rwdschedule_ftpdirectory) 
+ 
+   schfiles.each {|x|
+      #adjust the filters to the files you want to see...
+
+    if x =~ /sch/                               
+        lastslash = x.rindex('/')+1
+        newstring = x.slice(lastslash..256)
+          
+    localupdatefile = $rwdschedule_updatedirectory +"/"+ "#{newstring}"
+    ftp.getbinaryfile("#{x}" , localupdatefile )         
+    @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + newstring + "\n"                               
+                             
+         end
+                  
+                             
+                  }
+   ftp.close
+  
+rescue
+  @rwdscheduleftpdisplay = "ftp error"
+if ftp
+ ftp.close
+ end
+end
+end

data/code/superant.com.schedule/exporticseventrecord.rb

@@ -0,0 +1,97 @@
+  # this method exports a new  record
+  def exporteventrecord 
+  Dir.chdir($progdir) 
+ require 'fileutils'
+   require 'lib/icalendar'
+   if ! @a_eventfilename.empty?
+   newname = "%s" %   [@a_eventfilename] # grab the new filename to create
+   
+	 fullnewname = newname  + ".ics"
+     cal = Icalendar::Calendar.new
+
+    cal.version = "3.2"
+    cal.prodid = "rwdtinker-prodid"
+    event = Icalendar::Event.new
+    newdataText = ""
+    if ! @a_eventyear.empty?
+  temptimedata =  @a_eventyear.to_s.strip
+  else
+  temptimedata = "0000"
+    end
+    if ! @a_eventmonth.empty?
+    temptimedata= temptimedata    + @a_eventmonth.to_s
+    else
+    temptimedata = temptimedata   + "00"
+   end
+    if ! @a_eventday.empty?
+    temptimedata = temptimedata + @a_eventday.to_s
+else
+    temptimedata = temptimedata  +  "00"
+ end
+daydate =temptimedata
+if ! @a_eventbeginhour.empty?
+    temptimedata= temptimedata     + "T" + @a_eventhour.to_s
+    else
+    temptimedata = temptimedata     + "T" + "00"
+   end
+    if ! @a_eventbeginminute.empty?
+    temptimedata = temptimedata + @a_eventbeginminute.to_s
+else
+    temptimedata = temptimedata  +  "00"
+  end
+if ! @a_eventendhour.empty?
+    tempendtimedata= daydate     + "T" + @a_eventendhour.to_s
+    else
+    tempendtimedata = daydate   + "T" + "00"
+   end
+    if ! @a_eventendminute.empty?
+    tempendtimedata = tempendtimedata + @a_eventendminute.to_s
+else
+    tempendtimedata = tempendtimedata  +  "00"
+  end
+  
+   if ! @a_eventsummary.empty?
+ summarydataText =  @a_eventsummary.to_s
+ else
+  summarydataText = ""
+ end
+  if ! @a_eventdescription.empty?
+     descriptiondataText =  @a_eventdescription.to_s
+  else
+     descriptiondataText = ""
+  end
+      if ! @a_eventlocation.empty?
+        locationdataText =  @a_eventlocation.to_s
+     else
+        locationdataText = "" 
+    end
+
+   starttime = temptimedata +  "00"
+     endtime =  tempendtimedata + "00"
+
+    # Create a new event and add it to the calendar
+    
+    event.dtstart = starttime 
+    event.dtend = endtime 
+    event.summary =    summarydataText
+    event.description = descriptiondataText 
+    event.location =   locationdataText
+    cal.add(event)
+        # Now generate the string and then parse it so we can verify 
+    # that everything was set, generated and parsed correctly.
+    calString = cal.to_s
+    p calString
+    #cals = Icalendar::CalendarParser.new(calString).parse
+
+# cal2 = cals.first
+       # begin # exception trapped block
+          fileName = File.join( $rwdschedule_directory, fullnewname )
+       	fd = File.open(fileName,"w")
+	     fd.print( calString ) # save the record info to the file
+	     fd.close
+          @neweventresult= calString # show the record info in the browser
+       # rescue SystemCallError, StandardError
+         #   $stderr.print "system call error: " + $!
+       # end # exception rescue
+    end
+  end

data/code/superant.com.schedule/helptexthashload.rb

@@ -0,0 +1,22 @@
+   # this code loads the help text
+
+                 
+               tmphelpfilename = "rwdschedulehelpfiles.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+	     
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "foldschedules help file load: system call error: "
+        end # exception rescue
+
+  

data/code/{gg0schedules/gh5listdaterecords.rb → superant.com.schedule/listeventdates.rb}

@@ -1,19 +1,19 @@
-# this code is to list the events that are scheduled
-def  listeventdates
- # exception begin
- begin 
+# this code is to list the events that are scheduled
+def  listeventdates
+ # exception begin
+ begin 
   fileList      = Dir.new($rwdschedule_directory).entries.sort.delete_if { |x| ! (x =~ /sch$/) }
-  
-  @eventrecordsresult = fileList.rwd_method("filleventdatesname")
-  rescue 
-  @eventrecordsresult = "error opening schedule directory"
-  end # end of error function
-  
-end
-
-
-def filleventdatesname(inffile)
-  applet                = inffile.gsub(/\.sch$/, "")
-  @a_viewevent  = applet
-  
-end
+  
+  @eventrecordsresult = fileList.rwd_method("filleventdatesname")
+  rescue 
+  @eventrecordsresult = "error opening schedule directory"
+  end # end of error function
+  
+end
+
+
+def filleventdatesname(inffile)
+  applet                = inffile.gsub(/\.sch$/, "")
+  @a_viewevent  = applet
+  
+end

data/code/superant.com.schedule/listicseventdates.rb

@@ -0,0 +1,19 @@
+# this code is to list the events that are scheduled
+def  listicseventdates
+ # exception begin
+ begin 
+  fileList      = Dir.new($rwdschedule_directory).entries.sort.delete_if { |x| ! (x =~ /ics$/) }
+  
+  @eventicsrecordsresult = fileList.rwd_method("fillicseventdatesname")
+  rescue 
+  @eventicsrecordsresult = "error opening schedule directory"
+  end # end of error function
+  
+end
+
+
+def fillicseventdatesname(inffile)
+  applet                = inffile.gsub(/\.ics$/, "")
+  @a_viewicsevent  = applet
+  
+end

data/code/superant.com.schedule/loadconfigurationrecord.rb

@@ -0,0 +1,22 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdscheduleconfiguration
+ 
+         require 'fileutils'
+          
+               @a_schconfigurationfilename = "#{RwdScheduleName}.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, @a_schconfigurationfilename)
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_schconfigurationfile =        fd.read
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.schedule/loadconfigurationvariables.rb

@@ -0,0 +1,14 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdscheduleconfigurationvariables
+
+   tmpfilename = "#{RwdScheduleName}.cnf"   
+   configfiletoload = File.join(ConfigurationDir, tmpfilename )
+   begin
+    load configfiletoload
+    @extraschconfigdatadisplay = ""
+@newschconfigurationresult = "Config Variables loaded"
+rescue
+ @extraschconfigdatadisplay = ""
+ @newschconfigurationresult = "loading error"
+ end
+  end

data/code/superant.com.schedule/loadeventrecord.rb

@@ -0,0 +1,38 @@
+   # this method views an existing record
+  def loadeventrecord
+ 
+         require 'fileutils'
+        @a_eventfilename = $currenteventtext
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+        
+	      fd = File.open(fileName,"r")
+	      eventdatetime =        fd.readline.chomp
+	      
+      @a_eventyear = eventdatetime.slice(0..3)
+       @a_eventmonth  = eventdatetime.slice(4..5)
+        @a_eventday     = eventdatetime.slice(6..7)
+        @a_eventbeginhour =  eventdatetime.slice(9..10)
+        @a_eventbeginminute  =  eventdatetime.slice(11..12)
+      eventdatetime2 =        fd.readline.chomp
+        
+          @a_eventendhour =  eventdatetime2.slice(9..10)
+        @a_eventendminute  =  eventdatetime.slice(11..12)
+            @a_eventsummary =  fd.readline.chomp
+            @a_eventdescription =  fd.readline.chomp
+            @a_eventlocation  =  fd.readline.chomp
+  
+     
+	 
+	      while ! fd.eof?
+	        @extraeventdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/{gg0schedules/loadeventrecord.rb → superant.com.schedule/loadicseventrecord.rb}

@@ -1,30 +1,30 @@
    # this method views an existing address record
-  def loadeventrecord
- 
-         require 'fileutils'
-        @a_eventfilename = $currenteventtext
-	      
-        begin # exception trapped block
-       
-       
-	      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
-        
-	      fd = File.open(fileName,"r")
-	      @a_eventtime =        fd.readline.chomp
-	      @a_eventwhat =  fd.readline.chomp
-        @a_eventaddress = fd.readline.chomp
-          @a_eventphone = fd.readline.chomp
-        @a_eventemail = fd.readline.chomp
-         @a_eventcomment1 = fd.readline.chomp 
-          @a_eventcomment2 =fd.readline.chomp
-          @a_eventcomment3 = fd.readline.chomp
-	 
-	      while ! fd.eof?
-	        @extraeventdatadisplay = fd.readline
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
-
-  end
+  def loadicseventrecord
+ 
+         require 'fileutils'
+        @a_eventfilename = $currenteventtext
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+        
+	      fd = File.open(fileName,"r")
+	      @a_eventtime =        fd.readline.chomp
+	      @a_eventwhat =  fd.readline.chomp
+        @a_eventaddress = fd.readline.chomp
+          @a_eventphone = fd.readline.chomp
+        @a_eventemail = fd.readline.chomp
+         @a_eventcomment1 = fd.readline.chomp 
+          @a_eventcomment2 =fd.readline.chomp
+          @a_eventcomment3 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extraeventdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.schedule/openhelpwindowrwdschedule.rb

@@ -0,0 +1,43 @@
+# this code is to call the help window
+def runhelpwindowrwdschedule
+
+     $help_topic = "rwdschedule_generalhelp"
+   if @rwd_tab == "Vieweventlist"
+     $help_topic = "rwdschedulefilelist_generalhelp"
+   end
+   if @rwd_tab == "editeventrecordfile"
+   $help_topic = "rwdschedule_generalhelp"
+   end
+   if  @rwd_tab == "eventutilitiesrwdschedule"
+ $help_topic = "eventutilities_help"
+   end
+    if @rwd_tab == "viewrwdscheduleconfiguration"
+    $help_topic = "rwdschedule_configuration"
+    end
+  if @rwd_tab  == "rwdschedulesynctasks"
+    $help_topic = "rwdschedule_sync"
+    end
+    if @rwd_tab  == "calendar"
+    $help_topic = "calendar_help"
+    end
+    if @rwd_tab == "createicsrecordfile" 
+    $help_topic = "icsfile_help"
+    end
+    if @rwd_tab == "eventicsutilities"
+    $help_topic = "icsfile_help"
+    end
+    if @rwd_tab == "Viewicseventlist"
+  $help_topic = "icsfile_help"
+    end    
+   $helptopicsarray =  $helptopicsarray | ["icsfile_help","eventutilities_help","calendar_help","rwdschedule_generalhelp","rwdschedule_configuration","rwdschedulefilelist_generalhelp","rwdschedule_sync"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/{gg0schedules → superant.com.schedule}/renameeventdata.rb

@@ -1,14 +1,14 @@
- # this code is to change the contact name
- def changeeventdata
-  oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
+ # this code is to change the contact name
+ def changeeventdata
+  oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
   newName =  $rwdschedule_directory + "/" + @a_changeeventdata + ".sch"
- begin 
- File.rename(oldName, newName)
+ begin 
+ File.rename(oldName, newName)
   @eventfilechangeresult = "File Renamed!" 
-  rescue
-  @eventfilechangeresult = "rename error"
-  end
-  
+  rescue
+  @eventfilechangeresult = "rename error"
+  end
+  
    end
 
-
+

data/code/superant.com.schedule/renameicseventdata.rb

@@ -0,0 +1,17 @@
+ # this code is to change the file name
+ def changeicseventdata
+ if ! @a_viewicsevent.empty?
+  oldName =  $rwdschedule_directory + "/" + @a_viewicsevent +  ".ics"
+  if ! @a_changeicseventdata.empty? 
+  newName =  $rwdschedule_directory + "/" + @a_changeicseventdata + ".ics"
+ begin 
+ File.rename(oldName, newName)
+  @eventicsfilechangeresult = "File Renamed!" 
+  rescue
+  @eventicsfilechangeresult = "rename error"
+  end
+   end
+   end
+   end
+
+

data/code/superant.com.schedule/returntomain.rb

@@ -0,0 +1,10 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def returntomainrwdschedule
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "rwdscheduleselectiontab"
+   end   
+   

data/code/superant.com.schedule/runrwdscheduleicsbackwindow.rb

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdscheduleicsbackwindow
+   @rwd_window = "rwdscheduleicswindow"
+   @rwd_tab = "Viewicseventlist"
+   end   
+   

data/code/superant.com.schedule/runrwdschedulemenu1.rb

@@ -0,0 +1,34 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdschedulemenu1
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "Vieweventlist"
+   end   
+  def runrwdschedulemenu2
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "editeventrecordfile"
+   end   
+   
+   
+  def runrwdschedulemenu3
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "eventutilitiesrwdschedule"
+   end  
+ def runrwdschedulemenu4
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end  
+   
+        def runrwdschedulemenu10
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "viewrwdscheduleconfiguration"
+   end 
+   
+       def runrwdschedulemenu11
+   @rwd_window = "main"
+   @rwd_tab = "documentsrwdtinkerone"
+   end 
+  

data/code/superant.com.schedule/runrwdschedulesyncbackwindow.rb

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdschedulesyncbackwindow
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end   
+   

data/code/superant.com.schedule/rwdversion.rb

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdschedulehelpaboutsetup
+return ["RwdSchedule","(c) 2004-2008 Steven Gibson ","Version #{RwdScheduleVersion}"]
+end
+
+

data/code/superant.com.schedule/saveconfigurationrecord.rb

@@ -0,0 +1,19 @@
+  # this method adds a new address record
+  def saverwdscheduleconfiguration
+   require 'fileutils'
+   
+   newname = "#{RwdScheduleName}.cnf" # grab the filename to create
+   newdata =@a_schconfigurationfile
+   
+	 
+        begin # exception trapped block
+          fileName = File.join( ConfigurationDir, newname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end