home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / PRIVATE.AP_ / PRIVATE.AP
Encoding:
Text File  |  1997-12-08  |  7.6 KB  |  227 lines
  1. <[
  2. // private.ap - Private Desktop Active Page
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  4.  
  5. #include "/desktop/desksupp.fgl"
  6. #include "/desktop/apps.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. ]>
  17. <HTML>
  18. <HEAD>
  19. <TITLE>Private Desktop for <[! desk.FullName ]></TITLE>
  20. </HEAD>
  21. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  22.  
  23. <p>
  24. <CENTER>
  25.  
  26. <[ ! desk.templateHeader( ) ]>
  27.  
  28. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  29.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  30.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Private Desktop</B></FONT></TD>
  31.   <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>
  32.  </TR>
  33. </TABLE>
  34.  
  35. <[ ! desk.templateNavBar( ) ]>
  36.  
  37. </CENTER>
  38. </p>
  39.  
  40. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  41.  <TR VALIGN=top>
  42.   <TD WIDTH=22%>
  43.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  44.     <TR>
  45.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  46.     </TR>
  47.    </TABLE>
  48.  
  49.    <p><CENTER><FONT SIZE=2><a href="/desktop/public.ap">Public</a>, <a href="/chat/dir.ap">Chat</a>, <a href="/system/server.ap">Server</a>, <a href="/help.ap">Help</a>, <a href="/system/srvstats.ap">Stats</a>, <a href="http://my.excite.com">Excite</a>, <a href="_public.ap">Personalize</a></FONT></center></p>
  50.    
  51.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  52.     <TR>
  53.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Drives</B></FONT></TD>
  54.     </TR>
  55.    </TABLE>
  56.  
  57.    <p>
  58.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  59. <[
  60.     // Drives
  61.  
  62.     y = 1
  63.     drives = drivestr( )
  64.     cnt = len( drives )
  65.     ! "<TR>"
  66.     for ( i=1; i<=cnt; i++ )
  67.         if ( y > 3 )
  68.             ! "</TR><TR>"
  69.             y = 1
  70.         end
  71.         filename = strextract( driveGetIconName( drives[i] ), ".", 1 ) + ".jpg"
  72.         if ( strat( "cdrom", filename ) )
  73.             filename = "cdrom2.jpg"
  74.         end
  75.         ! "<TD ALIGN=center><a href=\"drvmgr.ap?Drive=" + drives[i] + ":\"><img src=\"" + filename + "\" width=38 height=37 border=0></a><br> <font size=2>" + drives[i] + ":</font></TD>"
  76.         y++
  77.     end
  78.     ! "</TR>"
  79. ]>
  80.    </TABLE>
  81.    </p>   
  82.  
  83.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  84.     <TR>
  85.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>System Information</B></FONT></TD>
  86.     </TR>
  87.    </TABLE>
  88.    <FONT SIZE=2>
  89. <[
  90.     // System Information
  91.  
  92.     host = webHostName( )
  93.     addr = webAddrFromHost( host )
  94.  
  95.     ! "<P><CENTER>"
  96.     ! "DOS version " + sysGetDosVersion() + "<br>MS-Windows v" + sysGetWinVersion() + "<br>"
  97.     ! "http://" + addr + "<br>"
  98.     ! "</P><P><CENTER>"
  99.  
  100.     prefix = "viewfile.ap?filename="
  101.  
  102.     ! "<a href=\"" + prefix + "c:\\autoexec.bat\">autoexec.bat</a>, <a href=\"" + prefix + "c:\\config.sys\">config.sys</a>, "
  103.     ! "<a href=\"" + prefix + dirwindows( ) + "\\system.ini\">system.ini</a>, <a href=\"" + prefix + dirwindows( ) + "\\win.ini\">win.ini</a>, "
  104.     ! "<a href=\"" + prefix + dirwindows( ) + "\\protocol.\">protocol</a>, <a href=\"" + prefix + dirwindows( ) + "\\services.\">services</a><br>"
  105.     ! "</CENTER></P>"
  106.  
  107. ]>
  108.  
  109.    </FONT>
  110.     
  111.   </TD>
  112.   
  113.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  114.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  115.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  116.   </TD>  
  117.   
  118.   <TD WIDTH=54%>
  119.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  120.     <TR>
  121.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Applications</B></FONT></TD>
  122.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_apps.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  123.     </TR>
  124.    </TABLE>
  125.  
  126.     <[
  127.         // Application List
  128.         ! DisplayApps( desk )
  129.     ]>
  130.  
  131.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  132.     <TR>
  133.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Useful Stuff</B></FONT></TD>
  134.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_stuff.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  135.     </TR>
  136.    </TABLE>
  137.  
  138.     <[
  139.  
  140.         ! DisplayUsefulStuff( desk, 2 )
  141.     ]>
  142.  
  143.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  144.     <TR>
  145.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Documents</B></FONT></TD>
  146.      <TD BGCOLOR=<[! desk.bclrHdr + " VALIGN=center ALIGN=right><a href=\"apprun.ap?cat=_system_&item=FileManager&data=" + webServerHome( desk.websrvr ) + "\\desktop\\docs" + "\">" ]><img src="more.jpg" border=0 width=16 height=16></a></TD>
  147.     </TR>
  148.    </TABLE>
  149. <[
  150.     // Document List
  151.     
  152.     fname = fileFindFirst( desk.dirDocs + "\\*.*", 0 )
  153.     if ( ! strempty( fname ) )
  154.         i = 1
  155.         while ( ! strempty( fname ) )
  156.             files[ i++ ] = lower( fname )
  157.             fname = fileFindNext( )    
  158.         end
  159.         asort( @files )
  160.         ! "<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=0>"
  161.         for ( i=1; i<=len( files ); i++ )
  162.  
  163.             filename = webServerFile( desk.websrvr, "/desktop/docs/" + files[i] )
  164.  
  165.                ! " <TR>"
  166.              ! "  <TD VALIGN=\"top\" WIDTH=55%>"
  167.              if ( IsWin32( ) )
  168.                  f = lfnShortToLong( filename )
  169.                  f = right( f, len( f ) - atlast( "\\", f ) - 1 )
  170.                 ! "   <a href=\"/desktop/docs/" + files[i]  + "\"><FONT SIZE=2>" + f + "</a></FONT>"
  171.             else
  172.                 ! "   <a href=\"/desktop/docs/" + files[i]  + "\">" + files[i] + "</a>"
  173.             end
  174.             ! "  </TD>"
  175.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + right( "0" + alltrim( fileDate( filename ) ), 8 ) + "</FONT></TD>"
  176.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + fileTime( filename ) + "</FONT></TD>"
  177.              ! "  <TD ALIGN=right WIDTH=15%><FONT SIZE=2>" + strcommas( "" + fileSize( filename ) ) + "</FONT></TD>"
  178.             ! " </TR>"
  179.         end
  180.         ! "</TABLE>"
  181.     end
  182.  
  183. ]>
  184.  
  185.   </TD>
  186.  
  187.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  188.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  189.    <IMG SRC=<[! desk.dirImages ]>/vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  190.   </TD>  
  191.  
  192.   <TD WIDTH=22%>
  193.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  194.     <TR>
  195.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Calendar</B></FONT></TD>
  196.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="calendar.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  197.     </TR>
  198.    </TABLE>
  199.  
  200.    <p>
  201.    <[ 
  202.    
  203.       ! DisplayCalendar( ) 
  204.       
  205.       ]>
  206.       </p>
  207.  
  208.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  209.     <TR>
  210.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Links</B></FONT></TD>
  211.      <TD BGCOLOR=<[! desk.bclrHdr ]> VALIGN="center" ALIGN=right><a href="_links.ap"><img src="more.jpg" border=0 width=16 height=16></a></TD>
  212.     </TR>
  213.    </TABLE>
  214.  
  215.     <[
  216.         // links
  217.         ! DisplayLinks( desk, 2 )
  218.     ]>
  219.  
  220.   </TD>
  221.  </TR>
  222. </TABLE>
  223.  
  224. </BODY>
  225. </HTML>
  226.  
  227.