Permalink
Browse files

0.7.2

Url Encode titles, folders, etc
  • Loading branch information...
jheizer committed Dec 4, 2015
1 parent 2436dd0 commit 47ac10a49641a2adb9b58888373c9fa6523e06f5
Binary file not shown.

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.30501.0
# Visual Studio 14
VisualStudioVersion = 14.0.23107.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "MobileMyth", "MobileMyth\", "{0BB60F7E-4758-4518-AE0D-922C478FD45C}"
ProjectSection(WebsiteProperties) = preProject
BIN +3 KB (100%) MobileMyth.v12.suo
Binary file not shown.
@@ -68,14 +68,16 @@ Public Class SiteSettings

End Get
Set(ByVal value As String)
Dim St As XElement = (From s In Data.Descendants(Name)
Select s).FirstOrDefault
If St Is Nothing Then
St = New XElement(Name)
Data.Add(St)
End If
St.Value = value
Data.Save(Path)
SyncLock (LockObj)
Dim St As XElement = (From s In Data.Descendants(Name)
Select s).FirstOrDefault
If St Is Nothing Then
St = New XElement(Name)
Data.Add(St)
End If
St.Value = value
Data.Save(Path)
End SyncLock
End Set
End Property

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8" ?>
<frontends>
<!--
<frontend name="Friendly Name for Frontend" address="10.0.0.111" mac="48:5b:39:a7:aa:aa"/>
-->

</frontends>
@@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<settings>
<Frontends>
<Frontend name="::1">
<UIType>desktop</UIType>
<Resolution>NoTranscode</Resolution>
<UseAnyStream>False</UseAnyStream>
<ProxyVideo>True</ProxyVideo>
<ShowRecentRecordings>True</ShowRecentRecordings>
<ShowRecentVideos>True</ShowRecentVideos>
<ShowConflicts>False</ShowConflicts>
<ShowDiskSpace>True</ShowDiskSpace>
<ShowEncoders>True</ShowEncoders>
<ShowUpcoming>False</ShowUpcoming>
<NoImages>False</NoImages>
</Frontend>
</Frontends>
<MythServiceAPIAddress>10.0.0.197</MythServiceAPIAddress>
<MythServiceAPIPort>6544</MythServiceAPIPort>
<MythWebUrl>http://10.0.0.197/mythweb/</MythWebUrl>
<DateFormat>MM/DD/YYYY</DateFormat>
<DeviceList>True</DeviceList>
</settings>

This file was deleted.

Oops, something went wrong.
@@ -76,10 +76,10 @@

<br />
<br />
Current Version: v.7.1<br />
Current Version: v.7.2<br />
<a href="http://mobilemyth.net">MobileMyth Home Page</a><br />
GNU General Public License.<br />
Copyright 2012-2014 Jonathan Heizer jheizer@gmail.com
Copyright 2012-2015 Jonathan Heizer jheizer@gmail.com
</asp:Content>

<asp:Content ID="Content3" ContentPlaceHolderID="AfterFirstPage" Runat="Server">
@@ -31,7 +31,7 @@ Partial Class recordings
Dim Programs As List(Of Program) = Array.FindAll(Recordings.Programs, Function(p) p.Recording.StorageGroup <> "Deleted" AndAlso p.Recording.StorageGroup <> "LiveTV").ToList

If Not Request.QueryString("title") Is Nothing Then 'If we are only suppose to show a single Title filter that now
Title = Request.QueryString("title")
Title = HttpUtility.UrlDecode(Request.QueryString("title"))
Programs = Programs.FindAll(Function(p) p.Title = Title)
End If

@@ -77,7 +77,7 @@ Partial Class recordings

Dim Lnk As New HyperLink
If Not String.IsNullOrEmpty(Title) Then
Lnk.NavigateUrl = "episodes.aspx?title=" & Title & "&pg=" & StartPg + 1
Lnk.NavigateUrl = "episodes.aspx?title=" & HttpUtility.UrlEncode(Title) & "&pg=" & StartPg + 1
Else
Lnk.NavigateUrl = "episodes.aspx?pg=" & StartPg + 1
End If
@@ -33,7 +33,7 @@ Partial Class tablet_gallery
Dim Folder As String = ""

If Not Request.QueryString("f") Is Nothing Then
Folder = Request.QueryString("f").TrimStart("/")
Folder = HttpUtility.UrlDecode(Request.QueryString("f").TrimStart("/"))
End If

