WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/branches/dpurdie/WikiAsp/Wiki.Asp

 ' Can only Edit on the Test / Development System not on the Live System
 If (Not IsEmpty(Application("TestSystem"))) Then
     gHideLogin = false
     gHideWikiFooter = false
+Else
+    gHideLogin = true
+    gHideWikiFooter = true
 End If
 'set destination URL
 gScriptURL    = gScript & "?db=" & gDataSourceFile  ' removed & "&dbname=" & server.urlencode(gDataSourceName)
 gHomeTopic    = gDataSourceFile  ' default home topic is the same as ms access db name unless overwritten by .ini
 end sub
 'ElreyRonald 4/2004
 Sub HandleDelete
   Dim pwd, topic, sh
+   Response.Write("<center><h2>Page Deletion</h2></center><hr>")
   sh = "<br><a href='" & gScriptURL & "' >Click here proceed to home page</a>"
   If Request.QueryString("pw") <> gDeletePassword  Then
-   Response.Write( "Authorization to delete failed" & sh)
+   Response.Write( "Authorization to delete failed. Try adding &pw=SomePassword" & sh)
    Response.End
   End If
   topic = Request.QueryString("o") ' Topic to delete
   If IsNull(topic) or topic = "" Then
    Response.Write( "Specify page name to delete i.e.  &o=MyPage" & sh)
   EmitDebug 44, 2, "<br/>query(" & sqlQuery & ")<br/>" & vbcrlf
   'set rs= gDataConn.execute(sqlQuery)
   set rs = WrappedQueryExecute( gDataConn, sqlQuery )  ' ERV 3/2007
+  Call WriteBanner(pageTitle,"")
   if not rs.eof  then
+'    Response.write("<h2>" & pageTitle & ":</h2>)
-    Response.write("<h2>" & pageTitle & ":</h2><table cellpadding=5  cellspacing=0 border=0 >" & vbcrlf)
+    Response.write("<table cellpadding=5  cellspacing=0 border=0 >" & vbcrlf)
     i = 1
     if not isEmpty(initialRow) then
       Response.write initialRow & vbcrlf
     end if
     Do while (Not rs.eof )
       end if
       rs.MoveNext
     Loop
     Response.write("</table>" & vbcrlf)
   else
+'    Response.write("<h2>" & pageTitle & ":</h2>)
-    Response.write("<h2>" & pageTitle & ":</h2><table style='border: 1px solid gainsboro'>" & vbcrlf)
+    Response.write("<table style='border: 1px solid gainsboro'>" & vbcrlf)
     Response.write("<tr><td>This topic is not mentioned on any other page! </td></tr>" & vbcrlf)
     Response.write("</table>" & vbcrlf)
   end if
