Configure Web Subscription Settings

<%@ LANGUAGE="VBSCRIPT" %> Configure Web Subscription Settings <% ' localizable strings L_FromErrStr_TEXT = "You must enter a valid From Address to use the Web Subscription feature." L_ServErrStr_TEXT = "You must enter a valid Mail server (without spaces) to use the Web Subscription feature." L_ReplyToErrStr_TEXT = "You must enter a valid Reply-To Address to use the Web Subscription feature." L_ImmedPosErrStr_TEXT = "You must enter a number between 1 and 60 for Immediate Notifications." L_HoursErrStr_TEXT = "You must enter an hour value between 1 and 12 for Daily Notifications." L_Hours24ErrStr_TEXT = "You must enter an hour value between 0 and 23 for Daily Notifications." L_MinErrStr_TEXT = "You must enter a minute value between 0 and 59 for Daily Notifications." L_WeekHourErrStr_TEXT = "You must enter an hour value between 1 and 12 for Weekly Notifications." L_WeekHour24ErrStr_TEXT = "You must enter an hour value between 0 and 23 for Weekly Notifications." L_WeekMinErrStr_TEXT = "You must enter a minute value between 0 and 59 for Weekly Notifications." L_WebSubErrStr_TEXT = "ERROR: The Web Subscription feature has NOT been set." L_WebSubOnStr_TEXT = "Web Subscriptions are now on." L_WebSubOffStr_TEXT = "Web Subscriptions are now off." L_AllowFolderErrStr_TEXT = "ERROR: Allowing Folder-level Web Subscriptions has NOT been set." L_AllowFolderOnStr_TEXT = "Folder-level Web Subscriptions are now on." L_AllowFolderOffStr_TEXT = "Folder-level Web Subscriptions are now off." L_MailSetErrStr_TEXT = "ERROR: The Mail Server setting has NOT been changed." L_MailSetStr_TEXT = "Mail Server has been set to " L_SenderErrStr_TEXT = "ERROR: The Sender (From) Address setting has NOT been changed." L_SenderSetStr_TEXT = "Sender (From) Address has been set to " L_ContactErrStr_TEXT = "ERROR: The Contact (Reply-to) Address setting has NOT been changed." L_ContactSetStr_TEXT = "Contact (Reply-to) Address has been set to " L_ImmedErrStr_TEXT = "ERROR: The Immediate notification setting has NOT been changed." L_ImmedBeginStr_TEXT = "Immediate notifications now set to " L_ImmedEndStr_TEXT = " minutes.
" L_DailyErrStr_TEXT = "ERROR: The Daily notification setting has NOT been changed." L_DailyStr_TEXT = "Daily notifications now set to " L_WeeklyErrStr_TEXT = "ERROR: The Weekly notification setting has NOT been changed." L_WeeklyStr_TEXT = "Weekly notifications now set to " L_SundayStr_TEXT = "Sunday" L_MondayStr_TEXT = "Monday" L_TuesdayStr_TEXT = "Tuesday" L_WednesdayStr_TEXT = "Wednesday" L_ThursdayStr_TEXT = "Thursday" L_FridayStr_TEXT = "Friday" L_SaturdayStr_TEXT = "Saturday" L_TimerStopErrStr_TEXT = "ERROR: The Timer could not be stopped." L_StopErrorStr_TEXT = "Please restart the Timer manually to enable the notification changes.
" L_NoCngStr_TEXT = "No changes have been made." L_TimerStartErrStr_TEXT = "ERROR: The Timer could not be restarted. You must reboot the machine for your changes to take effect." L_NoSettingChgStr_TEXT = "No changes were made to Web Subscription Settings." ' switch this variable to "TRUE" for 24hour clock behavior (for localization use only) L_24HrClock_TEXT = "FALSE" dim serv,adminmail,sendmail,mailserv dim hours,minutes,pm,daynum,expire,user,datetype Set serv = Server.CreateObject("OWS.MiscApis.1") mailserv = serv.getattribute(11) sendmail = serv.getattribute(9) contactmail = serv.getattribute(10) %>
Configure Web Subscription Settings

<% if Request.Form("Submitted") = "" then %>

" method=post name="frm" onSubmit="return ChkRequiredFields();">
Web Subscriptions
Web Subscriptions are: checked <% end if %>> On checked <% end if %>> Off
If you turn Web Subscriptions on, users can subscribe to receive update email when the documents they are interested in are modified in particular ways. This feature requires an SMTP mail server.

Mail will be sent using:

SMTP Mail Server:

From Address:

Reply-To Address:

SMTP Mail Server is the name of the mail server used to originate update email. From is the address that update email will appear to be from. Reply-to Address is the address where replies to update email will be sent.

Allow Web Subscriptions to:
checked <%end if%>> Folders and Documents
checked <%end if%>> Documents only

