ClarionLive show notes for July 13 2012

Owned by David Harms
Last updated: Apr 26, 2013Version comment

Coming up

July 20th and 27th will feature Dries Driessen talking about a Clarion CGI gateway single page web app with a Clarion back end.

Code of the day

 

Arnold asked Greg Bailey to comment on the code, which is as follows:

  Glo:UserPath = Path()
  Glo:ImportFileName = '*.csv'
  if not FILEDIALOGA('Choose File',Glo:ImportFileName,'*.csv',0) then.
  SETPATH(Glo:UserPath)
 
  do OpenFiles
  set( DosFile1 )
  TotalInputBytes     = bytes( DosFile1 )
  if TotalInputBytes = 0 
    message( 'witty remark' )
  else
    loop
      next( DosFile1 )
      CurrentBytes    += bytes( DosFile1 )
      clear( y# )
      loop x#           = 1 to bytes( DosFile1 )
        y#           += 1
        if ds1:Buffer[ x# ] <> '<10>'
          ds2:Buffer[ y# ]   = ds1:Buffer[ x# ]
        else
          ds2:Buffer[ y# : y# + 1 ] = '<13,10>'
          y#        += 1
          append( DosFile2, y# )
          y#         = 0
        end
      end!loop
      append( DosFIle2, y# )
      if CurrentBytes  = TotalInputBytes     then break.
    end!loop
  end!if
  do CloseFiles

Feature presentation - Pratik Patel

Pratik presented the SonicWall commercial grade network firewall, which he always uses when he needs to protect a network. SonicWall provides extensive antivirus, antispyware, intrusion detection and other security features.

These are affordable dedicated hardware devices that protect your internal network. 

You still want antivirus software on the devices because there are other ways to bring software on board such as USB drives. 

Pratik doesn't recommend getting a firewall with wireless - instead set up a separate WiFi access point, in fact one for your own machines and another for guests. 

As Pratik showed, with SonicWall you can get a really good idea of all of the scary intrusion attempts that are constantly being executed against public IP addresses. 

Check your current access vulnerabilities at Gibson Research Gibson Research Gibson Research Corporation's ShieldsUp!! pageCorporation's ShieldsUp!! pageCorporation's ShieldsUp!! page. 

If you want to be scared about network security, and you should be, watch this webinar. It's not just about network firewall appliances - it's about how to stay safe in the age of the internet.Â