From ac3b888288f2bfa7063eab5b38aaea8796fbc5ba Mon Sep 17 00:00:00 2001
From: silverwizard <silver@callysto.com>
Date: Sat, 24 Aug 2019 00:10:57 -0400
Subject: [PATCH] Added directories and symlinks to distinguish characters by
 gender to allow later usage

---
 Cyberpunk.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Cyberpunk.pl b/Cyberpunk.pl
index 955245a..c2ff111 100755
--- a/Cyberpunk.pl
+++ b/Cyberpunk.pl
@@ -8,7 +8,7 @@ $ARGV[0] =~ s/ /_/g;
 
 mkdir $ARGV[0], 0755 unless -d $ARGV[0];
 foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){
-	mkdir $ARGV[0] . "/" . $item,"0755" unless -d $ARGV[0] . "/" . $item;
+	mkdir $ARGV[0] . "/" . $item unless -d $ARGV[0] . "/" . $item;
 }
 generate($ARGV[0], $ARGV[0], 1);
 
@@ -33,6 +33,7 @@ sub generate {
 			push(@ORIENTATION, $item);
 		}
 	}
+	symlink($_[0] . "/" . $_[1] . ".md",  $_[0] . "/" . $GENDER . "/" . $_[1] . ".md");
 	
 	printf $CHAR "Name: " . $_[1] . "\n\n";
 	printf $CHAR "INT: " . $INT . "\n";