home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / _PUBLIC.AP_ / _PUBLIC.AP
Encoding:
Text File  |  1997-12-08  |  5.7 KB  |  183 lines
  1. <[
  2. // _public.ap - Public Desktop Maintenance Active Page
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  4.  
  5. #include "/desktop/desksupp.fgl"
  6. #include "/desktop/contact.fgl"
  7. #include "/desktop/calendar.fgl"
  8. #include "/desktop/stuff.fgl"
  9. #include "/desktop/links.fgl"
  10.  
  11. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  12. if ( type( desk ) != "O" )
  13.     return( 0 )
  14. end
  15.  
  16. contact = new( "Contact", desk )
  17.  
  18. cmd = desk.session.var( "CMD" )
  19. if ( ! strempty( cmd ) )
  20.     switch ( upper( cmd ) )
  21.       case "MSG"
  22.           desk.curmsg = desk.session.var( "CURMSG" )
  23.           desk.updateMsg( )
  24.           break
  25.       case "CONTACT"
  26.         contact.updateFromForm( )
  27.         break
  28.     end    
  29. end
  30.  
  31. template = desk.session.var( "template" )
  32. if ( ! strempty( template ) )
  33.     desk.template = 0 + template
  34.     desk.update( )
  35. end
  36.  
  37.  
  38. ]>
  39. <HTML>
  40. <HEAD>
  41. <TITLE>Personalize Desktop for <[! desk.FullName ]></TITLE>
  42. </HEAD>
  43. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  44.  
  45. <p>
  46. <CENTER>
  47.  
  48. <[ ! desk.templateHeader( ) ]>
  49.  
  50. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  51.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  52.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> Personalize " ]> the Desktop</B></FONT></TD>
  53.   <TD WIDTH=100% ALIGN=right><FONT SIZE=-1 FACE=geneva,arial COLOR=<[ ! desk.fclrHdr + ">" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]></FONT></TD>
  54.  </TR>
  55. </TABLE>
  56.  
  57. <[ ! desk.templateNavBar( ) ]>
  58.  
  59. </CENTER>
  60. </p>
  61.  
  62. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  63.  <TR VALIGN=top>
  64.   <TD WIDTH=22%>
  65.  
  66.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  67.     <TR>
  68.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Picture</B></FONT></TD>
  69.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="mypic.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  70.     </TR>
  71.    </TABLE>
  72.  
  73.    <CENTER>
  74.     <p><a href="mypic.ap"><img src="mypic.jpg" border=1 width=150 height=180></a><br></p>
  75.  
  76.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  77.     <TR>
  78.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Message</B></FONT></TD>
  79.     </TR>
  80.    </TABLE>
  81.    
  82.    <P><FORM ACTION="_public.ap" METHOD="GET"><CENTER>
  83.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  84.     <TR><TD><FONT SIZE=4><TEXTAREA NAME="curmsg" WRAP=virtual ROWS=10><[ ! desk.curmsg ]></TEXTAREA></FONT><TD></TR>
  85.    </TABLE>
  86.    <INPUT TYPE="hidden" NAME="cmd" VALUE="msg">
  87.    <INPUT TYPE="submit" VALUE="Update Message">
  88.    </FORM></P>
  89.  
  90.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  91.     <TR>
  92.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  93.     </TR>
  94.    </TABLE>
  95.  
  96.    <br><CENTER><a href="public.ap"><FONT SIZE=3>Public</FONT></a> | 
  97.    <a href="private.ap"><FONT SIZE=3>Private</FONT></a></CENTER><br>
  98.  
  99.   </TD>
  100.   
  101.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  102.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  103.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  104.   </TD>  
  105.   
  106.   <TD WIDTH=54%>
  107.  
  108.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  109.     <TR>
  110.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Contact Information</B></FONT></TD>
  111.     </TR>
  112.    </TABLE>
  113.  
  114.    <[ 
  115.            ! contact.update( ) 
  116.        ]>
  117.  
  118.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  119.     <TR>
  120.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  121.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_stuff.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  122.     </TR>
  123.    </TABLE>
  124.  
  125.     <[
  126.     
  127.         ! DisplayUsefulStuff( desk, 3, 1 )
  128.     ]>
  129.     
  130.    </CENTER>
  131.    </P>
  132.  
  133.   </TD>
  134.  
  135.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  136.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  137.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  138.   </TD>  
  139.  
  140.   <TD WIDTH=22%>
  141.  
  142.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  143.     <TR>
  144.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Colors</B></FONT></TD>
  145.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="colors.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  146.     </TR>
  147.    </TABLE>
  148.  
  149.    <CENTER>
  150.    <p><a href="colors.ap"><img src="clrs.jpg" BORDER=1 WIDTH=120 HEIGHT=20></a><br></p>
  151.    </CENTER>
  152.  
  153.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  154.     <TR>
  155.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Calendar</B></FONT></TD>
  156.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right></TD>
  157.     </TR>
  158.    </TABLE>
  159.  
  160.    <p><[ ! DisplayCalendar( ) ]></p>
  161.  
  162.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  163.     <TR>
  164.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  165.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_links.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  166.     </TR>
  167.    </TABLE>
  168.  
  169.     <[
  170.         // links
  171.         ! DisplayLinks( desk, 3, 1 )
  172.     ]>
  173.  
  174.    </CENTER>
  175.    </P>
  176.   </TD>
  177.  </TR>
  178. </TABLE>
  179.  
  180. </BODY>
  181. </HTML>
  182.  
  183.