Changeset 367

Show
Ignore:
Timestamp:
04/06/07 14:08:13 (20 months ago)
Author:
ogawa
Message:

$mail_address変数を追加。

Location:
mtseminar/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • mtseminar/trunk/mysql-backup.pl

    r366 r367  
    22use strict; 
    33use MIME::Lite; 
     4 
     5my $mail_address = 'yourmail@address'; 
    46 
    57sub BEGIN { 
    … …  
    3335 
    3436        my $msg = MIME::Lite->new(From => $cfg->EmailAddressMain || 'root@localhost', 
    35                                   To => 'yourmail@address', 
     37                                  To => $mail_address, 
    3638                                  Subject => 'MySQL backup', 
    3739                                  Type => 'multipart/mixed'); 

  • mtseminar/trunk/sqlite-backup.pl

    r365 r367  
    22use strict; 
    33use MIME::Lite; 
     4 
     5my $mail_address = 'yourmail@address'; 
    46 
    57sub BEGIN { 
    … …  
    2830        my $dbfile = $cfg->Database; 
    2931        my $msg = MIME::Lite->new(From => $cfg->EmailAddressMain || 'root@localhost', 
    30                                   To => 'yourmail@address', 
     32                                  To => $mail_address, 
    3133                                  Subject => 'SQLite backup', 
    3234                                  Type => 'multipart/mixed');