Changeset 476 for locker/deploy/bin/onserver.pm
- Timestamp:
- Oct 14, 2007, 6:12:32 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
locker/deploy/bin/onserver.pm
r475 r476 11 11 use URI; 12 12 our @ISA = qw(Exporter); 13 our @EXPORT = qw(setup totmp fetch_uri print_login_info press_enter $server $tmp $USER $HOME $sname $deploy $addrend $base_uri $ua $admin_username $requires_sql $addrlast $sqlhost $sqluser $sqlpass $sqldb $ sqldbcurl $admin_password $scriptsdev $human);13 our @EXPORT = qw(setup totmp fetch_uri print_login_info press_enter $server $tmp $USER $HOME $sname $deploy $addrend $base_uri $ua $admin_username $requires_sql $addrlast $sqlhost $sqluser $sqlpass $sqldb $admin_password $scriptsdev $human $email); 14 14 15 15 our $server = "scripts.mit.edu"; 16 16 17 our ($tmp, $USER, $HOME, $sname, $deploy, $addrend, $base_uri, $ua, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $ sqldbcurl, $admin_password, $scriptsdev, $human);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); 18 18 19 19 $tmp = ".scripts-tmp"; … … 80 80 ($sname, $deploy, $addrend, $admin_username, $requires_sql, $scriptsdev, $human) = @ARGV; 81 81 chdir "$HOME/web_scripts/$addrend"; 82 $email = "$human\@mit.edu"; 82 83 83 84 if($addrend =~ /^(.*)\/$/) { … … 111 112 exit 1; 112 113 } 113 $sqldbcurl = $sqldb;114 $sqldbcurl =~ s/\+/\%2B/;115 114 } 116 115
Note: See TracChangeset
for help on using the changeset viewer.