%w(sinatra haml dm-core dm-validations).each { |gem| require gem }

DataMapper.setup :default, "sqlite3:///#{Dir.pwd}/glog.db"

class User
  include DataMapper::Resource

  property :id,       Serial
  property :username, String
  property :password, String

  validates_present :username, :password
  validates_length  :username, :minimum => 5
end

DataMapper.auto_migrate!

get '/' do
  @users = User.all
  haml :index
end

get '/new' do
  haml :new
end

post '/new' do
  user = User.new(:username => params[:username],
                  :password => params[:password])
  if user.save
    redirect '/'
  else
    redirect '/new'
  end
end

__END__
@@index
%h1 Listing Users
- @users.each do |user|
  %p USERNAME
  %p= user.username
  %p PASSWORD
  %p= user.password
  %hr

@@new
%h1 Add a User
%form{:action => '/new', :method => 'post'}
  %input{:name => 'username', :id => 'username'}
  %input{:name => 'password', :id => 'password', :type => 'password'}
  %input{:name => 'submit', :id => 'submit', :type => 'submit'}