Wapp

}
proc common-footer {} {
  wapp-trim {
    </div>
  }
}

# Generate a submenu of hyperlinks.
#
proc sub-menu {args} {
  wapp-trim {
    <p><table border="1" cellpadding="10" cellspacing="0"><tr>
  }
  foreach {name url} $args {
    wapp-trim {
      <td><a href="%url($url)">%html($name)</a></td>
    }
  }
  wapp-trim {
    </tr></table></p>
  }
}


# Open the shortener database.  Initialize it if necessary.
#
proc open-database {} {
  global DATABASE
  sqlite3 db $DATABASE
  db eval {

  }
}

# Debugging: show the environment
proc wapp-page-env {} {
  wapp-allow-xorigin-params
  common-header
  set base [wapp-param BASE_URL]
  sub-menu {Create New URL} $base/ee {Search} $base/sx \
           {Recent Changes} $base/lr
  wapp-trim {
    <h1>Wapp Environment</h1>
    <pre>%html([wapp-debug-env])</pre>
  }
  common-footer
}

# Search for an existing entry
#
proc wapp-page-sx {} {
  if {[check-credentials]} return
  common-header
  set base [wapp-param BASE_URL]
  sub-menu {Create New URL} $base/ee {Recents Changes} $base/lr \
           {CGI Environment} $base/env
  wapp-trim {





    <form>
    Search: <input type="text" size="60" name="s">
    <input type="submit" name="s1" value="Go">
    </form>
  }
  if {[wapp-param-exists s]} {
    set s [wapp-param s]

# Show recent modified URL shorteners pages
#
proc wapp-page-lr {} {
  if {[check-credentials]} return
  common-header
  set base [wapp-param BASE_URL]



  sub-menu {Create New URL} $base/ee {Search} $base/sx \
           {CGI Environment} $base/env

  wapp-trim {
    <ol>
  }
  open-database
  set cnt 0
  db eval {
    SELECT name, redir, user, mtime FROM url

# Create or edit a new URL shortener entry.
#
# Name of the entry to be editted is in PATH_TAIL.  Or if PATH_TAIL is
# blank, create a new entry.
#
proc wapp-page-ee {} {
  global BASEURL
  wapp-content-security-policy {
    default-src 'self' data:;
    style-src 'self' 'unsafe-inline';
  }
  if {[check-credentials]} return
  common-header
  if {[wapp-param-exists cancel]} {
    wapp-redirect [wapp-param BASE_URL]/sx
    return
  }
  open-database
  set hardname [wapp-param PATH_TAIL {}]
  set name [wapp-param name $hardname]
  set redir [wapp-param redir {}]
  set notes [wapp-param notes {}]




  set errmsg {}
  if {[wapp-param-exists s1]} {
    if {$hardname==""} {
      set e [db one {SELECT count(*) FROM url WHERE name=$name}]
      if {$e==1} {
        set errmsg "Shortened URL name \"$name\" already exists.\
        Pick a different name."
      } elseif {[string length $name]<4} {
        set errmsg "Shortened URL name \"$name\" too short.\
                    Must be at least 4 characters."
      } elseif {[regexp {[^a-z0-9]} $name]} {
        set errmsg "Shortened URL name \"$name\" contains invalid characters. \
          The name may contain only lower-case ASCII letters and digits."
      } elseif {[lsearch [info procs] wapp-page-$name]>=0} {
        set errmsg "Shortened URL name \"$name\" already exists.\
        Pick a different name."
      } else {
        set user $::env(FOSSIL_USER)
        db eval {
          INSERT INTO url(name,redir,user,notes,ctime,mtime)

  set mtime {}
  if {$hardname==""} {
    wapp-trim {
      <h1>Create A New Shortened URL</h1>
    }
    if {$errmsg!=""} {
      wapp-trim {
        <p style='color:red;' >%html($errmsg)</p>
      }
    }
    wapp-trim {
      <form method="POST">
      <table border="0" cellpadding="0" cellspacing="10">
      <tr>
      <td align="right">Shortened-URL:</td>

    wapp-trim {
      <tr><td align="right">Created:</td>
      <td>%html($ctime) by %html($user)</td></tr>
    }
  }
  if {$mtime!="" && $mtime!=$ctime} {
    wapp-trim {
      <tr><td align="right">Modified:</td><td>%html($mtime)</td></tr>
    }
  }
  wapp-trim {
    <tr>
    <td align="right">Notes:</td>
    <td><input type="text" name="notes" value="%html($notes)" size="70"></td>
    </tr>