control panel/login box component

##################################
#     CONTROL PANEL COMPONENT    #
# kunzite1, component-help/82952 #
# add to print_free_text(Page p) #
#######################################################
# Control Panel                                       #
# by kunzite1                                         #
#                                                     #
# If logged in:                                       #
#   Customize                                         #
#   *Advanced Customization                           #
#   *Your Layers                                      #
#   *Your Styles                                      #
#   *Your Link List                                   #
#   Update                                            #
#   Edit Entries                                      #
#   Your Cluster                                      #
#   Logout                                            #
#                                                     #
# If not logged in:                                   #
#   Login                                             #
#######################################################
# Title bar of component when logged in
  var string k1CPloggedInTitle = "your control panel";

# Title bar of component when not logged in
  var string k1CPloggedOutTitle = "login box";

# LOGIN BOX
# Label for entering username
  var string k1CPusername   = "username:";

# Label for entering password
  var string k1CPpassword   = "password:";

# Label for forgot password link
  var string k1CPforgot     = "forget?";

# Label for expiration options
  var string k1CPexpiration = "expiration:";

# Label for expiring when window closes
  var string k1CPclose      = "close window";

# Label for never expiring
  var string k1CPnever      = "never";

# Label for binding to ip
  var string k1CPbind       = "bind to ip:";

# Label for accepting binding to ip
  var string k1CPy          = "yes";

# Label for denying binding to ip
  var string k1CPn          = "no";

# Label for log in button
  var string k1CPsubmit     = "log in";

#######################
# CONTROL PANEL START #
#######################
if(viewer_logged_in()){
var Color  k1CPltLineColor   = $*header_bgcolor->lighter(30);
var string k1CPltLineString  = $k1CPltLineColor.as_string;
var string k1CPmedLineString = $*header_bgcolor.as_string;
var Color  k1CPdkLineColor   = $*header_bgcolor->darker(50);
var string k1CPdkLineString  = $k1CPdkLineColor.as_string;
var int    k1CPcols          = 3;

var string[] k1CPlink_urls  = [""];
var string[] k1CPlink_texts = [""];
var int      k1CPlink_index = 0;

# set one
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/customize/";
$k1CPlink_texts[$k1CPlink_index] = """customize""";
$k1CPlink_index++;

# set two
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/customize/advanced/";
$k1CPlink_texts[$k1CPlink_index] = """<i>advanced</i>""";
$k1CPlink_index++;

# set three
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/customize/advanced/layers.bml";
$k1CPlink_texts[$k1CPlink_index] = """<i>layers</i>""";
$k1CPlink_index++;

# set four
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/customize/advanced/styles.bml";
$k1CPlink_texts[$k1CPlink_index] = """<i>styles</i>""";
$k1CPlink_index++;

# set five
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/manage/links.bml";
$k1CPlink_texts[$k1CPlink_index] = """link lists""";
$k1CPlink_index++;

# set six
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/update.bml";
$k1CPlink_texts[$k1CPlink_index] = """update""";
$k1CPlink_index++;

# set seven
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/editjournal.bml";
$k1CPlink_texts[$k1CPlink_index] = """edit entries""";
$k1CPlink_index++;

# set eight
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/friends/";
$k1CPlink_texts[$k1CPlink_index] = """edit friends""";
$k1CPlink_index++;

# set nine
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/manage/profile/";
$k1CPlink_texts[$k1CPlink_index] = """edit info""";
$k1CPlink_index++;

# set ten
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/changepassword.bml";
$k1CPlink_texts[$k1CPlink_index] = """edit pass""";
$k1CPlink_index++;

# set eleven
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/editpics.bml";
$k1CPlink_texts[$k1CPlink_index] = """edit pics""";
$k1CPlink_index++;

# set twelve
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/tools/memories.bml";
$k1CPlink_texts[$k1CPlink_index] = """memories""";
$k1CPlink_index++;

# set thirteen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/misc/whereami.bml";
$k1CPlink_texts[$k1CPlink_index] = """my cluster""";
$k1CPlink_index++;

# set fourteen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/portal/";
$k1CPlink_texts[$k1CPlink_index] = """my portal""";
$k1CPlink_index++;

# set fifteen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/site/";
$k1CPlink_texts[$k1CPlink_index] = """site map""";
$k1CPlink_index++;

# set sixteen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/stats.bml";
$k1CPlink_texts[$k1CPlink_index] = """site stats""";
$k1CPlink_index++;

# set seventeen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/birthdays.bml";
$k1CPlink_texts[$k1CPlink_index] = """birthdays""";
$k1CPlink_index++;

# set eighteen
$k1CPlink_urls[$k1CPlink_index]  = "$*SITEROOT/logout.bml";
$k1CPlink_texts[$k1CPlink_index] = """logout""";
$k1CPlink_index++;

var int    k1CPcount = 0;
var string k1CPwidth = (100 / $k1CPcols) + "%";

print_comp_header("$k1CPloggedInTitle");
  """<table border="1" bordercolor="$k1CPmedLineString" cellspacing="0" frame="void" width="100%">\n""";
foreach var int i (0 .. size($k1CPlink_urls) - 1) {
  var string url  = $k1CPlink_urls[$i];
  var string text = $k1CPlink_texts[$i];
  $k1CPcount++;
  if($k1CPcount == 1) {
    """  <tr>\n""";
  }
  """    <td align="center" width="$k1CPwidth"><a href="$url">$text</a></td>\n""";
  if($k1CPcount == $k1CPcols) {
    """  </tr>\n""";
    $k1CPcount = 0;
  }
}
if($k1CPcount > 0) {
  foreach var int i ($k1CPcount .. $k1CPcols) {
    if($i < $k1CPcols) {
      """    <td>&nbsp;</td>\n""";
    } else {
      """  </tr>\n""";
    }
  }
}
  """</table>""";
} else {
print_comp_header("$k1CPloggedOutTitle");
  """
<form action="$*SITEROOT/login.bml" method="post">
  <table border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td>$k1CPusername</td>
      <td><input type="text" name="user" size="15" maxlength="15" /></td>
    </tr>
    <tr>
      <td valign="top">$k1CPpassword</td>
      <td><input type="text" name="password" size="15" maxlength="30" style="background-color: $*comp_bgcolor; color: $*comp_bgcolor;" /><br />
      <a href="$*SITEROOT/lostinfo.bml"><font size="1">$k1CPforgot</font></a></td>
    </tr>
    <tr valign="top">
      <td>$k1CPexpiration:</td>
      <td><input type="radio" name="expire" value="close"  checked="checked" id="close" /> <label for="close">$k1CPclose</label><br />
      <input type="radio" name="expire" value="never"  id="never" /> <label for="never">$k1CPnever</label></td>
    </tr>
    <tr valign="top">
      <td>Bind to IP address:</td>
      <td><input type="radio" name="bindip" value="yes"  id="bindyes" /> <label for="bindyes">$k1CPy</label><br />
      <input type="radio" name="bindip" value="no"  checked="checked" id="bindipno" /> <label for="bindipno">$k1CPn</label></td>
    </tr>
    <tr>
      <td colspan="2" align="center"><input name="action:login" type="submit" value="$k1CPsubmit" /></td>
    </tr>
  </table>
</form>
  """;
}
print_comp_footer();
#####################
# CONTROL PANEL END #
#####################