Front page | perl.beginners |
Postings from March 2002
Re:ease my code
From:
Jorge Goncalvez
Date:
March 6, 2002 04:55
Subject:
Re:ease my code
Message ID:
200203061255.NAA08796@cabs40.col.bsf.alcatel.fr
Hi, I have this:
my $path="$RegValue\\InstallOXE.lnk";
&createScut($path);
my $path2="$RegValue\\remove.lnk";
&createScut2($path2);
sub createScut() {
my $CMPath = GetMyRegPath::GetCygwinMountsPath();
my $lnkLocation = shift;
$LINK=new Win32::Shortcut();
$LINK->{'Path'}=qq($CMPath\\Active_Perl\\Bin\\bootnet2.bat);
$LINK->{'WorkingDirectory'}="$CMPath/Active_Perl/Bin/";
$LINK->{'Description'}=" Serveur d'installation CS OXE ";
$LINK->{'ShowCmd'}=SW_SHOWMINNOACTIVE;
$LINK->{'IconLocation'}="$CMPath/Active_Perl/Bin/ras.ico";
$LINK->Save($lnkLocation);
$LINK->Close();
}
sub createScut2() {
my $CMPath = GetMyRegPath::GetCygwinMountsPath();
my $lnkLocation = shift;
$LINK=new Win32::Shortcut();
$LINK->{'Path'}=qq($CMPath\\remove.bat);
$LINK->{'WorkingDirectory'}="$CMPath";
$LINK->{'Description'}=" Désinstallation de cygwin ";
$LINK->{'ShowCmd'}=SW_SHOWMINNOACTIVE;
$LINK->{'IconLocation'}="$CMPath/Active_Perl/Bin/cygwin.ico";
$LINK->Save($lnkLocation);
$LINK->Close();
}
How can i do to ease this code with only one function createScut.
Thanks
-
Re:ease my code
by Jorge Goncalvez