WebSVN – DevTools – Diff – /ManagerSuite/Production_Manager/trunk/WikiAsp/Wiki.Asp

 Dim gHomeTopic, gStyleSheet, gIconName, gEditPassword, gIsOpenWiki
 Dim glsTopic, glsMode  , gHideLastEditor,  gLoginFlag, gRemoveHtml,gBlackListedIps
 Dim gRE, gHighlightFlag, gHideWikiSource, gHideWikiFooter, gHideLogin, gHtmlHeadStr
 Dim gDisableSave,gTimeZoneOffset, gRssStyle, gRedirectURL
 Dim gBannerTemplate, gWikiBodyPrefix, gHideTopSearch, gDisableScripting
-Dim gMdbExtension , gSearchLabel, gBlackListedIpsRE ,gDeletePassword , gPersistPassword
+Dim gMdbExtension , gSearchLabel, gBlackListedIpsRE ,gPersistPassword
-Dim gPasswordLabel, gFooterHtml, gEnableEdit
+Dim gPasswordLabel, gFooterHtml, gEnableEdit, gDevNotePrefix, gBulkDelete
 '+-----------------------------------------------------------------------------+
 '| AN IMPORTANT NOTE:  !!!!!                                                   |
 '| Enter your password below for creating new DB and for Delete.               |
 '| Enter your URL inside quotes below e.g. http://www28.brinkster.com/site     |
 gIsOpenWiki        =  true                            ' Allow editing or Password Protect Editing?
 gHideWikiSource    =  false                           ' Allow viewing of unformatted wiki text when loggin in.
 gHideWikiFooter    =  false                           ' Show or Hide the whole wiki footer
 gHideLogin         =  false                           ' Enable/Disable double-click or Edit. This can be overriden by &log
 gHideLastEditor    =  false                           ' Show/Hide in  the footer the info about last edit
-gDeletePassword    = "passworddel"                    ' password  for deleting
 gEditPassword      = "password"                       ' password  for editing the site
 gPassword          = "password"                       ' password  for editing and delete and db creation.
 gHttpDomain        = "auto"                           ' URL for RSS links to work. Override in config.asp . Set to "" to remove rss footer links
 gDefaultIcon       = "icon"                           ' This default. Maybe overridden if your site has icon.gif, icon.jpg or xxxx.gif and if FSO is working.
 gDefaultHomePage   = "WikiAsp"                        ' modify your start page here. this may be overridden by .ini file. The .ini file is same dir as mdb file
 gSearchLabel       = " Search On:"
 gPersistPassword   = true                             ' Remember password by default
 gPasswordLabel     = " To edit, enter the password: " ' The prompt label to use when entering a password. 4/2010
 gFooterHtml        = "</body></html>"                 ' Now you can customize the footer with your chosen html. Even remove ads
 gEnableEdit        = false
+gDevNotePrefix     = "??"                             ' Dev Note Prefix
+gBulkDelete        = false                            ' Manually enabled bulk delete mode
 '+-----------------------------------------------------------------------------+
 '| DO YOU WANT TO SEPARATE SOME CONFIG SETTINGS IN ANOTHER FILE?               |
 '+-----------------------------------------------------------------------------+
 '| IF yes,just uncomment line after this box (by removing single quote as      |
     End If
     gHideWikiFooter = NOT gEnableEdit
 Else
     gHideLogin = true
     gHideWikiFooter = true
+    gBulkDelete = false
 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
   'Elrey - move HTML removal into here
   If gRemoveHtml Then
      newText = removeHTML(newText)
   End If
+  'David Purdie
+  'Remove comments - Lines starting with //
+  gRE.Pattern = "(\r\n)//([^\r\n]+)"
+  newText=gRE.Replace(newText,"")
   ' indented paragraph second level using '>' (  '|' is now used with Tables - Elrey
   newText=replace(newText,vbcrlf & "&gt;&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:80pt;"">")
   newText=replace(newText,vbcrlf & "&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:60pt;"">")
   newText=replace(newText,vbcrlf & "&gt;&gt;",vbcrlf & "<p style=""margin-left:40pt;"">")
   newText=replace(newText,vbcrlf & "&gt;",vbcrlf & "<p style=""margin-left:20pt;"">")
   end if
   set fso = nothing
   '---- some security here
   If gDataSourceFile <> gDefaultHomePage Then
