OpenFlow is a Haskell library that implements OpenFlow protocols 1.0 and 1.3. It defines data types that model the logical content of the various OpenFlow protocol messages and provides serialization and deserialization methods using the binary package. It also provides basic functions to start servers that use these representations.
To build a controller using this library, you need to install GHC and install this library. For information on how to install Haskell, head over to https://www.haskell.org. To install this library, clone this repository, enter the cloned directory, and then run cabal install.
To write an OpenFlow 1.3 controller, start with the following template, and then fill in the messageHandler function:
import Network.Data.OF13.Message
import Network.Data.OF13.Server
main :: IO ()
main = runServerOne 6633 factory
where factory sw = handshake sw >> return (messageHandler sw)
handshake :: Switch -> IO ()
handshake sw = sendMessage sw [Hello { xid = 0, len = 8 }]
messageHandler :: Switch -> Maybe Message -> IO ()
messageHandler _ Nothing = putStrLn "Disconnecting"
messageHandler sw (Just msg) = print msg >> sendMessage sw [FeatureRequest 1]Place the above source into a file, for example, Main.hs. Assuming you have installed ghc and this library, you can then run ghc --make Main.hs to build an executable from Main.hs. You can then run it as Main.
The above main program calls runServerOne which will wait for a single OpenFlow 1.3 server to connect on port 6633 and then will run the given factory function. The factory function performs an initial handshake, which, in this bare bones example, consists of sending a Hello message to the switch, and then returns a message handler function messageHandler that will be used to interact with that switch until the connection is terminated. When the server receives an OpenFlow 1.3 message m, it will run messageHandler (Just m) and when the connection is terminated, the server runs messageHandler Nothing. The message handler can do anything, but typically it sends messages to the switch. To do this, use the sendMessage function.