2 Replies Latest reply: Apr 4, 2013 7:56 PM by FRAGTZACK RSS

Renaming CIFS shares

rafael.varela
Currently Being Moderated

Hi,

 

As far as I know is not possible to rename a CIFS share, i.e., I have to delete the share and recreate it with the new name and set all the permissions again.

 

Does anyone know if this *very useful* feature is in the product roadmap? I cannot see why it hasn't been implemented yet...

 

Regards,

 

Rafael Varela

  • Renaming CIFS shares
    scottgelb
    Currently Being Moderated

    Agreed... I never thought about it after years of brute force with it... the good news is you can have multiple shares to the same target...so you can create the new then delete the old, but a rename would be a nice to have feature.

  • Re: Renaming CIFS shares
    FRAGTZACK
    Currently Being Moderated

    Hi,

     

      Got tired of the manual steps to rename and found frequently needing to rename cifs share. Wrote the below short script tonight to rename a cifs share, preserving the access permissions and any comments. Other settings are not preserved.  This script requires linux/perl and ssh pki authorized_keys equivalence to the filer. This could be converted to probably any OS by changing the $err_file path in sub run_cmd. The $err_file path is to simply capture STDERR as the script performs robust error checking for each ontap command.

     

    #!/usr/bin/perl -w

    ##########################################################

    # cifs_share_rename

    # rename a netapp cifs share

    #Michael.S.Denney@gmail.com

    $version=1.0;

    ##########################################################

    #TO DO:

    use strict;

    use warnings;

    use Getopt::Long;

    use POSIX;

    ##################Global VARS#################################

    use vars qw($version $verbose $debug $filer $share $new_share);

    ##################Predeclare SUBS#############################

    use subs qw(run_cmd);

    ##############################################################

    GetOptions(

              'f=s' => \$filer,

              'filer=s' => \$filer,

              's=s' => \$share,

              'share=s' => \$share,

              'n=s' => \$new_share,

              'new_share=s' => \$new_share,

              'v' => \$verbose,

              'd' => \$debug

    );

    my $t=' ';

    print "verbose on\n" if $verbose;

    print "debug on\n" if $debug;

    $verbose=1 if $debug;

    unless ($filer and $share and $new_share) {

       print "Usage: cifs_share_rename -f <filer_name> -s <share_name> -n <new_share_name>\n";

       print "Usage: cifs_share_rename --filer <filer_name> --share <share_name> --new_share <new_share_name>\n";

       exit 1 ;

    }

     

    my $cmd="ssh $filer cifs shares $share";

    print "$cmd\n";

    my ($stdout,$stderr)=run_cmd $cmd;

    if (@$stderr){

        print "$_\n" foreach (@$stderr);

        exit 1;

    }

    my $path;my $comment;my $access;my %security;

     

    print "search share=>$share\n";

    foreach (@$stdout){

       print "$_\n" ;

       if (/^\S+\s+(\/vol\/\S+\s+|\/vol\/\S+\/\S+\s+)(.*)?/){

          $path=$1;

          $comment=$2;

       }#end if regex

       if ( /\s+(.+)\s+\/\s+Read/g){

            push @{$security{read}},$1;

       }

       if ( /\s+(.+)\s+\/\s+Change/g){

          push @{$security{change}},$1;

       }

       if ( /\s+(.+)\s+\/\s+Full\sControl/g){

          push @{$security{'full control'}},$1;

       }

     

    }

    print "path=>$path\n" if $path;

    print "comment=>$comment\n" if $comment;

    print "cifs read=>$_ \n" foreach (@{$security{read}});

    print "cifs full control=>$_ \n" foreach (@{$security{'full control'}});

    print "cifs change=>$_ \n" foreach (@{$security{change}});

     

     

    $cmd="$t ssh $filer cifs shares -add $new_share $path -comment \'$comment\'" if ($comment);

    $cmd="$t ssh $filer cifs shares -add $new_share $path" unless ($comment);

    print "$cmd\n";

    ($stdout,$stderr)=run_cmd $cmd;

    if (@$stderr){

        print "$_\n" foreach (@$stderr);

        unless ((grep /MS-DOS/,@$stderr)and @$stderr == 1){

           exit 1;

        }

    }

    print "$_\n" foreach (@$stdout);

     

    $cmd="$t ssh $filer cifs access -delete $new_share everyone";

    print "$cmd\n";

    ($stdout,$stderr)=run_cmd $cmd;

    if (@$stderr){

        print "$_\n" foreach (@$stderr);

        exit 1 unless (grep /successfully modified/,@$stderr);

    }

    print "$_\n" foreach (@$stdout);

     

    foreach my $type ('read','change','full control'){#type

       print "type=$type\n";

       foreach (@{$security{$type}}){

          $cmd="$t ssh $filer cifs access $new_share \'$_\' $type";

          print "$cmd\n";

          ($stdout,$stderr)=run_cmd $cmd;

          if (@$stderr){

              print "$_\n" foreach (@$stderr);

              exit 1 unless (grep /successfully modified/,@$stderr);

          }

          print "$_\n" foreach (@$stdout);

       }

    }#end foreach type

    $cmd="$t ssh $filer cifs shares -delete $share";

    print "$cmd\n";

    ($stdout,$stderr)=run_cmd $cmd;

    if (@$stderr){

        print "$_\n" foreach (@$stderr);

        exit 1;

    }

    print "$_\n" foreach (@$stdout);

    ##########################################################

    sub run_cmd{

    ##########################################################

       my $cmd=" @_";

       my $err_file="/dev/shm/err.$$";

       $cmd.=" 2>$err_file";

       my @stdout=qx($cmd);

       chomp @stdout;

       my @stderr;

       if (-s $err_file) { #if the error file has messages

          open ERR,"$err_file";

          @stderr=(<ERR>);

          close ERR;

          chomp @stderr;

          #print "$_\n" foreach (@stderr);

       }

       unlink ($err_file);

       return (\@stdout,\@stderr);

    }

More Like This

  • Retrieving data ...