Dim Images As List(Of String)
@@ -45,7 +45,7 @@ Partial Class tablet_gallery
If Not String.IsNullOrEmpty(Folder) Then
Dim url As String = "gallery.aspx"
If Folder.Contains("/") Then
url &= "?f=" & Folder.Substring(0, Folder.LastIndexOf("/"))
url &= "?f=" & HttpUtility.UrlEncode(Folder.Substring(0, Folder.LastIndexOf("/")))
End If
Dim Li As New GalleryPanel(0, "..", url, "../images/blackfolder.png")
maincontent.Controls.Add(Li)
@@ -54,13 +54,13 @@ Partial Class tablet_gallery

'Add the folders
For i As Integer = FolderStartIndex To Folders.Count - 1 + FolderStartIndex
Dim Li As New GalleryPanel(i, Folders(i - FolderStartIndex), "gallery.aspx?f=" & Folder & "/" & Folders(i - FolderStartIndex), "../images/blackfolder.png")
Dim Li As New GalleryPanel(i, Folders(i - FolderStartIndex), "gallery.aspx?f=" & HttpUtility.UrlEncode(Folder & "/" & Folders(i - FolderStartIndex)), "../images/blackfolder.png")
maincontent.Controls.Add(Li)
Next

'Add the images
For i As Integer = 0 To Images.Count - 1
Dim Li As New GalleryPanel(i + Folders.Count + FolderStartIndex, "", "gallery_slideshow.aspx?f=" & Folder & "#" & i + 1, Common.ProxyURL("/Content/GetImageFile?StorageGroup=Photographs&FileName=" & Images(i) & "&Height=175"))
Dim Li As New GalleryPanel(i + Folders.Count + FolderStartIndex, "", "gallery_slideshow.aspx?f=" & HttpUtility.UrlEncode(Folder) & "#" & i + 1, Common.ProxyURL("/Content/GetImageFile?StorageGroup=Photographs&FileName=" & Images(i) & "&Height=175"))
maincontent.Controls.Add(Li)
Next

@@ -33,7 +33,7 @@ Partial Class tablet_gallery_slideshow
Dim Folder As String = ""

If Not Request.QueryString("f") Is Nothing Then
Folder = Request.QueryString("f").TrimStart("/")
Folder = HttpUtility.UrlDecode(Request.QueryString("f").TrimStart("/"))
End If

Dim Images As List(Of String)
@@ -42,7 +42,7 @@ Partial Class shows
List.Controls.Add(li)

For Each Rec In Titles
li = New ShowListItem(Rec.Title, Rec.Count, "episodes.aspx?title=" & Rec.Title, Rec.Inetref, 0)
li = New ShowListItem(Rec.Title, Rec.Count, "episodes.aspx?title=" & HttpUtility.UrlEncode(Rec.Title), Rec.Inetref, 0)
List.Controls.Add(li)
Next

@@ -33,7 +33,7 @@ Partial Class tablet_videos
Dim Folder As String = ""

If Not Request.QueryString("f") Is Nothing Then
Folder = Request.QueryString("f").TrimStart("/")
Folder = HttpUtility.UrlDecode(Request.QueryString("f").TrimStart("/"))
End If

Dim Videos As List(Of iMythVideo.VideoMetadataInfo)
@@ -81,7 +81,7 @@ Partial Class tablet_videos


For i As Integer = 0 To Folders.Count - 1
Dim Li As New VideoPanel(i, Folders(i), "videos.aspx?f=" & Folder & "/" & Folders(i), "../images/blackfolder.png")
Dim Li As New VideoPanel(i, Folders(i), "videos.aspx?f=" & HttpUtility.UrlEncode(Folder & "/" & Folders(i)), "../images/blackfolder.png")
maincontent.Controls.Add(Li)
Next

@@ -20,8 +20,10 @@ Copyright (C) Microsoft Corporation. All rights reserved.
<SourceWebPhysicalPath>$(MSBuildThisFileDirectory)</SourceWebPhysicalPath>
<SourceWebVirtualPath>/MobileMyth</SourceWebVirtualPath>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<SourceWebProject>C:\Code\MobileMyth\MobileMyth</SourceWebProject>
<SourceWebMetabasePath>/IISExpress/7.5/LM/W3SVC/3/ROOT</SourceWebMetabasePath>
<SourceWebProject>
</SourceWebProject>
<SourceWebMetabasePath>
</SourceWebMetabasePath>
</PropertyGroup>
<PropertyGroup>
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
BIN +26.2 KB (100%) release/latest.zip
Binary file not shown.

0 comments on commit 47ac10a

Please sign in to comment.