-    Dim pwd
+    ' Expecting delVerified=1 for deletion confirmation
-    If Request.QueryString("pw") <> gPassword Then
+    If Request.QueryString("dbCreate") <> "1" Then
+      Response.Write("<center><h2>Database Creation</h2></center><hr>")
+      Response.Write("<center>")
+      If gHideLogin Then
+          Response.Write("The Database --> <b>" &  gDataSource & "</b> <--- Cannot be created on this Server")
+      ElseIf NOT gEnableEdit Then
-        Response.Write("Sorry but the Database (db) requested does not exist, or may not be writable.<br>Correct password must be sent to create it.")
+          Response.Write("The Database --> <b>" &  gDataSource & "</b> <--- Cannot be created until you enable editing")
+      Else
+          Response.Write("<br><br><span style='border: solid 5px red; padding: 10px;display:inline-block'>")
-        Response.Write("<br>Hint. Add &pw=" & gPassword & " to the URL.")
+          response.write("Create Database --> <b>" &  gDataSource & "</b>  <---")
-        Response.Write("<p>Folder:" & f1 & ".")
+          Response.Write("<p align=left>Folder: " & f1 & ".")
-        Response.Write("<br>DataBase:" & gDataSource & ".")
+          Response.Write("<br>DataBase: " & gDataSource & ".")
+          response.write("<p>Are your sure that you wish to continue!")
+          response.write( "<br><br><a href='" & gScriptURL & "&dbCreate=1'><button style='color:red'>Create Database.</button></a>" )
+          response.write( "&nbsp;&nbsp;<a href='" & gScript & "'><button>No,  don't create it.</button></a>" )
+          response.write( "</span>" )
+      End If
+      Response.Write("</center>")
-        Response.End
+      Response.End
     End If
   End If
   '--------------------------------------------
   ' step 1: create the new db catalog, if necessary
   Err.Clear
   EmitDebug 21, 2, vbcrlf & " creating db " & dbname & "<br/>"
-on error resume next
+  on error resume next
   cat.Create ConnStr(0)
   on error goto 0
   EmitDebug 22, 2, ">> error(" & err.Number & "," & err.Description &  ")<br/>"
   'EmitDebug 23, 2, vbcrlf & " catConnErrorCount(" & _
   '    cat.ActiveConnection.errors.count  & ")<br/>"
 end sub
 'ElreyRonald 4/2004
 Sub HandleDelete
-  Dim pwd, topic, sh
+    Dim sh
-   Response.Write("<center><h2>Page Deletion</h2></center><hr>")
-  sh = "<br><a href='" & gScriptURL & "' >Click here proceed to home page</a>"
+    sh = "<br><a href='" & gScriptURL & "' >Click here proceed to home page</a>"
-  If Request.QueryString("pw") <> gDeletePassword Then
+  ' Expecting delVerified=1 for deletion confirmation
-   Response.Write( "Authorization to delete failed. Try adding &pw=" & gDeletePassword & sh)
+  Response.Write("<center><h2>Page Deletion</h2></center><hr>")
-   Response.End
+  Response.Write("<center>")
-  End If
-  topic = Request.QueryString("o") ' Topic to delete
+  If Request.QueryString("delVerified") <> 1  Then
-  If IsNull(topic) or topic = "" Then
+    if gHideLogin Then
-   Response.Write( "Specify page name to delete i.e.  &o=MyPage" & sh)
+        Response.Write("The page --> <b>" &  glsTopic & "</b> <--- Cannot be created on this Server")
-   Response.End
+    ElseIf NOT gEnableEdit Then
+        Response.Write("The page --> <b>" &  glsTopic & "</b> <--- Cannot be deleted until you enable editing")
-  End If
+    Else
-  Dim stmnt
-  stmnt = "delete from WikiData where Title='" & topic & "'"
+        Response.Write("<br><br><span style='border: solid 5px red; padding: 10px;display:inline-block'>")
-  Set gDataConn = Server.CreateObject("ADODB.Connection")
+        response.write("Deletion of the page --> <b>" &  glsTopic & "</b>  <--- is cannot be undone")
-  on error resume next
+        response.write("<br>Are your sure that you wish to continue!")
-  gDataConn.Open ConnStr(1)
+        response.write( "<br><br><a href='" & gScriptURL & "&a=del&delVerified=1&o=" & glsTopic & "'><button style='color:red'>Delete this page.</button></a>" )
-  on error goto 0
-  on error resume next
+        response.write( "&nbsp;&nbsp;<a href='" & gScriptURL & "'><button>No,  don't delete it.</button></a>" )
-  gDataConn.execute(stmnt)
+        response.write( "</span>" )
-  on error goto 0
+    End If
-  If  gDataConn.errors.count = 0 then
-    Response.Write( "<b>" & topic & " </b> was successfully deleted. " )
   Else
