namespace eval db::networks {}

proc db::networks::ls {db} {
  set ret {}
  $db eval {SELECT rowid as id, * FROM networks;} network {
    set ndict {}
    foreach k $network(*) {
      dict set ndict $k [set network($k)]
    }
    lappend ret $ndict
  }
  return $ret
}

proc db::networks::add {db name servers} {
  $db eval {INSERT INTO networks VALUES ($name $servers);}
}

proc db::networks::exists {db name} {
  $db exists {SELECT * FROM networks WHERE name = :name}
}

sproc db::networks::creds {
  add {db network name type args} {
    if ![exists $db $network] { return -code error "Unknown network \"$network\" in \"$db\"." }
  }
  ls {db network} {
    if ![exists $db $network] { return -code error "Unknown network \"$network\" in \"$db\"." }
    
  }
  remove {db network name} {
    if ![exists $db $network] { return -code error "Unknown network \"$network\" in \"$db\"." }
    
  }
}