From: jeff Date: Wed, 12 Dec 2007 21:19:03 +0000 (+0000) Subject: add suspend/unsuspend to www_shellcommands export (#1227) X-Git-Tag: TRIXBOX_2_6~183 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6d1d2415503552b49b999ac1e8222c8bba38b4c9 add suspend/unsuspend to www_shellcommands export (#1227) --- diff --git a/FS/FS/part_export/www_shellcommands.pm b/FS/FS/part_export/www_shellcommands.pm index 988d970d4..7e4be9ce4 100644 --- a/FS/FS/part_export/www_shellcommands.pm +++ b/FS/FS/part_export/www_shellcommands.pm @@ -18,6 +18,12 @@ tie my %options, 'Tie::IxHash', 'usermod' => { label=>'Modify command', default=>'[ -n "$old_zone" ] && rm /var/www/$old_zone; [ "$old_zone" != "$new_zone" -a -n "$new_zone" ] && ( mv $old_homedir/$old_zone $new_homedir/$new_zone; ln -sf $new_homedir/$new_zone /var/www/$new_zone ); [ "$old_username" != "$new_username" ] && chown -R $new_username $new_homedir/$new_zone; ln -sf $new_homedir/$new_zone /var/www/$new_zone', }, + 'suspend' => { label=>'Suspension command', + default=>'[ -n "$zone" ] && chmod 0 /var/www/$zone', + }, + 'unsuspend'=> { label=>'Unsuspension command', + default=>'[ -n "$zone" ] && chmod 755 /var/www/$zone', + }, ; %info = ( @@ -35,6 +41,8 @@ Run remote commands via SSH, for virtual web sites. You will need to this.form.useradd.value = "mkdir $homedir/$zone; chown $username $homedir/$zone; ln -s $homedir/$zone /var/www/$zone"; this.form.userdel.value = "[ -n \"$zone\" ] && rm -rf /var/www/$zone; rm -rf $homedir/$zone"; this.form.usermod.value = "[ -n \"$old_zone\" ] && rm /var/www/$old_zone; [ \"$old_zone\" != \"$new_zone\" -a -n \"$new_zone\" ] && ( mv $old_homedir/$old_zone $new_homedir/$new_zone; ln -sf $new_homedir/$new_zone /var/www/$new_zone ); [ \"$old_username\" != \"$new_username\" ] && chown -R $new_username $new_homedir/$new_zone; ln -sf $new_homedir/$new_zone /var/www/$new_zone"; + this.form.suspend.value = "[ -n \"$zone\" ] && chmod 0 /var/www/$zone"; + this.form.unsuspend.value = "[ -n \"$zone\" ] && chmod 755 /var/www/$zone"; '>
  • The following variables are available for interpolation (prefixed with new_ or old_ for replace operations): @@ -78,6 +90,16 @@ sub _export_delete { $self->_export_command('userdel', @_); } +sub _export_suspend { + my($self) = shift; + $self->_export_command('suspend', @_); +} + +sub _export_unsuspend { + my($self) = shift; + $self->_export_command('unsuspend', @_); +} + sub _export_command { my ( $self, $action, $svc_www) = (shift, shift, shift); my $command = $self->option($action);