Subversion Repositories DevTools

Rev

Rev 1442 | Rev 1465 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1442 Rev 1452
Line 121... Line 121...
121 
    gDataSourceName = request("dbname")
 121 
    gDataSourceName = request("dbname")
122 
Else
 122 
Else
123 
    gDataSourceName = "DefaultDb"
 123 
    gDataSourceName = "DefaultDb"
124 
End If
 124 
End If
125 
 
 125 
 
126 
If not IsEmpty( request(gLoginFlag))  Then
 126 
' Can only Edit on the Test / Development System not on the Live System
127 
    Session(gLoginFlag) = "1"
 - 
 
128 
End If
 - 
 
129 
If Not IsEmpty( Session(gLoginFlag)) Then
 127 
If (Not IsEmpty(Application("TestSystem"))) Then
130 
    gHideLogin = false  'via URL you can force a login ability in case the config turned if off ( just add &a=log )
 128 
    gHideLogin = false
131 
    gHideWikiFooter = false
 129 
    gHideWikiFooter = false
132 
End If
 130 
End If
133 
 
 131 
 
134 
'set destination URL
 132 
'set destination URL
135 
gScriptURL    = gScript & "?db=" & gDataSourceFile  ' removed & "&dbname=" & server.urlencode(gDataSourceName)
 133 
gScriptURL    = gScript & "?db=" & gDataSourceFile  ' removed & "&dbname=" & server.urlencode(gDataSourceName)
Line 1428... Line 1426...
1428 
    Response.Redirect(url)
 1426 
    Response.Redirect(url)
1429 
end sub
 1427 
end sub
1430 
 
 1428 
 
1431 
sub handleEdit
 1429 
sub handleEdit
1432 
    If gHideLogin Then
 1430 
    If gHideLogin Then
- 
 
 1431 
        Response.Write("<br/><br/><br/><br/><br/><center><h2>Editing is not allowed</h2></center>")
- 
 
 1432 
        Response.End
1433 
        exit sub
 1433 
        exit sub
1434 
    End If
 1434 
    End If
1435 
 
 1435 
 
1436 
    Dim readonlyflag, disableflag
 1436 
    Dim readonlyflag, disableflag
1437 
    readonlyflag = ""
 1437 
    readonlyflag = ""
Line 2080... Line 2080...
2080
2080
2081 
      If gBannerTemplate = "" Then
 2081 
      If gBannerTemplate = "" Then
2082 
         bannerPart = ""
 2082 
         bannerPart = ""
2083 
         bannerPart =  bannerPart &  "<a href='" & gScriptURL & "'>Wiki Home</a>"
 2083 
         bannerPart =  bannerPart &  "<a href='" & gScriptURL & "'>Wiki Home</a>"
2084 
         bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=list&o=ByTitle' title='this may take a loooong time'>List all pages</a>"
 2084 
         bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=list&o=ByTitle' title='this may take a loooong time'>List all pages</a>"
- 
 
 2085 
         if ( Not IsEmpty(Application("TestSystem"))  ) Then
- 
 
 2086 
            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<span style='color: #FF0000;font-weight: bold;'>Development Web Server</span>"
- 
 
 2087 
            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=list&o=recent'>Recent pages</a>"
- 
 
 2088 
            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=edit&o=" & rs("title") & "'>Edit page</a>"
- 
 
 2089 
            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&o=TextFormattingRules'>Text Formatting Rules</a>"
- 
 
 2090 
            bannerPart =  bannerPart &  "&nbsp;|&nbsp;<a href='" & gScriptURL & "&a=logout&o=" & rs("title") & "'>Log out</a>"
- 
 
 2091 
         End If
2085 
         bannerPart =  bannerPart &  "<hr>"
 2092 
         bannerPart =  bannerPart &  "<hr>"
2086
2093
2087 
         bannerPart =  bannerPart &  " <table class='cssBannerTable' id='idBannerTable' cellSpacing='0' cellPadding='0' border='0'>"
 2094 
         bannerPart =  bannerPart &  " <table class='cssBannerTable' id='idBannerTable' cellSpacing='0' cellPadding='0' border='0'>"
2088 
         bannerPart =  bannerPart &  "    </tr>"
 2095 
         bannerPart =  bannerPart &  "    </tr>"
2089 
         bannerPart =  bannerPart &  "    <tr class='cssBannerRow' id='idBannerRow'> "
 2096 
         bannerPart =  bannerPart &  "    <tr class='cssBannerRow' id='idBannerRow'> "
Line 2128... Line 2135...
2128 
          If Not gHideLastEditor Then
 2135 
          If Not gHideLastEditor Then
2129 
            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/>"
 2136 
            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/>"
2130 
          end if
 2137 
          end if
2131 
          response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
 2138 
          response.write "<font size=-1>Domain: " & gHttpDomain & "</font><br>"
2132 
 
 2139 
 
2133 
          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "
 2140 
'          response.write "<a href='" & gScriptURL & "' title='GO TO START PAGE'>Home</a> | "
2134 
          if  Not gHideLogin Then
 2141 
'          if  Not gHideLogin Then
2135 
            response.write "<a href='" & gScriptURL & "&a=edit&o=" & rs("title") & "'>Edit page</a> | "
 2142 
'            response.write "<a href='" & gScriptURL & "&a=edit&o=" & rs("title") & "'>Edit page</a> | "
2136 
          end if
 2143 
'          end if
2137 
          response.write "<a href='" & gScriptURL & "&a=logout&o=" & rs("title") & "'>Log out</a> | "
 2144 
'          response.write "<a href='" & gScriptURL & "&a=logout&o=" & rs("title") & "'>Log out</a> | "
2138 
          response.write "<a href='" & gScriptURL & "&a=list&o=ByTitle'>List pages</a> |  "
 2145 
'          response.write "<a href='" & gScriptURL & "&a=list&o=ByTitle'>List pages</a> |  "
2139 
          response.write "<a href='" & gScriptURL & "&a=list&o=recent'>Recent pages</a>"
 2146 
'          response.write "<a href='" & gScriptURL & "&a=list&o=recent'>Recent pages</a>"
2140 
          If gHttpDomain <> "" Then
 2147 
'          If gHttpDomain <> "" Then
2141 
            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>"
 2148 
'            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>"
2142 
          End If
 2149 
'          End If
2143
2150 
'
2144 
          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> "
 2151 
'          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> "
2145 
          response.write "</div>"
 2152 
          response.write "</div>"
2146 
      End If
 2153 
      End If
2147 
  end if
 2154 
  end if
2148 
 
 2155 
 
2149 
end sub
 2156 
end sub