diff options
Diffstat (limited to 'src/cron/gitjoe.pl')
| -rwxr-xr-x | src/cron/gitjoe.pl | 30 |
1 files changed, 11 insertions, 19 deletions
diff --git a/src/cron/gitjoe.pl b/src/cron/gitjoe.pl index 07c8fc4..87d95a2 100755 --- a/src/cron/gitjoe.pl +++ b/src/cron/gitjoe.pl @@ -5,14 +5,16 @@ use warnings; use Term::ANSIColor; use File::Copy; use Capture::Tiny; + use constant { + HOME_DIR => '/usr/home/', TMP_DIR => '/tmp/gitjoe/', SITE_DIR => '/usr/local/www/gitjoe/' }; sub get_repos_index { my $user = $_[0]; - my $home_dir = '/usr/home/' . $user . '/'; + my $home_dir = HOME_DIR . $user . '/'; opendir(DIR, $home_dir); my @repos; my $i = 0; @@ -29,7 +31,7 @@ sub get_repos_index { sub stagit_generate { my ($user, @repos) = @_; - my $home_dir = '/usr/home/' . $user . '/'; + my $home_dir = HOME_DIR . $user . '/'; chdir(TMP_DIR); mkdir($user . '/', 0755); my $i = 0; @@ -45,7 +47,7 @@ sub stagit_generate { $repos[$i] = $repos[$i] . '.git'; print "Indexing " . colored($user . '/' . $repos[$i], 'bold') . ".\n"; system( - '/usr/local/bin/stagit', + 'stagit', $home_dir . $repos[$i] . '/' ); copy('../style.css', './style.css'); @@ -54,30 +56,20 @@ sub stagit_generate { } chdir(TMP_DIR . $user . '/'); system( - '/usr/local/bin/dash', - '-c', - '/usr/local/bin/stagit-index ' . $repos_line . '>index.html' - ); - system( - '/usr/local/bin/dash', - '-c', - "/usr/local/bin/gsed -i 's/<td>" . $user . "<\\/td>/<td class=\"td_author\">" . $user . "<\\/td>/g' index.html" + 'stagit-index ' . $repos_line . '>index.html' ); system( - '/usr/local/bin/dash', - '-c', - "/usr/local/bin/gsed -i 's/<td><span class=\"desc\">Repositories<\\/span><\\/td>/<td><span class=\"desc\"><h1>" . $user . " - Repositories<\\/h1><\\/span><\\/td><\\/tr><tr><td><\\/td><td>Back to <a href=\"https:\\/\\/gitjoe.xyz\\/\">GitJoe<\\/a><\\/td><\\/tr>/' index.html" + "sed -i '' -e 's/<td>" . $user . "<\\/td>/<td class=\"td_author\">" . $user . "<\\/td>/g' index.html" ); system( - '/usr/local/bin/dash', - '-c', - "/usr/local/bin/gsed -i 's/log.html/files.html/g' index.html" + "sed -i '' -e 's/<td><span class=\"desc\">Repositories<\\/span><\\/td>/<td><span class=\"desc\"><h1>" . $user . " - Repositories<\\/h1><\\/span><\\/td><\\/tr><tr><td><\\/td><td>Back to <a href=\"https:\\/\\/gitjoe.xyz\\/\">GitJoe<\\/a><\\/td><\\/tr>/' index.html" ); + system("sed -i '' -e 's/log.html/files.html/g' index.html"); return; } sub main { - my $home_dir = '/usr/home/'; + my $home_dir = HOME_DIR; my @users; opendir(DIR, $home_dir); my $i = 0; @@ -95,7 +87,7 @@ sub main { stagit_generate($users[$i], @repos); print "Removing user " . colored($users[$i], 'bold green') . " old directory from " . colored(SITE_DIR, 'bold') . ".\n"; system( - '/bin/rm', + 'rm', '-rf', SITE_DIR . $users[$i] ); |