# Afficher le titre
print "[sys_CreerShortcut.pl] : Script de creation/suppression de raccourcis\n";
print "                         Franck OBERLECHNER © 2003  www.oberlechner.net\n\n";

use Win32::Shortcut;
#use Cwd;
#use File::PathConvert qw(realpath);
use File::Basename;

$nomraccourcis	 = shift @ARGV;
if ( $nomraccourcis eq '' ) {
   PasDeParametre();	
}	
$FichierApointer = shift @ARGV;
$Parametre	 = shift @ARGV;

if ( $FichierApointer eq 'NON' ) { 
    EffacerRaccourci();	
}
else {
    if(!( -e $FichierApointer)) {
    	print ". Raccourcis vers " .$FichierApointer. "\n";
    	print "-------------------------------------\n";
    	print " Le fichier a pointer n'existe pas !\n";
    	print "-------------------------------------\n";
    } else {
        CreationRaccourcis();
    }
}
exit 0;

#--------------------------------------------------------------------------------------


sub CreationRaccourcis {
    print ". Creation d'un raccourcis \"" . uc($nomraccourcis) . "\" sur le bureau.\n";
    print "  qui pointe	: " . $FichierApointer;

    $L=new Win32::Shortcut();
    if($L) {
	print "\n";
	$L->Path($FichierApointer . " " . $Parametre );
        $L->WorkingDirectory( dirname($FichierApointer) );
        $L->ShowCmd(2);
        $L->Description("Raccourcis généré par [sys_CreerShortcut.pl]");
        print ". Sauvegarde du raccourcis \"" . $nomraccourcis . ".............";
        $chemin = $ENV{USERPROFILE}	. "\\Bureau\\";
        $result=$L->Save($chemin . $nomraccourcis .	".lnk");   
        print "OK\n" if $result;
        print "*** ERREUR ***\n" if not $result;
        $L->Close(); 
    } else {
      print "*** ERREUR ***\n";
    }
}
sub PasDeParametre {
 
    print "\nLe programme doit etre lance avec comme parametre :\n\n";
    print "1 :\tLe libelle du raccourcis\n";
    print "2 :\tLe chemin complet du fichier a pointer\n\tou le	mot clef NON pour l'effacer\n";
    print "3 :\t[Les parametres	du programme]\n\n";
 
    print "  <<< APPUYER SUR LA TOUCHE ENTREE >>>";
    $wait = <STDIN>;
    exit;
}


sub EffacerRaccourci {
print ". Effacement du raccourcis \"" .	uc($nomraccourcis) ."\"	du bureau.\n";
exit 0;

}

sub FileExist {
	if(!( -e "$_[0]") ) { 
		print ("\n\nTHE FILE \"$_[0]\" DOES NOT EXIST.\n") ;
	}
}


#-----------------------------------------------------------
#  $LINK->{'File'}		 
#  $LINK->{'Path'}		 $LINK->Path()
#  $LINK->{'ShortPath'}
#  $LINK->{'WorkingDirectory'}	 $LINK->WorkingDirectory()
#  $LINK->{'Arguments'}		 $LINK->Arguments()
#  $LINK->{'Description'}	 $LINK->Description()
#  $LINK->{'ShowCmd'}		 =1 "Fenetre normale"
#				 =3 "Fenetre Agrandie"
#				 =7 "Fenetre reduite"
#  $LINK->{'Hotkey'}		 $LINK->Hotkey()
#  $LINK->{'IconLocation'}	 $LINK->IconLocation()
#  $LINK->{'IconNumber'}	 $LINK->IconNumber()
#-----------------------------------------------------------