[Unattended] shortcut.pl

[Matt_Fries]

It looks like mine is just a tad different. I think this is a Diff against the same version as yours.



--- shortcut.pl.orig        2004-09-02 15:38:12.836566400 -0500
+++ shortcut.pl        2004-09-02 13:48:43.835068800 -0500
@@ -14,7 +14,7 @@
 # Your usual option-processing sludge.
 my %opts;
 GetOptions (\%opts, 'help|h|?', 'arguments=s', 'description=s',
-            'hotkey=s', 'workingdirectory=s')
+            'hotkey=s', 'icon=i', 'workingdirectory=s')
     or pod2usage (2);
 
 (exists $opts{'help'})
@@ -90,6 +90,8 @@
 $obj->{WorkingDirectory} = (exists $opts{'workingdirectory'}
                             ? $opts{'workingdirectory'}
                             : $target_dir);
+(exists $opts{'icon'})
+    and $obj->{IconLocation} = "$target, $opts{'icon'}";
 
 (exists $opts{'arguments'})
     and $obj->{Arguments} = $opts{'arguments'};
@@ -100,6 +102,7 @@
 (exists $opts{'hotkey'})
     and $obj->{Hotkey} = $opts{'hotkey'};
 
+
 $obj->Save ();
 
 exit 0;
@@ -119,6 +122,7 @@
  --help                   Display help and exit
  --arguments <args>       Use <args> as arguments to target
  --description <desc>     Set description (aka. "infotip") to <desc>
+ --icon <offset>          Use icon number <offset> (default is 0)
  --hotkey <key>           Set hotkey (aka. "keyboard shortcut") to <key>
  --workingdirectory <dir> Set working directory to <dir>