A Web Subscription to a folder means that changes on any documents within the folder will trigger update email. Allowing folder subscriptions may compromise security. Click the Help button above for more information.

Times to Send Document Change Notifications
Use this to specify when change notifications are sent.
<% pm = "" minutes = serv.getattribute(5) ' if no setting, set default to 1AM if minutes = 0 and L_24HrClock_TEXT <> "TRUE" then minutes = 60 if minutes >= 720 and L_24HrClock_TEXT <> "TRUE" then minutes = minutes - 720 pm = "TRUE" end if hours = minutes \ 60 minutes = minutes - (hours * 60) if hours = 0 and L_24HrClock_TEXT <> "TRUE" then hours = 12 if hours < 10 and L_24HrClock_TEXT = "TRUE" then hours = "0" & CStr(hours) if minutes < 10 then minutes = "0" & CStr(minutes) %>

The server will send:

Immediate notifications every: minutes

Daily notifications at: : <% if L_24HrClock_TEXT <> "TRUE" then %> <% end if %>

Weekly notifications on: <% pm = "" minutes = serv.GetAttribute(6) daynum = minutes \ (24*60) minutes = minutes - (daynum *24*60) if minutes >= 720 and L_24HrClock_TEXT <> "TRUE" then minutes = minutes - 720 pm = "TRUE" end if hours = minutes \ 60 minutes = minutes - (hours * 60) if hours = 0 and L_24HrClock_TEXT <> "TRUE" then hours = 12 if hours < 10 and L_24HrClock_TEXT = "TRUE" then hours = "0" & CStr(hours) if minutes < 10 then minutes = "0" & CStr(minutes) %>

at : <% if L_24HrClock_TEXT <> "TRUE" then %> <% end if %>

Connected to: <%=Request.ServerVariables("SERVER_NAME")%>

<% else %> The following settings were changed:
<% nochange = TRUE on error resume next ErrCode = StopTimer() if ErrCode <> 0 then response.write L_StopErrorStr_TEXT Err.Clear if Request.Form("rdNotiEn") = "on" then ' turn on notification feature if it's off if serv.getattribute(1) = 0 then SetEnableNotifications TRUE nochange = FALSE end if if Request.Form("rdFolderSub") = "on" then if serv.getattribute(7) = 0 then SetAllowFolderSubscriptions TRUE nochange = FALSE end if else if serv.getattribute(7) = 1 then SetAllowFolderSubscriptions FALSE nochange = FALSE end if end if if serv.getattribute(11) <> Request.Form("txtMServ") then SetMailServer Request.Form("txtMServ") nochange = FALSE end if if serv.getattribute(9) <> Request.Form("txtSendM") then SetSenderAddress Request.Form("txtSendM") nochange = FALSE end if if serv.getattribute(10) <> Request.Form("txtContactM") then SetContactAddress Request.Form("txtContactM") nochange = FALSE end if if serv.getattribute(4) <> CInt(Request.Form("txtTime")) then SetImmedTimeout Request.Form("txtTime") nochange = FALSE end if if L_24HrClock_TEXT = "TRUE" then minutes = (Request.Form("txtHours") Mod 24) * 60 + Request.Form("txtMin") elseif Request.Form("daytimeType") = "AM" then minutes = (Request.Form("txtHours") Mod 12) * 60 + Request.Form("txtMin") else ' PM Case minutes = (Request.Form("txtHours") Mod 12) * 60 + 720 + Request.Form("txtMin") end if if serv.getattribute(5) <> minutes then SetDailyTimeout minutes nochange = FALSE end if if L_24HrClock_TEXT = "TRUE" then minutes = CLng(Request.Form("weekdayType") * 24 * 60) + CLng(((Request.Form("txtWeekHour") Mod 24) * 60)) + CLng(Request.Form("txtWeekMin")) elseif Request.Form("weektimeType") = "AM" then minutes = CLng(Request.Form("weekdayType") * 24 * 60) + CLng(((Request.Form("txtWeekHour") Mod 12) * 60)) + CLng(Request.Form("txtWeekMin")) else minutes = CLng(Request.Form("weekdayType") * 24 * 60) + CLng(720 + ((Request.Form("txtWeekHour") Mod 12) * 60)) + CLng(Request.Form("txtWeekMin")) end if if serv.getattribute(6) <> minutes then SetWeeklyTimeout minutes nochange = FALSE end if else if serv.getattribute(1) = 1 then SetEnableNotifications FALSE nochange = FALSE end if end if if nochange = TRUE then response.write "
" & L_NoSettingChgStr_TEXT & "" end if %>
To make further changes, click on the "Change Settings" button.
<% StartTimer %>
" method=post name="frm">
<% end if ' form submitted %>