Профиль |
Сообщить модератору |
ИгнорироватьNEW! Сообщение отправлено: 5 февраля 2004 16:33
Сваяно за 5 минут из различных частей для быстрого бэкапинга в принципе любой юниксовой директории
хакинг приветствуется (в частности man tar - а то мне читать некогда было - мог ошибиться в параметрах)
но работает - этого было достаточно ибо др. проблемы оказались насущней.
___________________________________________
#!/usr/bin/perl
###############
# ikonback.cgi
# copyleft ICEMAN
# Backuping
###############
$bckdir = "/all/path/cgi-bin/ikonboard";
$usemail = "user\@server.com";
use Time::localtime;
my $sec=localtime->sec();
my $min=localtime->min();
my $hh=localtime->hour();
$mm=localtime->mon()+1;
$dd=localtime->mday();
@fields = split(/ /,ctime());
$lastfld=$#fields;
$yyyy=$fields[$lastfld];
$Today=sprintf("%4s\.%02s\.%02s %02s\:%02s",$yyyy,$mm,$dd,$hh,$min);
print "Content-type: text/html\n\n";
print "$Today\n";
$thistime=sprintf("%4s%02s%02s%02s%02s",$yyyy,$mm,$dd,$hh,$min);
print "<html><body>";
print '<br>'.$ENV{'REMOTE_ADDR'}.'<br>'.$ENV{'HTTP_USER_AGENT'}."\n<br>Start Backuping<br>\n";
{
system ("tar cvfz - $bckdir/* | uuencode ikon$thistime.tar.gz | mail -s \"ikon files $thistime\" $usemail > /dev/null 2>&1");
}
print "\n <br><h3>all backup $bckdir/*.* <br>send attachment(ikon$thistime.tar.gz) to mail($usemail) OK";
___________________________________________
вставить фразу в admincenter.cgi
___________________________________________
<hr><a href=http://www.server.com/cgi-bin/ikonboard/backup.cgi>Backup mail forum</a>
___________________________________________
перед:
___________________________________________
<hr>
<b>Программирование и дизайн:</b> Matthew Mecham<br>
___________________________________________
или куда душе угодно.
кто сделает через // form action= // - пожму руку ибо станет юзабельней
