1 FTS CPartition Virtual 1.0 Ter Abr 23, 2013 12:11 am
Moedas : 201
Mensagens : 92
Humor : *-*
Reputação : 5
Mensagens : 92
Humor : *-*
Reputação : 5
hacker fts315
esse script permite criar partiçao virtual, proximas versao talvez eu coloque para monta-la automaticamente ^^
mod necessario: tk
- Código:
#!/usr/bin/perl
#by hacker fts315
use Tk;
$janela = MainWindow->new;
$janela->title("by fts315");
$janela->geometry("190x360");
#slogan
$label1 = $janela->Label(-text=>"FTS CPartition Virtual v1.0",-fg=>"red")->pack;
#nome
$label2 = $janela->Label(-text=>"nome:")->pack(-anchor=>"w");
$entry2 = $janela->Entry(-text=>"pvirtual")->pack(-anchor=>"w");
#local onde salvar
$label3 = $janela->Label(-text=>"local:")->pack(-anchor=>"w");
$entry3 = $janela->Entry(-text=>"/home")->pack(-anchor=>"w");
#formato
$label8 = $janela->Label(-text=>"Formato:")->pack(-anchor=>"w");
$entry8 = $janela->Entry(-text=>"ext2")->pack(-anchor=>"w");
#faixa
$label4 = $janela->Label(-text=>"faixa:")->pack(-anchor=>"w");
$entry4 = $janela->Entry(-text=>"1024")->pack(-anchor=>"w");
#tamanho
$label7 = $janela->Label(-text=>"tamanho mb:")->pack(-anchor=>"w");
$entry6 = $janela->Entry(-text=>"100")->pack(-anchor=>"w");
#montar
#$check1 = $janela->Checkbutton(-text=>"Deseja montar ela?")->pack;
#$label5 = $janela->Label(-text=>"Pasta para montar:")->pack(-anchor=>"w");
#$entry5 = $janela->Entry(-text=>"")->pack(-anchor=>"w");
$button1 = $janela->Button(-text=>"criar",-command=>\&fts_copiar)->pack;
MainLoop;
sub fts_copiar
{
$localc = $entry3->get . "/" . $entry2->get;
$tam = $entry4->get * $entry6->get;
system("dd if=/dev/zero of=" . $localc . " bs=" . $entry4->get ." count=" . $tam);
system("mkfs -t " . $entry8->get . " " . $localc);
}