mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-11 23:24:30 +02:00
15 lines
319 B
Perl
Executable file
15 lines
319 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
|
|
if ( not( grep /\b\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
|
|
print "Selectable\n" ;
|
|
}else{
|
|
print "Not selectable\n" ;
|
|
}
|
|
|
|
|
|
if ( not( grep /\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
|
|
print "Selectable\n" ;
|
|
}else{
|
|
print "Not selectable\n" ;
|
|
}
|