+      Dim topic
+      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)
+        Response.End
+      End If
+      Dim stmnt
+      stmnt = "delete from WikiData where Title='" & topic & "'"
+      Set gDataConn = Server.CreateObject("ADODB.Connection")
+      on error resume next
+      gDataConn.Open ConnStr(1)
+      on error goto 0
+      on error resume next
+      gDataConn.execute(stmnt)
+      on error goto 0
+      If  gDataConn.errors.count = 0 then
+        Response.Write( "<b>" & topic & " </b> was successfully deleted. " )
+      Else
-    Response.Write( "<b>" & topic & " </b>  was not deleted due to some errors. " )
+        Response.Write( "<b>" & topic & " </b>  was not deleted due to some errors. " )
-  End if
+      End if
-  Set gDataConn = nothing
+      Set gDataConn = nothing
-  Response.write  sh
+      Response.write  sh
+    End If
+    Response.Write("</center>")
-  Response.End
+    Response.End
 end sub
 'ElreyRonald 4/2004
 sub handleRss
       end if
       Dim deleteColumn
       deleteColumn = ""
-      ' gDelete is only passed on querystring
+      ' Allow bulk deletion
-      If Request.QueryString("pw") = gDeletePassword  Then
+      If (gBulkDelete)  Then
-          deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&pw=" & gDeletePassword   & """> del </td>"
+          deleteColumn = "<td class='tabular'><a href=""" & gScriptURL & "&o=" & rs("Title")&"&a=del&delVerified=1" & """>[Delete Page]</td>"
       End If
       if rs("Title") <> "RegisteredUsers" then
         Response.Write("<td class='tabular'>" & i & ".</td><td class='tabular'><a href=""" &_
             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='" & 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'>PM Dev Notes</a>"
+            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScript & "?db=ImplementationNotes'>"& gDevNotePrefix &" Dev Notes</a>"
             if gEnableEdit Then
-                bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=logout&o=" & search & "'>Log out</a>"
+                bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=logout&o=" & search & "'>Disable Editing</a>"
             Else
-                bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=login&o=" & search & "'>Log in</a>"
+                bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=login&o=" & search & "'>Enable Editing</a>"
             End If
          End If
          bannerPart =  bannerPart &  "<hr>"
          bannerPart =  bannerPart &  " <table class='cssBannerTable' id='idBannerTable' cellSpacing='0' cellPadding='0' border='0'>"
   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")
     ElseIf NOT gEnableEdit Then
-        Response.Write("The page --> <b>" &  glsTopic & "</b> <--- Does not exit and it cannot be created until you log in")
+        Response.Write("The page --> <b>" &  glsTopic & "</b> <--- Does not exit and it cannot be created until you enable editing")
     Else
+        Response.Write("<br><br><span style='border: solid 2px black; padding: 10px;display:inline-block'>")
-        response.write("Sorry! The page --> <b>" &  glsTopic & "</b>  <--- is not existing or it is a page that must be created </h4>")
+        response.write("The page --> <b>" &  glsTopic & "</b>  <--- does not exist.")
-        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 & "&a=edit&o=" & glsTopic & "'><button style='color:red'>Create this page.</button></a>" )
-        response.write( "<br><br><a href='" & gScriptURL & "'>No,  don't create it.</a>" )
+        response.write("&nbsp;&nbsp;<a href='" & gScriptURL & "'><button>Don't create page.</button></a>" )
+        Response.Write("</span>")
     End If
         Response.Write("</center>")
   else
       EmitDebug 51, 3, "found...(" & rs("PageData") & ")<br/>" & vbcrlf
   Else
     handleRss
   End If
   response.End
 end if
-'Intercept delete request here
-if ( glsMode = "del") then
-  handleDelete
-  response.End
-end if
 '********************************************************************
 '*********************************************************************
 '<?xml version="1.0" encoding="UTF-8" ?>
 '<!DOCTYPE html
         gDataConn.errors(0).description & ")<br/>" & vbcrlf
       VerifyWikiTable
     end if
       end if
-      select case (glsMode)
+    select case (glsMode)
-    case "edit"    handleEdit
+        case "edit"    handleEdit
-    case "list"    handleList
+        case "list"    handleList
-    case "search"  handleSearch
+        case "search"  handleSearch
-    case "create"  handleCreate
+        case "create"  handleCreate
-    case "save"    handleSave
+        case "save"    handleSave
-    case "browse"  handleBrowse
+        case "browse"  handleBrowse
-    case "logout"  handleLogout
+        case "logout"  handleLogout
-    case "login"   handleLogin
+        case "login"   handleLogin
+        case "del"     handleDelete
-    case else
+        case else
-      end select
+    end select
-      EmitDebug 56, 2, "<br/>done...<br/>" & vbcrlf
+    EmitDebug 56, 2, "<br/>done...<br/>" & vbcrlf
-      gDataConn.Close()
+    gDataConn.Close()
-      set gDataConn = nothing
+    set gDataConn = nothing
     %>
 <% Response.Write(gFooterHtml) %>
 <% Response.Flush  %>

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/trunk/WikiAsp/Wiki.Asp @ 4051 – Rev 4014 → 4051