Delta DVP - Printable Version

Code:
-- ******** Delta Solivia GW -> MPM module version 1.0 created by Erwin van der Zwart ******** 2015-12-10 ******** --

  

if not init then

  -- Import libraries

  require ("http")

  

  -- Set timout for max wait time on HTTP response

  http.TIMEOUT = 15

  

  -- Delta Solivia GW Settings

  IP_Address = '192.168.10.207'

  UserName = 'admin'

  PassWord = 'Schneider'

  

  -- MPM objects

  var("Absolute_Maximum_In_We_Object", "ME.AV44")

  var("Percentage_Of_Nominal_Power_Object", "ME.AV45")

  

  -- End init

  init = true

else



    -- Login before requesting data

    if not login then  

      response = http.request('http://' .. IP_Address .. '/LoginCgi?ed_user=' .. UserName .. '&pw1=' .. PassWord .. '&logIn=Log+in')

      -- Check if Response = successfully completed

      for i in string.gmatch(response, '<body><br><h2 align="left"><font color="#339900">.-</font>') do 

        if i ~= nil then

          responsestring =  i:match([[color="#339900">(.-)</]])

          --print(responsestring)

        end

      end

      if responsestring == 'Operation successfully completed!' then

        print('Login procedure ready, getting values..')

        login = true

      end

    else

      -- Get data from webservice

      local data = http.request('http://' .. IP_Address .. '/Unbalanced.htm')

      

      --print(data)

      

      -- Check if data is received

      if not data then

        print('No data found.. , restarting procedure to try again..')

        login = nil

        return

      end

      

      -- Check if login is handled correct

      for i in string.gmatch(data, '<h2>.-</h2>') do 

        if i ~= nil then

          login_asked = i:match([[<h2>(.-)</h2>]])

          if login_asked == 'Please log in' then 

            print('Login not ready or logged out, system will try to login again..')

            login = nil

            return

          end

        end

      end

      

      -- Power Balancing

      for i in string.gmatch(data, '<input type="text".-</p>') do 

        if i ~= nil then

          --print(i)

          

          absolute_maximum_in_We = i:match([[name="t1" value="(.-)"]])

          if absolute_maximum_in_We then

            Absolute_Maximum_In_We_Object = absolute_maximum_in_We

            print('Absolute maximum in We = ' .. absolute_maximum_in_We)

          end

          

          percentage_of_nominal_power = i:match([[name="t2" value="(.-)"]])

          if percentage_of_nominal_power then

            Percentage_Of_Nominal_Power_Object = percentage_of_nominal_power

            print('Percentage of nominal power = ' .. percentage_of_nominal_power)

          end

        end

      end



      -- Add extra data pagefields here...

  end --End Login

end -- End init