#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
use strict;
use System;
use Launch;

# This script is used to fix files/paths after
# a patch has been installed.
System->set_home("/opt/SUNWstade");

#Fix se2 title in UrlLaunch.txt file
my $urls = Util->deserialize("UrlLaunch.txt") || {};
foreach my $d (keys %$urls){
  if($urls->{$d}[0] =~ /Sun 6320/){
     $urls->{$d}[0] = "Sun 6320/6920";
  }

}
Util->serialize("UrlLaunch.txt", $urls);

