perl-install/proxy.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

package proxy;

use diagnostics;
use strict;
use run_program;
use common qw(:common :system :file);
use log;
use c;

sub main {
    my ($prefix, $in, $install) = @_;
  begin:
    $::Wizard_no_previous = 1;
    $in->ask_okcancel(_("Proxy configuration"), _("blabla proxy"), 1) or quit_global($in, 0);
    my $url;
    my $e = $in->ask_from_entry($url, _("foo"), _("url"));
    print "$url / $e \n";
    undef $::Wizard_no_previous;
    log::l("[drakproxy] Installation complete, exiting\n");
}

#---------------------------------------------
#                WONDERFULL pad
#---------------------------------------------
1;