Changeset 1224 for branches/locker-dev/locker
- Timestamp:
- Jul 1, 2009, 12:04:33 PM (15 years ago)
- Location:
- branches/locker-dev/locker/deploy/bin
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/locker-dev/locker/deploy/bin/mediawiki
r1223 r1224 6 6 7 7 setup(); 8 9 `cp skins/common/images/mediawiki.png skins/common/images/wiki.png`;10 `patch -s -p1 < /mit/scripts/deploy/mediawiki.patch`;11 8 12 9 print "\nPlease decide upon a title for your wiki and enter it below.\n"; -
branches/locker-dev/locker/deploy/bin/onathena
r1217 r1224 235 235 fi 236 236 237 # xavid: use p to keep the same permissions as in the file238 athrun scripts gtar zxpf "/mit/scripts/deploy$scriptsdev/$deploy.tar.gz"239 files=`athrun scripts gfind . -mindepth 1 -maxdepth 1 | grep -v .admin`240 numfiles=`echo "$files" | wc -l`241 if [ ! -z "$files" ]; then242 if [ "$numfiles" -eq 1 ]; then243 athrun scripts gfind . -mindepth 2 -maxdepth 2 | xargs -i mv \{} .244 rmdir "$files"245 fi246 fi247 if [ -f "/mit/scripts/deploy$scriptsdev/php.ini/$deploy" ]; then248 nodot=`echo "$lname" | sed "/\./s///"`;249 sed -e "/SCRIPTS_USER/ s//$lname/" -e "/SCRIPTS_NODOT/ s//$nodot/" "/mit/scripts/deploy$scriptsdev/php.ini/$deploy" > php.ini250 athrun scripts gfind . -mindepth 1 -type d -exec sh -c 'ln -sf "`echo "$1" | sed '\''s,[^/],,g; s,/,../,g'\''`php.ini" "$1/"' -- {} \;251 fi252 237 cd "$origdir" 253 238 254 vsshrun "deploy$scriptsdev/bin/$deploy" "$ sname" "$deploy" "$addrend" "$admin_username" "$requires_sql" "$scriptsdev" "$USER" || die "Unknown failure during configuration"239 vsshrun "deploy$scriptsdev/bin/$deploy" "$lname" "$sname" "$deploy" "$addrend" "$admin_username" "$requires_sql" "$scriptsdev" "$USER" || die "Unknown failure during configuration" 255 240 rm -f "$lroot/web_scripts/$addrend/.scripts-tmp" 256 241 checkfailed -
branches/locker-dev/locker/deploy/bin/onserver.pm
r1217 r1224 5 5 use File::Spec::Functions; 6 6 use File::Basename; 7 use File::Copy; 7 8 use Socket; 8 9 use Cwd qw(abs_path); 9 10 use POSIX qw(strftime); 10 11 use LWP::UserAgent; 12 use IPC::Open2; 11 13 use URI; 12 14 our @ISA = qw(Exporter); … … 15 17 our $server = "scripts.mit.edu"; 16 18 17 our ($tmp, $USER, $HOME, $ sname, $deploy, $addrend, $base_uri, $ua, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $admin_password, $scriptsdev, $human, $email);19 our ($tmp, $USER, $HOME, $lname, $sname, $deploy, $addrend, $base_uri, $ua, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $admin_password, $scriptsdev, $human, $email); 18 20 19 21 $tmp = ".scripts-tmp"; … … 78 80 $HOME = $ENV{HOME}; 79 81 80 ($ sname, $deploy, $addrend, $admin_username, $requires_sql, $scriptsdev, $human) = @ARGV;82 ($lname, $sname, $deploy, $addrend, $admin_username, $requires_sql, $scriptsdev, $human) = @ARGV; 81 83 chdir "$HOME/web_scripts/$addrend"; 82 84 $email = "$human\@mit.edu"; … … 122 124 } 123 125 126 # This code was originally in onathena 127 my $repo = "/mit/scripts/wizard$scriptsdev/srv/$deploy.git"; 128 if(-e $repo) { 129 # Much of this can be replaced with 130 # system("git", "clone", "--shared", $repo, "."); 131 # but only once we complete the FC11 transition and are running 132 # a version of Git more recent than 1.6.1 on all servers. 133 `git init`; 134 open HTACCESS, '>', '.git/.htaccess' or die $!; 135 print HTACCESS "Deny from all"; 136 close HTACCESS; 137 open ALTERNATES, '>', '.git/objects/info/alternates' or die $!; 138 print ALTERNATES "$repo/objects"; 139 close ALTERNATES; 140 system("git", "remote", "add", "origin", $repo); 141 `git config branch.master.remote origin`; 142 `git config branch.master.merge refs/heads/master`; 143 `git fetch origin`; 144 `git branch --track master origin/master`; 145 system("git checkout master"); # to get output 146 } else { 147 system("tar", "zxpf", "/mit/scripts/deploy$scriptsdev/$deploy.tar.gz"); 148 my @files = glob("* .*"); # You /don't/ want to match dotfiles 149 if (@files == 3) { 150 chdir $files[0] or die $!; 151 for (glob("{,.??}*")) { 152 move($_, catfile("..", $_)) || die $!; 153 } 154 chdir ".." 155 } 156 rmdir $files[0]; 157 } 158 if(-f "/mit/scripts/deploy$scriptsdev/php.ini/$deploy") { 159 # Copy in PHP file, perform substitutions, and make symlinks 160 # to php.ini in all subdirectories 161 my $nodot = $lname; $nodot =~ s/\.//; 162 open(PHPIN, "/mit/scripts/deploy$scriptsdev/php.ini/$deploy") || die $!; 163 open(PHPOUT, ">", "php.ini") || die $!; 164 while(<PHPIN>) { 165 s/SCRIPTS_USER/$lname/; 166 s/SCRIPTS_NODOT/$nodot/; 167 print PHPOUT $_ or die $!; 168 } 169 close(PHPOUT) || die $!; 170 close(PHPIN) || die $!; 171 # athrun doesn't exist on scripts. But find exists! Use alternate script 172 system("/mit/scripts/bin/fix-php-ini-scripts"); 173 } 174 124 175 print "\nConfiguring $sname...\n"; 125 176 if($requires_sql) { … … 127 178 } 128 179 129 open(VERSION, ">.scripts-version") or die "Can't write scripts-version file: $!\n"; 130 print VERSION strftime("%F %T %z\n", localtime); 131 print VERSION $ENV{'USER'}, '@', getclienthostname(), "\n"; 132 my $tarball = abs_path("/mit/scripts/deploy$scriptsdev/$deploy.tar.gz"); 133 print VERSION $tarball, "\n"; 134 $tarball =~ s|/deploydev/|/deploy/|; 135 print VERSION dirname($tarball), "\n"; 136 close(VERSION); 180 if(-e "/mit/scripts/wizard$scriptsdev/srv/$deploy.git") { 181 # fake an empty commit to get version info 182 my $pid = open2(\*GIT_OUT, \*GIT_IN, "git commit-tree HEAD: -p HEAD") or die "Can't execute git process"; 183 print GIT_IN "User autoinstalled application\n"; 184 print GIT_IN "Installed-by: ", $ENV{'USER'}, '@', getclienthostname(), "\n"; 185 close(GIT_IN); 186 my $hash=<GIT_OUT>; 187 chomp($hash); 188 close(GIT_OUT); 189 waitpid $pid, 0; # reap zombies 190 system("git reset $hash"); 191 } else { 192 open(VERSION, ">.scripts-version") or die "Can't write scripts-version file: $!\n"; 193 print VERSION strftime("%F %T %z\n", localtime); 194 print VERSION $ENV{'USER'}, '@', getclienthostname(), "\n"; 195 my $tarball = abs_path("/mit/scripts/deploy$scriptsdev/$deploy.tar.gz"); 196 print VERSION $tarball, "\n"; 197 $tarball =~ s|/deploydev/|/deploy/|; 198 print VERSION dirname($tarball), "\n"; 199 close(VERSION); 200 } 137 201 138 202 select STDOUT;
Note: See TracChangeset
for help on using the changeset viewer.