removed useless _ folders

2015-08-09 16:54:31 -05:00
parent fde850293c
commit 948a44dfba
5204 changed files with 2425579 additions and 0 deletions
--- a/Desktop-Shortcuts/Desktop-Shortcuts.sol
+++ b/Desktop-Shortcuts/Desktop-Shortcuts.sol
@@ -0,0 +1,3 @@
+<Solution name="Desktop-Shortcuts">
+	<Project name="Desktop-Shortcuts" path="Desktop-Shortcuts\Desktop-Shortcuts.prj" active="true"/>
+</Solution>
--- a/Desktop-Shortcuts/Desktop-Shortcuts/Desktop-Shortcuts.prj
+++ b/Desktop-Shortcuts/Desktop-Shortcuts/Desktop-Shortcuts.prj
@@ -0,0 +1,10 @@
+<Project name="Desktop-Shortcuts" guid="64d45bfe-c16b-43c7-a9b1-20de2168e62f">
+	<Object name="Src" guid="17d49b46-9f27-4b21-8ef6-80fae11d4ee5" active="true">
+		<Script name="icon.tts.vbs" guid="8bf8c3f4-231f-41c0-9644-ed10b7990ece">
+		</Script>
+		<Script name="createshortcut.plx" guid="4cb0ee60-138f-438c-b2bc-8895b5687d40">
+		</Script>
+		<Script name="CreateSLIcon.vbs" guid="32110e1e-b039-486f-b21b-7d5325f99e91">
+		</Script>
+	</Object>
+</Project>
--- a/Desktop-Shortcuts/Desktop-Shortcuts/Src/CreateSLIcon.vbs
+++ b/Desktop-Shortcuts/Desktop-Shortcuts/Src/CreateSLIcon.vbs
@@ -0,0 +1,37 @@
+// :CATEGORY:Shortcut
+// :NAME:Desktop-Shortcuts
+// :AUTHOR:Ferd Frederix
+// :KEYWORDS:Shortcut
+// :CREATED:2014-02-20 14:20:12
+// :EDITED:2014-02-20
+// :ID:1026
+// :NUM:1596
+// :REV:1.0
+// :WORLD:Second Life, OpenSim
+// :DESCRIPTION:
+// Desktop Shortcut creator script to a landmark in world.
+// :CODE:
+
+'  VBScript for windows boxes, "wscript CreateSLIcon" to run it, or double click it.
+
+' Desktop Shortcut creator script
+' author: Fred Beckhusen
+' puts Icon to Windows desktops pointing to a Location
+' declare a few places to save things in
+Dim  Shortcut, DesktopPath, Region, Name
+
+Region = "Phaze Demesnes/128/129/22"  ' where they are to go
+Name = "Visit Phaze"    ' the name of the shortcut
+
+' Need to access special folders such as desktop....
+Set WSHShell = WScript.CreateObject("WScript.Shell")
+' get a path to the current desktop
+DesktopPath = WSHShell.SpecialFolders("Desktop")
+' Create a shortcut object for us to fill in the properties.  It is not saved yet
+Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "/" & Name & ".lnk")
+' Get an Icon from Shell32.dll
+Shortcut.IconLocation = "SHELL32.dll, 34" ' the 34th icon in this is representative of a viewer
+Shortcut.Targetpath = "secondlife://" & Region
+
+' Save it
+Shortcut.Save
--- a/Desktop-Shortcuts/Desktop-Shortcuts/Src/createshortcut.plx
+++ b/Desktop-Shortcuts/Desktop-Shortcuts/Src/createshortcut.plx
@@ -0,0 +1,57 @@
+// :CATEGORY:Shortcut
+// :NAME:Desktop-Shortcuts
+// :AUTHOR:Ferd Frederix
+// :KEYWORDS:Shortcut
+// :CREATED:2014-02-20 14:20:12
+// :EDITED:2014-02-20
+// :ID:1026
+// :NUM:1595
+// :REV:1.0
+// :WORLD:Second Life, OpenSim
+// :DESCRIPTION:
+// Desktop Shortcut creator script to write a landmark taken from a webserver form.
+// :CODE:
+=pod
+// Perl for Server
+=cut
+
+#!perl.exe
+
+#  author: Fred Beckhusen
+# Perl  Server code to read a web form. It created a VB script that makes an Icon
+# requires the Cpan module Template::Toolkit (' cpan Toolkit')
+# this scritp reads form vars such as :
+# Icon = N,  (Integer) that selects and icon from Windows/System32/SHELL32.dll.   You can view these by changing any ocon and looking inside Shell32.dll
+# Name = (string) the name of the Icon on the desktop, default  Launch
+# HotKey = (string) Ctrl + Shift + a Key, such as CTRL+SHIFT+F1
+# nBits (integer) 32 or 64 for the viewer type. Currently, only Singularity supports 64 bits
+
+
+BEGIN {
+   $| = 1; # disable output buffering
+   use CGI::Carp('fatalsToBrowser'); # always carp to the browser in case something goes wrong, goes wrong
+}
+
+use strict;
+use warnings;
+
+use CGI qw(:standard);  # Load CGI module
+my $Input = CGI->new(); # get access to web forms
+
+
+print $Input->header( -type => 'text/plain',             # just text
+                      -charset => 'utf-8',               # allow Unicode names
+                      -attachment => 'InstallIcon.vbs',  # name for the shortcut
+                    );
+
+use Template;  # get access to Template::Toolkit
+my $tt = Template->new( ) or die $Template::ERROR;
+
+# Open the file and change all the [% vars %] to this hash
+$tt->process('icon.tt.vbs', {
+   hover       => 'Launch Viewer',                       # the name of the shortcut
+   icon        => $Input->param('Icon') || 34,           # Icon look and feel
+   name        => $Input->param('Name') || 'Launch',     # default name
+   hotkey      => $Input->param('HotKey') || 'Ctrl+F1',  # hotkey
+   nBits       => $Input->param('nBits') || 32 ,         # 32 or 64
+});
--- a/Desktop-Shortcuts/Desktop-Shortcuts/Src/icon.tts.vbs
+++ b/Desktop-Shortcuts/Desktop-Shortcuts/Src/icon.tts.vbs
@@ -0,0 +1,90 @@
+// :CATEGORY:Shortcut
+// :NAME:Desktop-Shortcuts
+// :AUTHOR:Ferd Frederix
+// :KEYWORDS:Shortcut
+// :CREATED:2014-02-20 14:20:12
+// :EDITED:2014-02-20
+// :ID:1026
+// :NUM:1594
+// :REV:1.0
+// :WORLD:Second Life, OpenSim
+// :DESCRIPTION:
+// Desktop Shortcut creator template script to a landmark in world.
+// :CODE:
+
+' Desktop Shortcut creator script
+' author: Fred Beckhusen
+' puts Icon to Firestorm on Windows desktops pointing to a Given Grid
+
+' declare a few places to save things in
+Dim  Shortcut, DesktopPath,  Target, Workingdirectory, Folder, Exe, nBits
+
+' You need to fill this in for the particular viewer defaults
+Folder = "Firestorm-OS"   ' I am using Firestorm in This folder
+Exe = "Firestorm-Release.exe" ' and the name of the exe file in the above folder
+nBits = [% nBits]  ' could be 64 for Singulatity
+
+'  Add any arguments.   I do them one at a time for readibility ( remember the spaces )
+' see http://wiki.secondlife.com/wiki/Viewer_parameters
+Arguments = " --settings settings_firestorm-release_v4.xml "
+Arguments = Argumants & " --channel Firestorm-Release "  ' a unique cache folder name
+Arguments = Arguments & " --set InstallLanguage en  "    ''your language for the viewer  to use
+
+' yes all the double quotes are necessary
+' uncomment just ONE line, please.
+
+'Arguments = Arguments & " --loginuri ""login.osgrid.org"" "    '' okay,. OsGrid hates the http, no idea whym but this work.
+'Arguments = Arguments & " --loginuri ""http://login.inworldz.com:8002/"" "
+'Arguments = Arguments & " --loginuri ""http://sim.3dgrid.de:8002/"" "
+'Arguments = Arguments & " --loginuri ""https://login.avination.com/"" "
+'Arguments = Arguments & " --loginuri ""http://craft-world.org:8002/"" "
+Arguments = Arguments & " --loginuri ""http://www.kitely.com:8002/"" "
+'Arguments = Arguments & " --loginuri ""http://hypergrid.org:8002/"" "
+'Arguments = Arguments & " --loginuri ""https://login.agni.lindenlab.com/cgi-bin/login.cgi"" "
+
+
+' Need to access special folders such as desktop....
+Set WSHShell = WScript.CreateObject("WScript.Shell")
+
+' Use %PROGRAMFILES(x86) for 32 bit viewers
+' Use '%PROGRAMFILES%' for 64 bit viewers
+if nBits = 64 then
+   Workingdirectory  = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\" & Folder
+else
+   Workingdirectory  = WSHShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\" & Folder
+end if
+
+Target = Workingdirectory & "\" &  Exe
+
+' get a path to the current desktop
+DesktopPath = WSHShell.SpecialFolders("Desktop")
+
+' Create a shortcut object for us to fill in the properties.  It is not saved yet
+Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "/" & "[% name %]" & ".lnk")
+
+Shortcut.workingdirectory  = Workingdirectory
+
+' Make the Target path  and all arguments
+Shortcut.TargetPath = Target
+Shortcut.Arguments = Arguments
+
+' There can be a HotKey associated with the shortcut, too
+' put the property into the Shortcut object
+
+Shortcut.Hotkey = "[% hotkey %]"
+
+' Get an Icon from Shell32.dll
+' put the property into the Shortcut object
+
+Shortcut.IconLocation = "SHELL32.dll, [% icon %]" ' the 34th icon in this is representative of a viewer
+
+Shortcut.Hover = [% hover %]
+
+' Save it
+Shortcut.Save
+'Catch the error
+If Err <> 0 Then
+    msgbox "Error saving shortcut " & Err
+End If
+
+' the icon will now appear.