-  response.write "</td></tr><tr bgcolor='#CCCCCC'><td><br>"
-  response.write "<a href='" & gScriptURL & "'>Home</a> | "
-  response.write "<a href='" & gScriptURL & "&a=list&o=ByTitle' title='this may take a loooong time'>List all pages</a> |  "
-  response.write "<a href='" & gScriptURL & "&a=list&o=recent'>List Recently modified pages</a>&nbsp;&nbsp;&nbsp;&nbsp;"
-  response.write "<form method='POST' action=""" & gScript & """ id=""form1"" name=""form1"">"& gSearchLabel &"<input title='Type in your search terms and press [Enter]' type='text' name='o' value=''/><input type='hidden' name='db' value='"& gDataSourceFile & "'><input type='hidden' name='dbname' value='" & gDataSourceName & "'><input type='hidden' name='a' value='search'></form>"
+   Call WriteFooter("","",""  )
-  response.write "<center><font size='1'>WikiAsp Engine version:  " & gEngineVersion & "</font></center>" & vbcrlf
 end sub
 sub handleSave
   if gDisableSave = "yes" then
   'Response.Redirect gScript & "?" & glsTopic
   Response.Redirect gScriptURL & "&o=" & glsTopic
 end sub
-Sub HandleBrowse
-  ' Prevent this page from being viewed.
-  if not IsEmpty(Request.Form("pwd")) then Session("pwd") = Request.Form("pwd")
-  if glsTopic = "RegisteredUsers" then
-     If  IsEmpty( Session("pwd")) or  Session("pwd") <> gPassword then
-       exit sub
-     End If
-  end if
-  sqlQuery = "select PageData,Title,LastEditor,LastUpdate from " & gDbTableName & " where title='" & glsTopic & "'"
-  EmitDebug 50, 2, "Browse query(" & sqlQuery & ")<br/>" & vbcrlf
-  set rs = gDataConn.execute(sqlQuery)
-  if rs.eof=true then
-    response.write("Sorry! The page --> <b>" &  glsTopic & "</b>  <--- is not existing or it is a page that must be created </h4>")
-    response.write( "<br><a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click this link to create this page.</a>" )
-    response.write( "<br><br><a href='" & gScriptURL & "'>No,  don't create it.</a>" )
-  else
-      EmitDebug 51, 3, "found...(" & rs("PageData") & ")<br/>" & vbcrlf
-      If Not gHideLogin Then
-        response.write" <body ondblclick=" & chr(34) & "document.location.href='" & _
-            gScriptURL & "&a=edit&o=" & glsTopic    & "'" & chr(34) &">"
-      Else
-         response.write" <body >"
+Sub WriteBanner(title,search)
-      End If
-      ''''''''''''''''''''''''' removed
-      ' response.write "<table border='0' width='100%' cellpadding='10' cellspacing='0'><tr height=10pt ><td   class='h1background' ><h1 class='h1text'><a  href='" & gScriptURL & _
-      '  "'><img src=" & gIconName & " border=0 alt='Go to Start Page'></a> "
-      ' response.write "<a  title=""search for references to '" & rs("title") & "'"" href='" & gScriptURL & "&a=search&o=" & rs("title") & "'>" &  _
-      '  SpaceName(rs("title")) & "</a></h1></td></tr></table>"
       Dim iconPart, bannerPart, bannerTextPart
       iconPart = "<a  href='" & gScriptURL & "'><img src='" & gIconName & "' border='0' alt='Go to Start Page'></a>"
+      if search <> "" then
-      bannerTextPart =   "<a  title='Search for references to " & rs("title") & "' href='" & gScriptURL & "&a=search&o=" & rs("title") & "'>" &  SpaceName(rs("title")) & "</a>"
+         bannerTextPart = "<a  title='Search for references to " & title & "' href='" & gScriptURL & "&a=search&o=" & search & "'>" &  SpaceName(title) & "</a>"
+      else
+         bannerTextPart = SpaceName(title)
+      end if
       If gBannerTemplate = "" Then
          bannerPart = ""
          bannerPart =  bannerPart &  "<a href='" & gScriptURL & "'>Wiki Home</a>"
          bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=list&o=ByTitle' title='this may take a loooong time'>List all pages</a>"
-         if ( Not IsEmpty(Application("TestSystem"))  ) Then
+         if ( Not gHideLogin  ) Then
-            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<span style='color: #FF0000;font-weight: bold;'>Development Web Server</span>"
             bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=list&o=recent'>Recent pages</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<span style='color: #FF0000;font-weight: bold;'>Development Web Server</span>"
+            if search <> "" then
-            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=edit&o=" & rs("title") & "'>Edit page</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=edit&o=" & search & "'>Edit page</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=del&o=" & search & "'>Del page</a>"
+            end if
-            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&o=TextFormattingRules'>Text Formatting Rules</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScript & "?db=ReleaseNotes&o=TextFormattingRules'>Formatting Rules</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScript & "?db=ReleaseNotes'>Release Notes</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScript & "?db=ImplementationNotes'>RM Dev Notes</a>"
-            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=logout&o=" & rs("title") & "'>Log out</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=logout'>Log out</a>"
          End If
          bannerPart =  bannerPart &  "<hr>"
          bannerPart =  bannerPart &  " <table class='cssBannerTable' id='idBannerTable' cellSpacing='0' cellPadding='0' border='0'>"
          bannerPart =  bannerPart &  "    </tr>"
       bannerPart = Replace( bannerPart, "$$banner_text$$", bannerTextPart)
       Response.Write ( bannerPart )
-      response.write " <div class='wikibody'>" & WalkWiki(  xform( "<span id=bodyPrefix>" & vbcrlf & gWikiBodyPrefix & VbCrLF & "</span>" & VbCrLF &  rs("PageData")))  ' Elrey - xform func now removes html
-      response.write "</b></i></font></u></strong></font>"
+End Sub
-      dim hideScript
-      hideScript = "var div1=document.getElementById('wikifooter'); if (div1) {div1.style.display='none';}"
-      hideScript = hideScript & "div1=document.getElementById('bodyPrefix'); if (div1) {div1.style.display='none';}"
-      hideScript = hideScript & "div1=document.getElementById('idTopSearch'); if (div1) {div1.style.display='none';}"
+Sub WriteFooter(hideScript,lastUpdate,lastEditor)
       If Not gHideWikiFooter Then
           response.write "<div id=wikifooter class=footer ><form method='POST' action=""" & gScript & """ id=""formFooter"" name=""formFooter""><br>"
           response.write "<hr size=1 noshade=true>"
           If Not gHideLastEditor Then
+            if lastUpdate <> "" Then
-            response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ > <font size=-1>Last Updated " & rs("LastUpdate") & " by '" & rs("LastEditor") &  "' </font></span><br/>"
+                response.write "<span title='Click this now to prepare page for Printing by removing unnecessary portions! ' onclick=""" & hideScript & """ ><font size=-1>Last Updated " & lastUpdate & " by '" & lastEditor &  "' </font></span><br/>"
+            End If
           end if
           response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
 '          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "
 '          if  Not gHideLogin Then
 '          If gHttpDomain <> "" Then
 '            response.write " | <a href='" & gScriptURL & "&a=rss' ><span style='background:#FF6600;text-decoration:none;font-family:tahoma;' >&nbsp;<b><font color=white>RSS</font></b>&nbsp;</span></a>"
 '          End If
+'
 '          response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&gSearchLabel&"&nbsp;<input title='Type in your search terms and press [Enter]' type='text' name='o' value=''/><input type='hidden' name='db' value='"& gDataSourceFile & "'><input type='hidden' name='dbname' value='" & gDataSourceName & "'><input type='hidden' name='a' value='search'></form></div> "
+          response.write "<font size='-1'>WikiAsp Engine version:  " & gEngineVersion & "</font>" & vbcrlf
           response.write "</div>"
       End If
+End Sub
+Sub HandleBrowse
+  ' Prevent this page from being viewed.
+  if not IsEmpty(Request.Form("pwd")) then Session("pwd") = Request.Form("pwd")
+  if glsTopic = "RegisteredUsers" then
+     If  IsEmpty( Session("pwd")) or  Session("pwd") <> gPassword then
+       exit sub
+     End If
+  end if
+  sqlQuery = "select PageData,Title,LastEditor,LastUpdate from " & gDbTableName & " where title='" & glsTopic & "'"
+  EmitDebug 50, 2, "Browse query(" & sqlQuery & ")<br/>" & vbcrlf
+  set rs = gDataConn.execute(sqlQuery)
+  if rs.eof=true then
+        Response.Write("<center><h2>Page Creation</h2><hr>")
+    if gHideLogin Then
+        Response.Write("The page --> <b>" &  glsTopic & "</b> <--- Does not exit and it cannot be created on this Server")
+    Else
+        response.write("Sorry! The page --> <b>" &  glsTopic & "</b>  <--- is not existing or it is a page that must be created </h4>")
+        response.write( "<br><a href='" & gScriptURL & "&a=edit&o=" & glsTopic & "'>Click this link to create this page.</a>" )
+        response.write( "<br><br><a href='" & gScriptURL & "'>No,  don't create it.</a>" )
+    End If
+        Response.Write("</center>")
+  else
+      EmitDebug 51, 3, "found...(" & rs("PageData") & ")<br/>" & vbcrlf
+      If Not gHideLogin Then
+        response.write" <body ondblclick=" & chr(34) & "document.location.href='" & _
+            gScriptURL & "&a=edit&o=" & glsTopic    & "'" & chr(34) &">"
+      Else
+         response.write" <body >"
+      End If
+      Call WriteBanner(rs("title"),rs("title"))
+      response.write " <div class='wikibody'>" & WalkWiki(  xform( "<span id=bodyPrefix>" & vbcrlf & gWikiBodyPrefix & VbCrLF & "</span>" & VbCrLF &  rs("PageData")))  ' Elrey - xform func now removes html
+      response.write "</b></i></font></u></strong></font>"
+      dim hideScript
+      hideScript = "var div1=document.getElementById('wikifooter'); if (div1) {div1.style.display='none';}"
+      hideScript = hideScript & "div1=document.getElementById('bodyPrefix'); if (div1) {div1.style.display='none';}"
+      hideScript = hideScript & "div1=document.getElementById('idTopSearch'); if (div1) {div1.style.display='none';}"
+      Call WriteFooter(hideScript, rs("LastUpdate"), rs("LastEditor")  )
   end if
 end sub
 sub handleCreate
+    If gHideLogin Then
+        Response.Write("<br/><br/><br/><br/><br/><center><h2>Editing is not allowed</h2></center>")
+        Response.End
+        exit sub
+    End If
   on error resume next
   VerifyWikiTable
   on error goto 0
   Response.Redirect gScriptURL
 end sub
 'Intercept RSS request here
 if ( glsMode = "rss" ) then
   If ( gHttpDomain = "" ) then
     response.write("RSS is not enabled")
   Else

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/WikiAsp/Wiki.Asp – Rev 1452 → 1465