class BinaryHeap
  def initialize
    @data = Array.new
  end
  def size
    @data.size
  end
  def empty?
    @data.size == 0
  end
  def insert(x)
    idx = @data.size
    @data << x
    while idx > 0 && priority(@data[idx], @data[(idx - 1) >> 1]) do
      @data[(idx - 1) >> 1], @data[idx] = @data[idx], @data[(idx - 1) >> 1]
      idx = (idx - 1) >> 1
    end
  end
  alias << insert
  def pop
    return nil if @data.size == 0
    return @data.pop if @data.size == 1
    r = @data[0].dup
    @data[0] = @data.pop
    idx = 0
    while (n_idx = 2 * idx + 1) < @data.size do
      n_idx += 1 if n_idx + 1 < @data.size && priority(@data[n_idx + 1], @data[n_idx])
      break if priority(@data[idx], @data[n_idx])
      @data[idx], @data[n_idx] = @data[n_idx], @data[idx]
      idx = n_idx
    end
    r
  end
  def top
    self.empty? ? nil : @data[0]
  end

  private
  def priority(a, b) # return true iff a has higher priority than b
    a[1] < b[1]
  end
end

n, m, l, s, e = gets.split.map &:to_i
g = Array.new(n << 1) {[]}
m.times do
  a, b, t = gets.split.map &:to_i
  a -= 1
  b -= 1
  2.times do
    g[a] << [b, t]
    g[b] << [a, t]
    a += n
    b += n
  end
end
t = Array.new(n, false)
gets.split.map(&:to_i).each do |i|
  t[i - 1] = true
end
q = BinaryHeap.new
q << [0, 0]
dist = Array.new(n << 1, Float::INFINITY)
dist[0] = 0
while (u, d = q.pop) do
  next if dist[u] < d
  g[u].each do |v, c|
    next if dist[v] <= dist[u] + c
    dist[v] = dist[u] + c
    q << [v, dist[v]]
  end
  if t[u] && dist[u] < s + e && dist[u + n] > [dist[u] + 1, s + 1].max then
    dist[u + n] = [dist[u] + 1, s + 1].max
    q << [u + n, dist[u + n]]
  end
end
puts dist[-1] == Float::INFINITY ? -1 : dist[-1]