Ignore:
Timestamp:
Oct 14, 2007, 6:12:32 PM (15 years ago)
Author:
andersk
Message:
Add $email variable.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • locker/deploy/bin/onserver.pm

    r475 r476  
    1111use URI;
    1212our @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);
     13our @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);
    1414
    1515our $server = "scripts.mit.edu";
    1616
    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);
     17our ($tmp, $USER, $HOME, $sname, $deploy, $addrend, $base_uri, $ua, $admin_username, $requires_sql, $addrlast, $sqlhost, $sqluser, $sqlpass, $sqldb, $admin_password, $scriptsdev, $human, $email);
    1818
    1919$tmp = ".scripts-tmp";
     
    8080  ($sname, $deploy, $addrend, $admin_username, $requires_sql, $scriptsdev, $human) = @ARGV;
    8181  chdir "$HOME/web_scripts/$addrend";
     82  $email = "$human\@mit.edu";
    8283 
    8384  if($addrend =~ /^(.*)\/$/) {
     
    111112      exit 1;
    112113    }
    113     $sqldbcurl = $sqldb;
    114     $sqldbcurl =~ s/\+/\%2B/;
    115114  }
    116115 
Note: See TracChangeset for help on using the changeset viewer.