dcovington
/
tracking_kits
1
0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Aktivita
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
109 Revize
1 Větev
155MB
Strom: 134b180878
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „134b180878“
${ noResults }
tracking_kits/App/Controllers/Kit/KitController.asp

412 řádky
17KB
Surový Blame Historie 

  1. <% Option Explicit %>

  2. <!--#include file="../../include_all.asp"-->

  3. <!--#include file="../../ViewModels/KitViewModels.asp"-->

  4. <%

  5. Class KitController

  6. 	Public Model

  7. 	Public Sub SwitchBoardIndex

  8. 

  9. 		dim page_size : page_size = 10

  10. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  11. 		dim page_count, record_count

  12. 		set Model                   = new PagedIndex_ViewModel_Class

  13. 		Model.Title                 = "Tracking Kits"

  14. 		set Model.Kit          		= KitRepository.PagedIndexView(page_size, page_num, page_count, record_count)

  15. 		Model.CurrentPageNumber     = page_num

  16. 		Model.PageSize              = page_size

  17. 		Model.PageCount             = page_count

  18. 		Model.RecordCount           = record_count

  19. 		%> <!--#include file="../../Views/Kit/SwitchBoardIndex.asp"--> <%

  20. 	End Sub

  21. 	

  22. 	Public Sub SwitchBoardPurpleEnvelopsIndex

  23. 

  24. 		dim page_size : page_size = 10

  25. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  26. 		dim page_count, record_count

  27. 		set Model                   = new SwitchBoard_PurpleEnvelopesViewModel_Class

  28. 		Model.Title                 = "Purple Envelope Kits"

  29. 		set Model.Kit          		= KitRepository.PagedPurpleEnvelopsIndexView(page_size, page_num, page_count, record_count)

  30. 		Model.CurrentPageNumber     = page_num

  31. 		Model.PageSize              = page_size

  32. 		Model.PageCount             = page_count

  33. 		Model.RecordCount           = record_count

  34. 		%> <!--#include file="../../Views/Kit/SwitchBoardPurpleEnvelopeIndex.asp"--> <%

  35. 	End Sub

  36. 

  37. 		Public Sub SwitchBoardPurpleEnvelopeEditPost

  38. 		MVC.RequirePost

  39. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "KitEditForm", Request.Form("nonce"), "Edit", Array("Id", Request.Form("Id"))

  40. 		dim ID : ID = Request.Form("Id")

  41. 		dim model : set model = KitRepository.FindByID(ID)

  42. 		set model = Automapper.AutoMap(Request.Form, model)

  43. 		if Request.Form("InBoundTracking") = "on" Then

  44. 		model.InboundSTID = SettingsRepository.FindByName("Inbound STID") 

  45. 		end if

  46. 

  47. 

  48. 		model.Status = "Ready to Assign Labels"

  49. 		'model.Validate

  50. 		'If model.Validator.HasErrors then

  51. 			FormCache.SerializeForm "EditKit", Request.Form

  52. 		'	Flash.Errors = model.Validator.Errors

  53. 		'	MVC.RedirectToActionExt "Edit", Array("Id",ID)

  54. 		'Else

  55. 			KitRepository.Update model

  56. 			FormCache.ClearForm "EditKit"

  57. 			Flash.Success = "Kit updated."

  58. 			MVC.RedirectToAction "Index"

  59. 		'End If

  60. 	End Sub

  61. 

  62. 	Public Sub AssignKitColorPost

  63. 		MVC.RequirePost

  64. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "ColorAssignForm", Request.Form("nonce"), "SwitchBoardPurpleEnvelopeEdit", Array("Id", Request.Form("Id"))

  65. 		dim ID : ID = Request.Form("Id")

  66. 

  67. 		If Len(Request.Form("KitColorId")) > 0 AND Request.Form("KitColorId") <> "" Then

  68. 			InkjetRecordsRepository.UpdateColorForKit CLng(ID), CLng(Request.Form("KitColorId"))

  69. 		End If

  70. 

  71. 		Flash.Success = "Color applied to all labels in kit."

  72. 		MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", ID)

  73. 	End Sub

  74. 

  75. 	Public Sub AssignPrecinctColorsPost

  76. 		MVC.RequirePost

  77. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "ColorAssignForm", Request.Form("nonce"), "SwitchBoardPurpleEnvelopeEdit", Array("Id", Request.Form("Id"))

  78. 		dim ID : ID = Request.Form("Id")

  79. 

  80. 		dim key

  81. 		For Each key In Request.Form

  82. 			If Left(key, 14) = "PrecinctColor_" Then

  83. 				dim precinct : precinct = Mid(key, 15)

  84. 				dim colorId : colorId = Request.Form(key)

  85. 				If Len(colorId) > 0 AND colorId <> "" Then

  86. 					InkjetRecordsRepository.UpdateColorForPrecinct CLng(ID), precinct, CLng(colorId)

  87. 				End If

  88. 			End If

  89. 		Next

  90. 

  91. 		Flash.Success = "Precinct colors saved."

  92. 		MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", ID)

  93. 	End Sub

  94. 

  95. 	Public Sub SwitchBoardPurpleEnvelopeEdit

  96. 

  97. 		dim id : id = Request.QueryString("Id")

  98. 		set Model = new SwitchBoard_ViewModel_Class

  99. 		set Model.Kit = KitRepository.SwitchBoardPurpleEnvelopeEditFindById(id)

  100. 		set Model.Labels = InkjetRecordsRepository.Find(Array("KitId =?",id),empty)

  101. 		set Model.StidDropDown = SettingsRepository.GetStidDropDownRS()

  102. 		set Model.ColorsDropDown = ColorsRepository.GetColorsDropDownRS()

  103. 		set Model.Precincts = InkjetRecordsRepository.GetDistinctPrecinctsByKitId(id)

  104. 		Model.Title = "Purple Envelopes for "

  105. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  106. 		HTMLSecurity.SetAntiCSRFToken "ColorAssignForm"

  107. 		%> <!--#include file="../../Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp"--> <%

  108. 	End Sub

  109. 

  110. 	Public Sub Index

  111. 

  112. 		dim page_size : page_size = 10

  113. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  114. 		dim page_count, record_count

  115. 		set Model                   = new PagedIndex_ViewModel_Class

  116. 		Model.Title                 = "Tracking Kits"

  117. 		set Model.Kit          		= KitRepository.FindPaged(empty, "ID", page_size, page_num, page_count, record_count)

  118. 		Model.CurrentPageNumber     = page_num

  119. 		Model.PageSize              = page_size

  120. 		Model.PageCount             = page_count

  121. 		Model.RecordCount           = record_count

  122. 		%> <!--#include file="../../Views/Kit/Index.asp"--> <%

  123. 

  124. 	End Sub

  125. 	Public Sub Search

  126. 

  127.     	dim searchValue:searchValue = Choice(Request.Form.Count = 0,Request.QueryString("q"),Request.Form("q"))

  128. 		dim page_size : page_size = 10

  129. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  130. 		dim page_count, record_count

  131. 		set Model                   = new PagedIndex_ViewModel_Class

  132. 		Model.Title                 = "Kit"

  133. 		set Model.Kit          = KitRepository.SearchTablePaged(Array("ID","%" & searchValue & "%","JobNumber","%" & searchValue & "%","Jcode","%" & searchValue & "%"),"ID", page_size, page_num, page_count, record_count)

  134. 		Model.CurrentPageNumber     = page_num

  135. 		Model.PageSize              = page_size

  136. 		Model.PageCount             = page_count

  137. 		Model.RecordCount           = record_count

  138. 		%> <!--#include file="../../Views/Kit/Index.asp"--> <%

  139. 

  140. 	End Sub

  141. 

  142. 	Public Sub SwitchBoardEdit

  143. 		Flash.ShowSuccessIfPresent

  144. 		dim id : id = Request.QueryString("Id")

  145. 		

  146. 		set Model = new SwitchBoard_ViewModel_Class

  147. 		set Model.Kit = KitRepository.SwitchBoardEditFindById(id)

  148. 		set Model.Labels = KitLabelsRepository.Find(Array("KitId =?",id),empty)

  149. 		Model.Title = "Kit for "

  150. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  151. 		%> <!--#include file="../../Views/Kit/SwitchBoardEdit.asp"--> <%

  152. 	End Sub

  153. 	Public Sub ExportTrackingLabels(id)

  154. 		dim KitInfo : Set KitInfo = KitRepository.FindByID(id)

  155. 		dim JurisdictionInfo : Set JurisdictionInfo = JurisdictionRepository.FindByJCode(KitInfo.Jcode)

  156. 				ReportManager.Filename =  Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\Label_Report.rep"

  157. 			if dev = true Then

  158. 

  159. 				ReportManager.SetDatabaseConnectionString "TRACKINGKITLABELS","Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\webdata - Copy.mdb;"

  160. 

  161. 			else

  162. 

  163. 				ReportManager.SetDatabaseConnectionString "TRACKINGKITLABELS","Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=C:\inetpub\Data\webdata - Copy.mdb;"

  164. 

  165. 			End If

  166. 		ReportManager.Preview = false

  167. 		ReportManager.ShowProgress = false

  168. 		ReportManager.ShowPrintDialog = false

  169. 		

  170. 		ReportManager.SetParamValue "PBKITID", CInt(id)

  171. 		if FSO.FolderExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name) = False then

  172. 		

  173. 			FSO.CreateFolder(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name)

  174. 		end if

  175. 

  176. 

  177. 		if FSO.FileExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf") then

  178. 			FSO.DeleteFile(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf")

  179. 		end if

  180. 		ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & " Labels.pdf",1

  181. 		FSO.MoveFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & " Labels.pdf" , ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf"

  182. 		

  183. 	End Sub

  184. 

  185. 	Public Sub ExportSnailWorksTracking(id)

  186. 			dim KitInfo : Set KitInfo = KitRepository.FindByID(id)

  187. 		dim JurisdictionInfo : Set JurisdictionInfo = JurisdictionRepository.FindByJCode(KitInfo.Jcode)

  188. 				if FSO.FolderExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name) = False then

  189. 		

  190. 			FSO.CreateFolder(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name)

  191. 		end if

  192. 

  193. 

  194. 		if FSO.FileExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_SW_EXPORT.csv") then

  195. 			FSO.DeleteFile(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_SW_EXPORT.csv")

  196. 		end if

  197. 		dim export: set export = SnailWorksRepository.GetSnailWorksExportById(id)

  198. 		

  199. 		if export.DetailRecords.Count > 0 Then

  200. 			dim objExportFile: Set objExportFile = FSO.CreateTextFile(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_SW_EXPORT.csv",2)

  201. 			With objExportFile

  202. 				.Write """" & export.Header.RecordType & ""","

  203. 				.Write """" & export.Header.Version	 & ""","									

  204. 				.Write """" & export.Header.UserId			 & ""","					

  205. 				.Write """" & export.Header.ClientName	 & ""","

  206. 				.Write """" & export.Header.ParentClientName & ""","												

  207. 				.Write """" & export.Header.JobName				 & ""","							

  208. 				.Write """" & export.Header.JobDescription				 & ""","									

  209. 				.Write """" & export.Header.SplitName						 & ""","						

  210. 				.Write """" & export.Header.SplitDescription & ""","

  211. 				.Write """" & export.Header.PieceType				 & ""","								

  212. 				.Write """" & export.Header.MailDate					 & ""","							

  213. 				.Write """" & export.Header.UploadType						 & ""","							

  214. 				.Write """" & export.Header.TrackedQuanity						 & ""","						

  215. 				.Write """" & export.Header.PiecesMailed							 & ""","				

  216. 				.Write """" & export.Header.TargetInHomeDateStart						 & ""","				

  217. 				.Write """" & export.Header.TargetInHomeDateEnd							 & ""","					

  218. 				.Write """" & export.Header.ConfirmationEmail									 & ""","				

  219. 				.Write """" & export.Header.JobId	 & ""","

  220. 				.Write """" & export.Header.SplitId	 & ""","											

  221. 				.Write """" & export.Header.TypeOfTracking	 & ""","												

  222. 				.Write """" & export.Header.ReturnedPostalRoutingCode	 & ""","											

  223. 				.Write """" & export.Header.ReportId1						 & ""","						

  224. 				.Write """" & export.Header.Report1Email						 & ""","					

  225. 				.Write """" & export.Header.ReportId2 & ""","

  226. 				.Write """" & export.Header.Report2Email  & ""","

  227. 				.Write """" & export.Header.INFOONLY & """"

  228. 				.Write  vbCrLf													

  229. 			dim it:set it = export.DetailRecords.Iterator

  230. 			dim records

  231. 				while it.HasNext

  232. 					set records = it.GetNext()

  233. 					.Write """" & records.RecordType & """," 

  234. 					.Write """" & records.CustomerUniqueIdentifier & """," 

  235. 					.Write """" & records.IMB & """," 

  236. 					.Write """" & records.Greeting & """," 

  237. 					.Write """" & records.FirstName & """," 

  238. 					.Write """" & records.MI & """," 

  239. 					.Write """" & records.LastName & """," 

  240. 					.Write """" & records.Suffix & """," 

  241. 					.Write """" & records.FullName & """," 

  242. 					.Write """" & records.Company & """," 

  243. 					.Write """" & records.Title & """," 

  244. 					.Write """" & records.Address1 & """," 

  245. 					.Write """" & records.Address2 & """," 

  246. 					.Write """" & records.City & """," 

  247. 					.Write """" & records.State & """," 

  248. 					.Write """" & records.Zip & """," 

  249. 					.Write """" & records.UserDefined1 & """," 

  250. 					.Write """" & records.UserDefined2 & """," 

  251. 					.Write """" & records.UserDefined3 & """," 

  252. 					.Write """" & records.UserDefinedIdentifier4 & """," 

  253. 					.Write """" & records.UserDefinedIdentifier5 & """," 

  254. 					.Write """" & records.SeedIndicator & """," 

  255. 					.Write """" & records.InductionPoint & """," 

  256. 					.Write """" & records.InductionDate & """," 

  257. 					.Write """" & records.InBoundIMB & """," 

  258. 					.Write """" & records.IMCB & """," 

  259. 					.Write """" & records.IMTB & """" & vbCRLF

  260. 				Wend

  261. 			End With

  262. 		End If

  263. 

  264. 

  265. 	End Sub

  266. 

  267. 

  268. 	Public Sub Edit

  269. 

  270. 		dim id : id = Request.QueryString("Id")

  271. 		set Model = new Edit_ViewModel_Class

  272. 		set Model.Kit = KitRepository.FindByID(id)

  273. 		Model.Title = "Edit Kit"

  274. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  275. 		%> <!--#include file="../../Views/Kit/Edit.asp"--> <%

  276. 		Flash.Success = "Kit  Updated."

  277. 	End Sub

  278. 

  279. 	Public Sub EditPost

  280. 		MVC.RequirePost

  281. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "KitEditForm", Request.Form("nonce"), "Edit", Array("Id", Request.Form("Id"))

  282. 		dim ID : ID = Request.Form("Id")

  283. 		dim model : set model = KitRepository.FindByID(ID)

  284. 		set model = Automapper.AutoMap(Request.Form, model)

  285. 		'model.Validate

  286. 		'If model.Validator.HasErrors then

  287. 			FormCache.SerializeForm "EditKit", Request.Form

  288. 		'	Flash.Errors = model.Validator.Errors

  289. 		'	MVC.RedirectToActionExt "Edit", Array("Id",ID)

  290. 		'Else

  291. 			KitRepository.Update model

  292. 			FormCache.ClearForm "EditKit"

  293. 			Flash.Success = "Kit updated."

  294. 			MVC.RedirectToAction "Index"

  295. 		'End If

  296. 	End Sub

  297. 	Public Sub CreateTrackingKit

  298. 

  299. 		dim form_params : set form_params = FormCache.DeserializeForm("NewKit")

  300. 

  301. 		dim ID : ID = Request.QueryString("Id")

  302. 		dim model : set model = new Create_ViewModel_Class

  303. 		model.Title = "Create Kit "

  304. 		model.JCode = ID

  305. 		dim ugh : set ugh =  JurisdictionRepository.Find(Array("[JCode] = ?",ID),empty)

  306. 		set model.Jurisdiction = ugh.pop()

  307. 

  308. 		'If Not form_params Is Nothing then

  309. 		'	set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)

  310. 		'Else

  311. 		'	set Model = new Create_ViewModel_Class

  312. 		'End If

  313. 

  314.   		HTMLSecurity.SetAntiCSRFToken "KitCreateForm"

  315. 

  316. 		%> <!--#include file="../../Views/Kit/CreateTrackingKit.asp"--> <%

  317. 	End Sub

  318. 	Public Sub Create

  319. 

  320. 		dim form_params : set form_params = FormCache.DeserializeForm("NewKit")

  321. 

  322. 		dim ID : ID = Request.QueryString("Id")

  323. 		dim model : set model = new Create_ViewModel_Class

  324. 		model.Title = "Create Kit "

  325. 		model.JCode = ID

  326. 		dim ugh : set ugh =  JurisdictionRepository.Find(Array("[JCode] = ?",ID),empty)

  327. 		set model.Jurisdiction = ugh.pop()

  328. 

  329. 		'If Not form_params Is Nothing then

  330. 		'	set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)

  331. 		'Else

  332. 		'	set Model = new Create_ViewModel_Class

  333. 		'End If

  334.   		HTMLSecurity.SetAntiCSRFToken "KitCreateForm"

  335. 

  336. 		%> <!--#include file="../../Views/Kit/Create.asp"--> <%

  337. 	End Sub

  338. 

  339. 	Public Sub CreatePost

  340. 

  341. 		MVC.RequirePost

  342. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitCreateForm", Request.Form("nonce"), "Create"

  343. 

  344. 			dim new_Kit_model : set new_Kit_model = Automapper.AutoMap(Request.Form, new KitModel_Class)

  345. 

  346. 			'new_Kit_model.Validator.Validate

  347. 

  348. 			'If new_Kit_model.Validator.HasErrors then

  349. 			'	FormCache.SerializeForm "NewKit", Request.Form

  350. 			'	Flash.Errors = new_Kit_model.Validator.Errors

  351. 			'	MVC.RedirectToAction "Create"

  352. 			'Else

  353. 			

  354. 				KitRepository.AddNew new_Kit_model

  355. 				KitLabelsRepository.BulkAdd new_Kit_model.ID,Request.Form("Amount")

  356. 			'	FormCache.ClearForm "NewKit"

  357. 				ExportTrackingLabels(new_Kit_model.ID)

  358. 				ExportSnailWorksTracking(new_Kit_model.ID)

  359. 				Flash.Success = "Kit added."

  360. 				MVC.RedirectToAction "Index"

  361. 			'End If

  362. 	End Sub

  363. 

  364. 		Public Sub CreateTrackingKitPost

  365. 

  366. 		MVC.RequirePost

  367. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitCreateForm", Request.Form("nonce"), "Create"

  368. 

  369. 			dim new_Kit_model : set new_Kit_model = Automapper.AutoMap(Request.Form, new KitModel_Class)

  370. 

  371. 			'new_Kit_model.Validator.Validate

  372. 

  373. 			'If new_Kit_model.Validator.HasErrors then

  374. 			'	FormCache.SerializeForm "NewKit", Request.Form

  375. 			'	Flash.Errors = new_Kit_model.Validator.Errors

  376. 			'	MVC.RedirectToAction "Create"

  377. 			'Else

  378. 			

  379. 				KitRepository.AddNew new_Kit_model

  380. 				KitLabelsRepository.BulkAdd new_Kit_model.ID,Request.Form("Amount")

  381. 			'	FormCache.ClearForm "NewKit"

  382. 				Flash.Success = "Kit added."

  383. 				MVC.RedirectToAction "Index"

  384. 			'End If

  385. 	End Sub

  386. 

  387. 	Public Sub Delete

  388. 		dim id : id = Request.QueryString("Id")

  389. 		set Model = new Delete_ViewModel_Class

  390. 		set Model.Kit = KitRepository.FindByID(id)

  391. 			Model.Title = "Delete Kit"

  392. 

  393. 		HTMLSecurity.SetAntiCSRFToken "KitDeleteForm"

  394. 

  395. 		%> <!--#include file="../../Views/Kit/Delete.asp"--> <%

  396. 	End Sub

  397. 

  398. 	Public Sub DeletePost

  399. 			MVC.RequirePost

  400. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitDeleteForm", Request.Form("nonce"), "Create"

  401. 

  402. 			dim id : id = Request.Form("Id")

  403. 			KitRepository.Delete id

  404. 

  405. 			Flash.Success = "Kit deleted."

  406. 			MVC.RedirectToAction "Index"

  407. 	End Sub

  408. 

  409. End Class

  410. MVC.Dispatch

  411. %>

Powered by TurnKey Linux.