home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / DRVMGR.AP_ / DRVMGR.AP
Encoding:
Text File  |  1997-12-08  |  5.9 KB  |  207 lines
  1. <[
  2. // drvmgr.ap    
  3. // Drive Manager Active Page
  4. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. #include "/desktop/desksupp.fgl"
  7. #include "/desktop/drivsupp.fgl"
  8.  
  9. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  10. if ( type( desk ) != "O" )
  11.     return( 0 )
  12. end
  13.  
  14. TRY
  15.  
  16. drive = new( "drive", desk.session.var( "drive" ) )
  17.  
  18. ]>
  19. <HTML>
  20. <HEAD>
  21. <TITLE>Drive Manager</TITLE>
  22. </HEAD>
  23. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  24.  
  25. <p>
  26. <CENTER>
  27.  
  28. <[ ! desk.templateHeader( ) ]>
  29.  
  30. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  31.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  32.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Drive Manager</B></FONT></TD>
  33.   <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>
  34.  </TR>
  35. </TABLE>
  36.  
  37. <[ ! desk.templateNavBar( ) ]>
  38.  
  39. </CENTER>
  40. </p>
  41.  
  42. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  43.  <TR VALIGN=top>
  44.   <TD WIDTH=22%>
  45.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  46.     <TR>
  47.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Jump</B></FONT></TD>
  48.     </TR>
  49.    </TABLE>
  50.  
  51.    <p><CENTER><FONT SIZE=2><a href="private.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="privpref.ap">Personalize</a></FONT></center></p>
  52.    
  53.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  54.     <TR>
  55.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Drives</B></FONT></TD>
  56.     </TR>
  57.    </TABLE>
  58.  
  59.    <P>
  60.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  61. <[
  62.     // Drives
  63.  
  64.     prefix = "drvmgr.ap?Drive="
  65.  
  66.     y = 1
  67.     drives = drivestr( )
  68.     cnt = len( drives )
  69.     ! "<TR>"
  70.     for ( i=1; i<=cnt; i++ )
  71.         if ( y > 3 )
  72.             ! "</TR><TR>"
  73.             y = 1
  74.         end
  75.         filename = strextract( driveGetIconName( drives[i] + ":" ), ".", 1 ) + ".jpg"
  76.         if ( strat( "cdrom", filename ) )
  77.             filename = "cdrom2.jpg"
  78.         end
  79.         ! "<TD ALIGN=center><a href=\"" + prefix + drives[i] + ":\"><img src=\"" + filename + "\" width=38 height=37 border=" + ( drive.letter[1] == drives[i] ? "1" : "0" ) + "></a><br> <font size=2>" + drives[i] + ":</font></TD>"
  80.         y++
  81.     end
  82.     ! "</TR>"
  83. ]>
  84.  
  85.    </TABLE>
  86.    </p>   
  87.  
  88.    <p><center><a href="private.ap">back</a></center></p>
  89.  
  90.   </TD>
  91.   
  92.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  93.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  94.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  95.   </TD>  
  96.   
  97.   <TD WIDTH=77%>
  98.    <P>
  99.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  100.     <TR>
  101.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr + "><B>Details for Drive " + drive.letter ]></B></FONT></TD>
  102.     </TR>
  103.    </TABLE>
  104.    </P>
  105.  
  106.    <FONT SIZE=4>
  107.    <CENTER>
  108.  
  109.    <P>
  110.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  111.     <TR>
  112.      <TD ALIGN=center WIDTH=70%>
  113.       <[
  114.         filename = strextract( driveGetIconName( drive.letter + ":" ), ".", 1 ) + ".gif"
  115.         if ( strat( "cdrom", filename ) )
  116.             filename = "cdrom2.gif"
  117.         end
  118.           ! "<IMG SRC=\"" + filename + "\" WIDTH=80 HEIGHT=60 BORDER=0>"
  119.       ]>
  120.       </TD>
  121.      <TD WIDTH=30%> </TD>
  122.     </TR>
  123.    </TABLE>
  124.  
  125.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  126.     <TR>
  127.      <TD WIDTH=40%>Drive Type:</TD>
  128.      <TD ALIGN=right WIDTH=30%><[ ! drive.cType ]></TD>
  129.      <TD WIDTH=30%> </TD>
  130.     </TR>
  131.     <TR>
  132.      <TD WIDTH=40%>Drive Status:</TD>
  133.      <TD ALIGN=right WIDTH=30%><[ ! drive.status ]></TD>
  134.      <TD WIDTH=30%> </TD>
  135.     </TR>
  136.     <TR><TD> </TD></TR>
  137.     <TR>
  138.      <TD WIDTH=40%>Drive Size:</TD>
  139.      <TD ALIGN=right WIDTH=30%><[ ! drive.cSize ]></TD>
  140.      <TD WIDTH=30%> </TD>
  141.     </TR>
  142.     <TR>
  143.      <TD WIDTH=40%>Drive Space Free:</TD>
  144.      <TD ALIGN=right WIDTH=30%><[ ! drive.cSpace ]></TD>
  145.      <TD WIDTH=30%> </TD>
  146.     </TR>
  147.     <TR>
  148.      <TD WIDTH=40%>Percent Space Free:</TD>
  149.      <TD ALIGN=right WIDTH=30%><[ ! drive.cPctfree ]></TD>
  150.      <TD WIDTH=30%> </TD>
  151.     </TR>
  152.     <TR><TD> </TD></TR>
  153.    </TABLE>
  154. <[
  155.     if ( ! drive.isremoveable )
  156.            ! "<TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>"
  157.            ! " <TR>"
  158.            ! "  <TD BGCOLOR=red WIDTH=" + ( 100 - drive.pctfree ) + "> </TD>"
  159.            ! "  <TD BGCOLOR=blue WIDTH=" + drive.pctfree + "> </TD>"
  160.            ! "  <TD WIDTH=30%> </TD>"
  161.            ! " </TR>"
  162.            ! "</TABLE>"
  163.  
  164.            ! "<TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>"
  165.            ! " <TR>"
  166.            ! "  <TD WIDTH=40%><FONT SIZE=2>Space in Use</FONT></TD>"
  167.            ! "  <TD WIDTH=30% ALIGN=right><FONT SIZE=2>Space Available</FONT></TD>"
  168.            ! "  <TD WIDTH=30%> </TD>"
  169.            ! " </TR>"
  170.            ! "</TABLE>"
  171.     end
  172. ]>
  173.    <P>
  174.    <TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  175.     <TR>
  176.      <TD ALIGN=center WIDTH=70%>
  177.       <FORM ACTION="apprun.ap" METHOD="GET">
  178.        <INPUT TYPE="hidden" NAME="cat" VALUE="<[ ! "_system_" ]>">
  179.        <INPUT TYPE="hidden" NAME="item" VALUE="<[ ! "FileManager" ]>">
  180.        <INPUT TYPE="hidden" NAME="param" VALUE="<[ ! drive.letter ]>">
  181.        <INPUT TYPE="submit" VALUE=" Launch the File Manager ">
  182.       </FORM>
  183.      </TD>
  184.      <TD WIDTH=30%> </TD>
  185.     </TR>
  186.    </TABLE>
  187.    </P>
  188.  
  189.    </CENTER>
  190.  
  191.    </FONT>
  192.    </P>
  193.  
  194.   </TD>
  195.  </TR>
  196. </TABLE>
  197.  
  198.  
  199. </BODY>
  200. </HTML>
  201.  
  202. <[
  203.     CATCH ( err )
  204.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  205.         return( 0 )
  206.     END
  207. ]>