Front page | perl.beginners |
Postings from January 2002
&cbkRedrawLink()
sub cbkRedrawLink()
{
my $PROG="c:\\OXE\\cygwin\\bootp\\linux\\$_Globals{LX_VERSION}";
my $PROG2="c:\\OXE\\cygwin\\bootp\\linux\\install";
my $PROG3="c:\\OXE\\cygwin\\bootp\\linux\\linux.ram";
my $PROG4="c:\\OXE\\cygwin\\bootp\\linux\\alize\\install";
my $PROG5="c:\\OXE\\cygwin\\bootp\\linux\\alize\\startup.txt";
my $link="c:\\OXE\\cygwin\\bin\\ln.exe -s $_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION} $PROG";
my $link2="c:\\OXE\\cygwin\\bin\\ln.exe -s $_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/install $PROG2";
my $link3="c:\\OXE\\cygwin\\bin\\ln.exe -s $_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/linux.ram $PROG3 ";
my $link4="c:\\OXE\\cygwin\\bin\\ln.exe -s $_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/install $PROG4";
my $link5="c:\\OXE\\cygwin\\bin\\cp.exe -s $_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/alize/startup.txt $PROG5 ";
unless (-e $PROG)
{
system($link) ;
}
unless (-e $PROG2)
{
system($link2) ;
}
unless (-e $PROG3)
{
system($link3) ;
}
unless (-e $PROG4)
{
system($link4) ;
}
unless (-e $PROG5)
{
system($link5) ;
}
}
Thread Next